我可以从R中的黄土回归中导出结果吗？

Question

我对一些数据进行了黄土回归并绘制了它.问题是我想将黑线和浅红线(见图)导出到excel中.可能吗？

澄清:

我想从黄土回归而不是图表中导出基础数据.

用于计算的代码:

ggplot(data, aes(x=bigangle, y=meanz, colour=treatment)) + 
  geom_point(data=df, aes(y = X2/median(df$X2), x=X8),color="red",alpha=.6) +
  geom_smooth(data=df, aes(y = X2/median(df$X2),x=X8),fill="red", colour="black", size=1,alpha=0.4)+
  geom_point(position=position_dodge(0.1),aes(shape=treatment),   # Shape depends on cond
             size = 4,colour="black",fill="black") 

Answer 1

我不确定黄土函数ggplot2使用什么,但这里有一种方法可以在Excel中提取黄土对象到图形:

# fake data
myData <- data.frame("x"=1:100, "y"=rnorm(100))
# loess object
my.loess <- loess(y~x, data=temp)
# get SE
myPred <- predict(my.loess, se=T)
my.output <- data.frame("fitted"=myPred$fit, "SE"=myPred$se.fit)

# write out data
write.csv(my.output, file=<path/filename>.csv)