Я пытаюсь создать сложенный график geom_bar из совокупного количества сеансов по дате (в месяц) по группам.По какой-то причине, хотя мои переменные x начинаются в 2016-11-01 и заканчиваются в 2019-02-01 для обеих групп, график начинается в 2015-12-01 (декабрь-2015), и все значения объединяются в16 января, 17 января ... и т. Д.
Когда мои даты были символами, это работало, но тогда я не мог изменить порядок.Поэтому я поменял их на даты, но теперь у меня проблема выше
вот dput () моих данных, импортированных из исходного CSV-файла
recruitment_tally<-structure(list(dates = structure(c(16811, 16812, 17167, 17168,
17169, 17170, 17171, 17172, 17173, 17174, 17175, 17176, 17177,
17178, 17532, 17533, 17534, 17535, 17536, 17537, 17538, 17539,
17540, 17541, 17542, 17543, 17897, 17898, 17899, 16811, 16812,
17167, 17168, 17169, 17170, 17171, 17172, 17173, 17174, 17175,
17176, 17177, 17178, 17532, 17533, 17534, 17535, 17536, 17537,
17538, 17539, 17540, 17541, 17542, 17543, 17897, 17898, 17899
), class = "Date"), group = structure(c(1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 1L, 1L, 1L, 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, 2L, 2L, 2L, 2L, 2L, 2L, 2L,
2L, 2L, 2L, 2L), .Label = c("control", "mtbi"), class = "factor"),
total_sessions = c(4, 8, 11, 15, 19, 21, 27, 33, 35, 38,
41, 44, 47, 48, 51, 53, 56, 58, 59, 62, 63, 63, 66, 67, 69,
70, 71, 72, 73, 0, 0, 0, 2, 3, 5, 8, 10, 15, 18, 20, 27,
28, 28, 32, 34, 36, 36, 39, 41, 41, 43, 49, 50, 53, 57, 58,
60, 63)), row.names = c(NA, -58L), spec = structure(list(
cols = list(date = structure(list(), class = c("collector_character",
"collector")), group = structure(list(), class = c("collector_character",
"collector")), culm_total = structure(list(), class = c("collector_double",
"collector"))), default = structure(list(), class = c("collector_guess",
"collector"))), class = "col_spec"), class = c("tbl_df",
"tbl", "data.frame"))
вот мой код ggplot
library(ggplot2)
base<- recruitment_tally %>%
ggplot()+
geom_bar(aes(y = total_sessions, x= dates, fill = group),
stat="identity",position="dodge") +
coord_flip()
base + scale_x_date(date_breaks = "month", date_labels = "%b%y")
большое спасибо за вашу помощь!