如何在R中导入Qualtrics导出的CSV并保留变量名与标签？

首先，你代码里的报错原因很明确：t1是未定义的对象，read.csv()要求第一个参数必须是文件路径字符串或连接对象，你直接使用未赋值的t1，导致函数无法识别文件来源，因此报错。

下面是两种可行的解决方案：

方案一：Base R原生实现 #

1. 先读取CSV的前两行，分别提取变量名和标签：

# 读取前两行数据，不设置表头
top_rows <- read.csv("filename.csv", nrows = 2, header = FALSE, stringsAsFactors = FALSE)
# 第一行是变量名
var_names <- top_rows[1, ]
# 第二行是变量标签
var_labels <- top_rows[2, ]

2. 读取实际数据部分（跳过前两行）：

# 跳过前两行，不设置表头，之后手动赋值变量名
data <- read.csv("filename.csv", skip = 2, header = FALSE, stringsAsFactors = FALSE)
colnames(data) <- var_names

3. 批量给变量添加标签：

# 遍历每个变量，设置标签属性
for (i in seq_along(var_labels)) {
  attr(data[[i]], "label") <- var_labels[i]
}

方案二：用labelled包简化操作 #

如果经常处理带变量标签的数据，推荐使用labelled包，步骤更简洁：

library(labelled)

# 先读取完整数据（此时表头为第一行变量名，原CSV的第二行标签会被当成第一行数据）
data <- read.csv("filename.csv", header = TRUE, stringsAsFactors = FALSE)
# 读取原CSV的第二行作为变量标签
var_labels <- read.csv("filename.csv", nrows = 1, skip = 1, header = FALSE, stringsAsFactors = FALSE)
# 批量设置变量标签
var_label(data) <- as.character(var_labels)
# 删除被误读为数据的标签行
data <- data[-1, ]

注意：如果导出的CSV存在编码问题，可以在read.csv()中添加fileEncoding = "UTF-8"参数来避免乱码。

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