Как сделать штангу в ggplot2 с горизонтальными и вертикальными штабелями?

Question

Моего фрейма данных это одна:

data <- data.frame("GROUP"= c(1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2,3,3,3,3,3,3,3,3), "C1_PERCENTAGE" = c(0, 10 ,22, 34, 37, 18, 24, 13), "C2_PERCENTAGE"=c(0, 8, 20, 24, 23, 11, 18, 9)) 

Я хочу, чтобы произвести бар участок с решеткой уложенной горизонтально, основанный на GROUP так, что будет три группы баров по горизонтали. И вертикально, я хочу складывать бары на основе C1_PERCENTAGE и C2_PERCENTAGE.

Я хочу использовать ggplot2. Я использовал базовую графику, но это только для C1_PERCENTAGE.

barplot(data$C1_PERCENTAGE, col = as.factor(data$GROUP) 

Это дает сюжет для C1_PERCENTAGE. Я хотел бы C2_PERCENTAGE также рядом с этими барами.

Answer 1

У меня есть два разных варианта.

Сначала нам нужно подготовить данные, (a) добавить id, (b) изменить формат в длинный формат.

подготовки данных

library(data.table) 
d <- data.table(
    "id" = 1:24, 
    "GROUP" = c(1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2,3,3,3,3,3,3,3,3), 
    "C1_PERCENTAGE" = c(0, 10 ,22, 34, 37, 18, 24, 13), 
    "C2_PERCENTAGE"=c(0, 8, 20, 24, 23, 11, 18, 9) 
) 
ld <- melt(d, id.vars = c("id", "GROUP")) 

сложены гистограмма

library(ggplot2) 
ggplot(ld, aes(x = id, y = value, fill = variable)) + 
    geom_bar(stat = "identity", position = "stack") 

граненых Гистограмма

ggplot(ld, aes(x = id, y = value, fill = factor(GROUP))) + 
    geom_bar(stat = "identity", position = "stack") + 
    facet_wrap(~ variable, ncol = 1)