将 apply() 的内容保存到 CSV

Question

我在下面有一个示例数据：

library(prodlim)

NUM <- 100
dat1 <- SimSurv(NUM)
dat1$time <- sample(24:160,NUM,rep=TRUE)
dat1$X3 <- sample(0:1,NUM,rep=TRUE)
dat1$X4 <- sample(0:9,NUM,rep=TRUE)
dat1$X5 <- sample(c("a","b","c"),NUM,rep=TRUE)
dat1$X6 <- sample(c("was","que","koa","sim","sol"),NUM,rep=TRUE)
dat1$X7 <- sample(1:99,NUM,rep=TRUE)
dat1$X8 <- sample(1:200,NUM,rep=TRUE)

attach(dat1)

我发现了一行简洁的代码，它提供了简单的summary(dataset) 在问题“Loop through a .csv file in R, computing relative frequencies?”中一次无法完成的所有必要频率：

freq <- apply(X = dat1, MARGIN = 2, FUN = function(x) {summary(factor(x))})

我的问题是如何提取每个可变频率，以便可以在一个命令中将它们保存在 CSV 文件中？

命令 freq[1:1] 到 freq[n:n] 可以完成这项工作，但编辑每个命令以进行打印很繁琐，而且控制台中的输出需要进一步的文本编辑。

Answer 1

在@user20650 的帮助下，我设法解决了我的问题。

freq <- apply(X = dat1, MARGIN = 2, 
  FUN = function(x) {
    summary(factor(x), , maxsum=Inf))
    # maxsum=Inf will prevent truncation of value frequencies
})

sapply(seq(freq), 
  function(z) write.csv(
    freq[z], 
    paste0("path/to/folder/",names(freq[z]),".csv") 
  )
)

• 来自线程“summary(list) is awesome, but I want more than summary”的maxsum=Inf 可防止截断汇总值频率。
• sapply() c/o @user20650 将每个频率保存到一个单独的 CSV 文件中，变量名称为文件名。