使用likert包处理Likert量表数据，无法导出结果至CSV的问题

你遇到的错误是因为likert()函数返回的是一个自定义的likert类对象，不是标准的数据框，所以直接用write.table()会报错。咱们只需要提取对象里的结构化结果数据部分，就能顺利导出了。

修正后的代码 #

library(likert)
a <- rep(1:5, 10)
b <- rep(1:5, 10)
a <- factor(a)
b <- factor(b)
c <- data.frame(a, b)
scaledc <- likert(c)

# 提取likert分析的汇总结果（这是标准数据框格式）
likert_summary <- scaledc$results

# 导出为CSV文件，指定分隔符为逗号，不导出行名
write.table(likert_summary, file="~/DATA/scaledc.csv", sep=",", row.names=FALSE)

关键说明 #

• scaledc$results：这是likert对象中存储汇总统计的部分，包含各题项的选项占比、均值、标准差等信息，是标准的data.frame，可以直接用于导出。
• 如果需要导出原始的频数统计数据，可以用scaledc$items，同样是数据框格式。
• 添加sep=","确保生成的是标准CSV格式，row.names=FALSE可以避免把行号写入文件，让导出的表格更整洁。

内容的提问来源于stack exchange，提问作者dorayin