我用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)
#開啟檔案就可以看到寫入的資料了