作者TreeMan (好啊...)
看板R_Language
标题Re: [问题] 输出的结果，如何完整贴到文件呢?(求救)
时间Sat Nov 3 17:16:45 2018
我用writeLines试着写了一个, 应该是可以符合你的需求, 你可以再尝试最佳化~
#示范用data frame
library(dplyr)
x <- c('A', 'B', 'C')
y <- c(1, 2, 3)
df <- data.frame(x, y) %>%
mutate_all(as.character)
#先设定一个档案 (档名改word也可以), 等会writeline可以写入
text_print <- file("text_print.txt", open="wt")
ch.col<- names(df)[sapply(df, is.character)]
for (name in ch.col)
{
line1 <- sprintf("Unique value for %s is",name)
line2 <- unique(df[[name]])
writeLines(line1, con = text_print, sep = "\n", useBytes = FALSE)
writeLines(line2, con = text_print, sep = " ", useBytes = FALSE)
writeLines("\n", con = text_print, sep = "\n", useBytes = FALSE)
}
close(text_print)
#开启档案就可以看到写入的资料了
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 1.173.79.18
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/R_Language/M.1541236608.A.A6C.html
1F：推 ronald736: 谢谢大大，我再试试看 11/03 21:39
2F：→ TreeMan: 啊 刚才发现, 那个paste0是测试时用的, 我把它拿掉~ 11/03 22:19
※ 编辑: TreeMan (1.173.79.18), 11/03/2018 22:19:50
3F：推 ronald736: 不过後来我有跑 paste0不影响 ㄧ样可以汇出 11/04 09:50