在R中绘制几个图

Question

我正在尝试用ggplot自动绘制几个图。我想做一个总共23个堆叠条形图。

原始df(train2016(在第25至48列中具有变量，并且所有变量都具有值c(0, 1)。

我想在Y轴上表示月份(在列中给定(-X轴上表示每个变量的0或1值的计数结果。

我看不到结果，也没有显示错误。这是我写的代码。我知道肯定有多个错误

par(nfrow=c(4,6))
for (i in 25:48) {
datos22 <- train2016 %>%
group_by(month, train2016[i]) %>%
summarise(count= n()) %>% 
ggplot(aes(fill=train2016[i], x=count,y=month)) +
geom_col() +
ggtitle(" ") 
}

Answer 1

您可以尝试ggsave来保存图形

par(nfrow=c(4,6))
for (i in 25:48) {
datos22 <- train2016 %>%
group_by(month, train2016[i]) %>%
summarise(count= n()) %>% 
ggplot(aes(fill=train2016[i], x=count,y=month)) +
geom_col() +
ggtitle(" ") 
ggsave(paste0("plot_", i, ".png")) 
}

将所有绘图保存到独立文件中。