如何将列表模式保存为csv文件

Question

我正在尝试将列表保存为 .csv 文件

我正在使用“psych”来获取 cohen.kappa。我有包含 1000 个观察值和 51 个变量的数据（命名为 ic2）。

kappa <- function(ic2, colN) {
    tab <- vector("list", colN)
    for (i in seq_len(ncol(ic2))) {
    tab[[i]]=cohen.kappa(res[[i]])}
    tab}
a=kappa(ic2, ncol(ic2))
a

输出将是：

[[1]]
Call: cohen.kappa1(x = x, w = w, n.obs = n.obs, alpha = alpha)

Cohen Kappa and Weighted Kappa correlation coefficients and confidence boundaries 
                 lower estimate upper
unweighted kappa     1        1     1
weighted kappa       1        1     1

 Number of subjects = 1000 

[[2]]
Call: cohen.kappa1(x = x, w = w, n.obs = n.obs, alpha = alpha)

Cohen Kappa and Weighted Kappa correlation coefficients and confidence boundaries 
                 lower estimate upper
unweighted kappa  0.87      0.9  0.93
weighted kappa    0.87      0.9  0.93

 Number of subjects = 1000 

所以有 51 个输出。我想将 51 个输出保存为一个 csv 文件。我怎么能保存它？ 我想保存输出有 3 列和两行（行的名称是未加权的 kappa 和加权的 kappa；列的名称是 lower、estimate 和 upper），因为我将从输出中提取估计值。

Answer 1

我不清楚您要与 51 列中的每一列进行比较的另一个评级是什么。但这里有一个例子可以帮助你做你想做的事。我创建了一个像你一样的假数据框，但更小，只有 10 行和 5 列。我使用从 1 到 10 的数字作为参考评级，为每一行计算 Cohen 的 kappa。结果保存在一个数据框中，其行数与原始数据框的列数相同，6 个变量分别代表未加权和加权 kappa 的下限、估计值和上限。

# fake data
ic2 <- data.frame(matrix(sample(1:5, size=10*5, replace=TRUE), nrow=10))

# reference rating ?
ref <- 1:nrow(ic2)

# Cohen's kappa
results <- data.frame(t(apply(ic2, 2, function(x) as.numeric(t(cohen.kappa(cbind(ref, x))$confid)))))
names(results) <- c("klo", "k", "kup", "kwlo", "kw", "kwup")
results