Я пытаюсь построить две серии данных с geom_bar
, где каждая серия имеет три совокупных значения (см. Мои данные для лучшего понимания). Я решил проблему с помощью facet_grid
, но в этом конкретном примере я хотел бы, чтобы на одной диаграмме были и водяные, и массовые. Вот мой код:
test <- structure(list(sample = structure(c(1L, 2L, 3L, 1L, 2L, 3L, 1L,
2L, 3L, 1L, 2L, 3L, 1L, 2L, 3L, 1L, 2L, 3L, 1L, 2L, 3L, 1L, 2L,
3L, 1L, 2L, 3L, 1L, 2L, 3L, 1L, 2L, 3L, 1L, 2L, 3L), .Label = c("C1",
"C2", "C3"), class = "factor"), dosage = c(350L, 350L, 350L,
175L, 175L, 175L, 117L, 117L, 117L, 87L, 87L, 87L, 70L, 70L,
70L, 35L, 35L, 35L, 350L, 350L, 350L, 175L, 175L, 175L, 117L,
117L, 117L, 87L, 87L, 87L, 70L, 70L, 70L, 35L, 35L, 35L), variable = structure(c(1L,
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L,
2L, 2L, 2L), .Label = c("masspull", "waterpull"), class = "factor"),
value = c(7.18, 11, 13.56, 10.14, 16.74, 19.85, 12.07, 21.92,
27.35, 6.29, 10.12, 12.2, 9.33, 15.16, 19.14, 10.05, 17.82,
22.09, 7.92, 13.88, 20.73, 12.33, 23.44, 32.87, 10.41, 19.83,
28.44, 6.85, 12.77, 17.23, 8.25, 14.39, 22.06, 8.22, 16.34,
24.16)), class = "data.frame", row.names = c(NA, -36L))
g <- ggplot(test, aes(x=dosage, y=value,fill=sample))
g <- g + geom_bar(stat="identity")
g <- g + facet_grid(~variable)
print(g)
Возможно ли это с помощью ggplot?