library(ggplot2) library(dplyr) library(broom) library(openxlsx) lm.res <- lm(mpg ~ wt + qsec, data = mtcars) lm.res %>% summary() %>% tidy() -> lm.tidy lm.res %>% summary() %>% glance() -> lm.glance wb <- createWorkbook() addWorksheet(wb, 'Sheet1') addWorksheet(wb, 'Sheet2') writeData(wb, sheet = 'Sheet1', x = lm.tidy, withFilter=F) writeData(wb, sheet = 'Sheet2', x = lm.glance, withFilter=F) saveWorkbook(wb, "lm.res.xlsx", overwrite = T)
参考文献