在R中绘制几个图形

我正在尝试用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(" ") 
}

par（nfrow=c（4,6））
（我在25:48）{
datos22%
分组依据（2016年第[i]次培训的月份）%>%
汇总（计数=n（））%>%
ggplot（aes（填充=2016年列车[i]，x=计数，y=月份））+
geom_col（）+
标题（“”）
}

您可以尝试

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")) 
}

par（nfrow=c（4,6））
（我在25:48）{
datos22%
分组依据（2016年第[i]次培训的月份）%>%
汇总（计数=n（））%>%
ggplot（aes（填充=2016年列车[i]，x=计数，y=月份））+
geom_col（）+
标题（“”）
ggsave（粘贴0（“绘图”，i，.png”））
}

---

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

您的绘图保存在循环中为

datos22

。将

打印（datos22）

添加到循环中以打印它们。