在 for 循环中使用 ggplot2 绘制多个图

我看了这些问题(1) https://stackoverflow.com/questions/3824412/ggplot2-use-options-for-multiple-plots and (2) https://stackoverflow.com/questions/7452683/multiple-ggplots-in-for-loop，但是，它们似乎与我在这里的问题无关。

我试图首先创建丝带（在 for 循环之外），并在 for 循环内添加一堆线图和点图。但是，最终的绘图仅包含最后一个 for 循环中的线/点，而不是全部。整个代码位于一个函数中，我想从该函数返回 ggplot(p，在本例中) 对象，以便稍后使用它。

hist_points_cols_val<-hist_points_cols(hist_points)
hist_points_labels_val<-hist_points_labels(hist_points)
p <- ggplot()+
geom_ribbon(aes(x = x_labels , ymin = Min , ymax = Max),data=t_out_summary,colour = '#ece9d8',fill = '#ff9999',alpha = 0.4)+
geom_ribbon(aes(x = x_labels , ymin = Qtr1 , ymax = Qtr3),data=t_out_summary,colour = '#ece9d8',fill = '#33ff99',alpha = 0.2)+
scale_x_discrete(name=scale_x, labels=plot_labels)+
scale_y_continuous(name=scale_y, labels = percent_format())+
geom_line(aes(x = x_labels,y = Median,colour="Median"),data=t_out_summary)+
geom_point(aes(x = x_labels,y = Median,colour="Median"),data=t_out_summary,shape=4)

print(hist_points_cols_val)
print(hist_points_labels_val)
for( i in 1: length(hist_points)){
p   <- p + geom_line(aes(x = x_labels,y = t_out_summary[[hist_points_cols_val[i]]],colour=hist_points_labels_val[i]),data=t_out_summary,linetype='dashed')+
    geom_point(aes(x = x_labels,y = t_out_summary[[hist_points_cols_val[i]]],colour=hist_points_labels_val[i]),data=t_out_summary,shape=4)      
}

p<-p+scale_colour_hue(name="Legend")

数据如下：

`> str(t_out_summary)
'data.frame':   12 obs. of  11 variables:
 $ Min     : num  0.121 0.132 0.145 0.164 0.172 ...
 $ Qtr1    : num  0.154 0.165 0.174 0.191 0.2 ...
 $ Median  : num  0.184 0.195 0.203 0.218 0.225 ...
 $ Qtr3    : num  0.22 0.231 0.238 0.249 0.253 ...
 $ Max     : num  0.398 0.381 0.37 0.351 0.339 ...
 $ p_1D    : num  0.16 0.169 0.176 0.197 0.207 ...
 $ p_2D    : num  0.153 0.163 0.171 0.193 0.204 ...
 $ p_1W    : num  0.168 0.179 0.187 0.204 0.215 ...
 $ p_2W    : num  0.141 0.154 0.163 0.184 0.196 ...
 $ p_1M    : num  0.146 0.157 0.165 0.186 0.201 ...
 $ x_labels: int  1 2 3 4 5 6 7 8 9 10 ...`

我正在使用最小、最大点来构建丝带，然后想添加 p_1D、p_2D 点和线。我不确定你所说的有利于ggplot2图形的方式是什么意思？我正在使用 for 循环来覆盖不同的图。没有for循环我该怎么做？

您尚未提供可重现的示例，因此我将尝试解释我会尝试的内容：

将绘图保存到列表中，每个列表元素中的功能区都相同。 然后循环列表并添加不同的线和点。 然后将图例名称添加到每个列表元素中。

然后您可以从列表中访问绘图。