reshape函数值映射错误求助：被试内设计数据宽转长异常

你的核心问题是reshape函数的参数配置错误，导致变量值映射错位。以下是针对性的修正方案：

关键错误点 #

1. idvar参数与数据列名不匹配：你的宽数据中标识被试的列是ID，但代码中用了ResponseId，导致被试分组逻辑混乱。
2. varying参数未按变量分组：直接使用c(1:23)按列顺序取数，加上缺少列名分隔符配置，让reshape无法正确识别[视频类型].[变量名]的列名结构，最终引发值映射错位。

方案1：手动指定参数（适合少量视频类型） #

如果视频类型较少，可直接明确分组列名，同时添加sep="."帮助reshape识别列名结构：

reshape(videoratings, direction = "long",
        # 按变量分组，每个列表元素对应v.names的一个变量
        varying = list(
          valence = c("Comedy.valence", "Drama.valence", "Action.valence"),
          arousal = c("Comedy.arousal", "Drama.arousal", "Action.arousal"),
          rating = c("Comedy.rating", "Drama.rating", "Action.rating")
        ),
        timevar = "Video_Type",  # 对应目标格式的视频类型列名
        times = c("Comedy", "Drama", "Action"),
        v.names = c("Valence", "Arousal", "Rating"),  # 目标格式的变量列名
        idvar = "ID",  # 匹配宽数据的被试ID列
        sep = ".",  # 指定列名的分隔符，关键配置
        drop = "Rating"  # 如果不需要rating列，直接丢弃
)

方案2：自动匹配列名（适合20个视频的场景） #

针对20个视频的批量场景，用正则表达式自动提取列名，避免手动输入的繁琐：

# 自动提取对应变量的所有列
valence_cols <- grep("\\.valence$", colnames(videoratings), value = TRUE)
arousal_cols <- grep("\\.arousal$", colnames(videoratings), value = TRUE)
rating_cols <- grep("\\.rating$", colnames(videoratings), value = TRUE)

# 从列名中提取所有视频类型名称
video_types <- sub("\\.valence$", "", valence_cols)

# 执行格式转换
long_data <- reshape(videoratings, direction = "long",
        varying = list(valence_cols, arousal_cols, rating_cols),
        timevar = "Video_Type",
        times = video_types,
        v.names = c("Valence", "Arousal", "Rating"),
        idvar = "ID",
        sep = ".",
        new.row.names = 1:(nrow(videoratings)*length(video_types))  # 重置行名
)

# 若不需要Rating列，直接删除
long_data$Rating <- NULL

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