ggplot2 Группировка гистограмм

Question

У меня есть проблемы с группировкой баров моей гистограммы.

Это является частью набора данных:

data <- structure(list(Color = structure(c(1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L), .Label = c("blue", "red"), class = "factor"), 
         Group = structure(c(1L, 1L, 2L, 2L, 3L, 3L, 3L, 3L), .Label = c("Group1", "Group2", "Group3"), class = "factor"), 
         ID = structure(1:8, .Label = c("A1", "A2", "B1", "B2", "C1", "C2", "D1", "D2"), class = "factor"), 
         Value = c(194L, 1446L, 0L, 17L, 77L, 2565L, 223L, 61L)), 
        .Names = c("Color", "Group", "ID", "Value"), class = "data.frame", row.names = c(NA, -8L)) 

Я строй гистограммы следующим образом:

ggplot(data, aes(ID, Value)) + geom_bar(aes(fill = Color), position = "dodge", stat="identity") + scale_fill_manual(values=c("Blue", "Red")) 

Теперь я группа бары гистограммы переменной группы, но я нашел его невозможно с помощью facet_wrap:

ggplot(data, aes(ID, Value)) + geom_bar(aes(fill = Color), position = "dodge", stat="identity") + scale_fill_manual(values=c("Blue", "Red")) + facet_wrap(. ~ Group) 

Error in layout_base(data, vars, drop = drop) : At least one layer must contain all variables used for facetting.

Было бы так же хорошо, если бы группы были отделены друг от друга.

Как я могу это сделать? Кто-то может мне помочь?

Answer 1

Вы должны удалить .:

ggplot(data, aes(ID, Value)) + 
    geom_bar(aes(fill = Color), position = "dodge", stat="identity") + 
    scale_fill_manual(values=c("Blue", "Red")) + 
    facet_wrap(~ Group) 

это даст вам следующий сюжет:

Если вы хотите, чтобы улучшить сюжет, включить в facet_wrap части scales = "free_x". Это избавиться от ненужных значений на оси х:

ggplot(data, aes(ID, Value)) + 
    geom_bar(aes(fill = Color), position = "dodge", stat="identity") + 
    scale_fill_manual(values=c("Blue", "Red")) + 
    facet_wrap(~ Group, scales = "free_x") 

это даст вам:

Если вы хотите бруски одинаковой ширины, то лучше использовать space аргумент в facet_grid:

ggplot(data, aes(ID, Value)) + 
    geom_bar(aes(fill = Color), position = "dodge", stat="identity") + 
    scale_fill_manual(values=c("Blue", "Red")) + 
    facet_grid(. ~ Group, scales = "free_x", space = "free_x") 

это дает: