r中的多个黄土线

Question

我可以根据一列日期和第二列值创建R中的黄土线。加载数据集后，我可以看到以下一列数据：

scatter.smooth(x=1:length(goals$Value), y=goals$Value) 

但是，如何为其他列添加多个黄土线？在一张图中绘制所有黄土线的代码是什么？再说了，其他各个列被命名为值2，值3，值4等

Answer 1

你会使用lines功能：

# create test data 
set.seed(123) 
df <- data.frame("days"=1:25, "v1"=rnorm(25), "v2"=(rnorm(25)+0.1)) 
# first plot 
scatter.smooth(x=df$days, y=df$v1) 
# add plot of second lowess line 
lines(loess.smooth(x=df$days, y=df$v2)) 

增添色彩的台词：

scatter.smooth(x=df$days, y=df$v1, lpars=list(col="red")) 
lines(loess.smooth(x=df$days, y=df$v2), col="green") 

Answer 2

如果您避风港” t还没有考虑它，包ggplot2使这样的图形问题更容易处理，并给出更好的图表：

library(ggplot2) 
library(tidyr) 

set.seed(123) 
df <- data.frame("days"=1:25, "v1"=rnorm(25), "v2"=(rnorm(25)+0.1)) 

#Reshape data from wide to long 
df2 <- gather(df,var,val,c(v1,v2)) 

ggplot(df2,aes(x = days, y = val)) + 
    geom_point() + 
    geom_smooth(aes(colour = var),se = F) 

如果你不想重塑数据，您可以添加单独的行这样的：

ggplot(df,aes(x = days, y = v1)) + 
    geom_point() + #Add scatter plot 
    geom_smooth(aes(colour = 'v1'),se = F) + #Add loess 1 
    geom_smooth(aes(y = v2,colour = 'v2'),se = F) + #Add loess 2... and so on 
    scale_colour_discrete(name = 'Line', 
         breaks = c('v1','v2'), 
         labels = c('variable 1','variable 2')) #Define legend