我正在尝试创建一个柱形图,其中有一个变量“Hall”代表他们几个月的总数。我对代码有一些帮助,但我运行了它,它将所有大厅作为堆叠柱形图放在彼此之上,而不是躲避。有任何想法吗?
这是我尝试过的。
library(tidyverse)
fall2 <- structure(list(Hall = c("1959E", "1959E", "1959E", "1959E", "1959E",
"2109 F", "2109 F", "2109 F", "2109 F", "2109 F"), Month = c("August",
"December", "November", "October", "September", "August", "December",
"November", "October", "September"), total = c(2, 4, 5, 11, 8,
1, 3, 8, 7, 4)), row.names = c(NA, -10L), class = c("grouped_df",
"tbl_df", "tbl", "data.frame"), vars = "Hall", drop = TRUE, indices = list(
0:4, 5:9), group_sizes = c(5L, 5L), biggest_group_size = 5L, labels =
structure(list(Hall = c("1959E", "2109 F")), row.names = c(NA, -2L),
class = "data.frame", vars = "Hall", drop = TRUE))
fall2$Month <- fall2$Month %>%
fct_relevel("August", "September", "October", "November", "December")
fall2 <- fall2 %>%
arrange(Month, -total) %>%
mutate(order = row_number())
#something like this?
ggplot(fall2, aes(order, total)) +
geom_col(aes(fill = total), position = "dodge") +
guides(fill=FALSE) +
ggtitle("Fall Events by Hall") +
facet_wrap(~Month, nrow = 1, scales = "free_x") +
scale_x_continuous(breaks = fall2$order, labels = fall2$Hall,expand = c(0,0))
我希望它每个月看起来像 2 个大厅,而不是堆叠。我觉得这一定是一个小错误。