使用R中的for循环和ggplot2包绘制条形图

Question

我在R中工作，使用ggplot包。我正在尝试创建条形图，显示我的200个图中每个图的不同大小类的树的密度。通过从for循环中取出ggplot代码并将i更改为感兴趣的绘图编号（例如，对于绘图5，data=data[data$Plot==5,]，我已成功为单个图绘制了图形）。但每当我尝试使用for循环自动化过程时，我会得到空白图（标有x和y轴，但没有绘制条形/数据）。如果有人有任何建议，我将非常感激！

我的数据摘要：

数据（2000个3个变量）

• Plot：int（200个图，每个尺寸类重复）
• SizeClass：int（10个大小类，每个图重复）
• Density_1998：int（每个地块每个规模类别每公顷的树木数量）

代码：

plot.list <- unique(data$Plot)

for(i in 1:length(plot.list)) {
  print(ggplot(data = data[data$Plot == i, ], 
               aes(x = SizeClass, y = Density_1998)) + 
    geom_bar(stat = "identity") + 
    scale_x_continuous(name = "Size Class(cm)")+ 
    scale_y_continuous(name = "Density (per ha)")
}