r - 我可以从 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

我不确定 loess 函数ggplot2使用什么，但这是提取 loess 对象以在 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)