r - 如何从R导出结果？

Question

我正在使用以下函数来运行多个回归模型，需要了解如何将结果导出到 .csv 文件，以便我可以在数据库中使用它。

Faltu %>% 
  group_by(subgroup) %>%
  do(tidy(lm(sales ~ month_year + weekday + sequence, .)))

Faltu 是我的数据框。

Answer 1

我们可以在代码末尾使用管道write.csv:

write.csv 的文档请参见此处:https://www.rdocumentation.org/packages/AlphaPart/versions/0.8.1/topics/write.csv

# general:
write.csv(df,'Result.csv', row.names = FALSE)

# with your code:

Faltu %>% 
  group_by(subgroup) %>% 
  do(tidy(lm(sales ~ month_year + weekday + sequence, .))) %>% 
  write.csv('Result.csv')

输出:工作目录中的文件:Result.csv:

"subgroup","term","estimate","std.error","statistic","p.value"
1,"Mens","Fixed","(Intercept)","0.849",0.302
2,"Mens","Fixed","month_year","0.0113",0.0226
3,"Mens","Fixed","weekday","0.449",0.0425
4,"Mens","Fixed","sequence","-0.000914",0.000322
5,"Mens","Pants","(Intercept)","0.474",4.63
6,"Mens","Pants","month_year","0.112",0.233
7,"Mens","Pants","weekday","0.387",0.362
8,"Mens","Pants","sequence","-0.204",0.342
9,"Mens","Pull","On","(Intercept)",0.271
10,"Mens","Pull","On","month_year",0.0514