我在R中使用ggplot创建阴谋,并且我使用了一个循环来加速我的绘图时间。不过,我有问题在同一个图中绘制多行。 数据:R:如何在ggplot中使用一个循环绘制一条阴影中的多条线
df <- c("Results", "Capacity", "Power", "LDI","LDE", "LB", "PDC","D")
一些数据
Results Capacity Power LDI LDE PDC D CperkWh
1 ImpactDC 1.00 PG20 LDI0.01 LDE0 PDC0 D10 0.010950532
2 ImpactDC 0.95 PG10 LDI0.02 LDE0 PDC0 D10 0.080374607
3 ImpactDC 0.90 PG50 LDI0.003 LDE0 PDC0 D10 0.010158171
4 ImpactDC 0.85 PG5 LDI0.05 LDE0 PDC0 D10 0.006994843
5 ImpactDC 0.80 PG3 LDI0.02 LDE0 PDC0 D10 0.009684512
6 ImpactDC 0.75 PG20 LDI0 LDE0 PDC0 D10 0.007891302
基于here,看起来像这样我使用的循环:
Power.graph <- function(df, na.rm = TRUE, ...){
Powerlist <- unique(df$Power)
for (i in seq_along(Powerlist)){
plot <-
ggplot(subset(df, df$Power==Powerlist[i]),
aes(Capacity, y = CperkWh), group = df$Power, colour = PDC) +
geom_line() +
geom_point()+
theme(axis.text.x = element_text(size=12))+
facet_wrap(~ PDC, ncol =1)+
theme(legend.position = "none")+
scale_y_continuous("Income in €/kWh")+
scale_x_continuous("Capacity of the line")+
ggtitle(paste(Powerlist[i], ' Capacity of the line \n',
"Income per kWh \n",
sep=''))
#save plot as PNG
ggsave(plot = last_plot(), file= paste(StoreResults, '/Results/',
Powerlist[i], "YesDCNoV2G.png", sep=''), scale=2)
print(plot)
}
}
#Run the function
Power.graph(df)
我想什么做的是积对于LDI的每个值,分别有多行(所以图CperkWh)。当我运行该程序时,我收到的图是我想要的,但geom_line命令连接所有点,我希望它只连接具有相同LDI值的点。这是现在发生的事情:
任何人都可以帮助我吗?
你能否提供一些样本数据,而不仅仅是你的列名? – cmaher
好像你可能需要将'group'移到'aes'里面。尝试添加一个[可重现的例子](https://stackoverflow.com/questions/5963269/how-to-make-a-great-r-reproducible-example),所以人们可以帮助你更好。 – aosmith
谢谢你的提示:我已经添加了一些数据。 – ima