tidy()を使ってopenxlsxで結果を出力

    
        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)
        


参考文献

tidy.lm function | R Documentation