R语言使用melt()函数转换数据时出现名称不匹配问题求助

报错原因分析 #

报错“names do not match previous names”通常源于两个核心场景：

• 同时加载reshape2和data.table包，二者的melt函数命名冲突，导致调用了参数不匹配的函数版本
• 输入数据为tibble（tbl_df类），部分旧版本reshape2对tibble的兼容性不佳

分步解决方法 #

1. 明确指定melt函数所属包 #

直接调用时指定包名，避免函数冲突（以reshape2为例）：

library(reshape2)
# 先还原输入数据
daily_sleep_byActivity <- structure(list(activity_level = structure(1:4, .Label = c("Sedentary", 
"Lightly Active", "Moderately Active", "Very Active"), class = "factor"), 
    poor_sleepers = c(0.254032258064516, 0.258695652173913, 0.333333333333333, 
    0.253119429590018), normal_sleepers = c(0.332661290322581, 
    0.360869565217391, 0.318181818181818, 0.42602495543672), 
    excess_sleepers = c(0.413306451612903, 0.380434782608696, 
    0.348484848484849, 0.320855614973262)), class = c("tbl_df", 
"tbl", "data.frame"), row.names = c(NA, -4L))

# 指定reshape2包的melt函数
daily_sleep_byActivity_long <- reshape2::melt(daily_sleep_byActivity, id.vars = "activity_level")

2. 转换为普通数据框后处理 #

若为tibble兼容性问题，先将数据转为普通data.frame：

daily_sleep_byActivity_df <- as.data.frame(daily_sleep_byActivity)
daily_sleep_byActivity_long <- melt(daily_sleep_byActivity_df, id.vars = "activity_level")

3. 调整为期望格式 #

你的目标结果中列名、因子标签与输入存在差异，转长后需进一步修改：

# 重命名列名
colnames(daily_sleep_byActivity_long) <- c("user_type", "variable", "value")

# 修改睡眠类型的因子标签
daily_sleep_byActivity_long$variable <- factor(daily_sleep_byActivity_long$variable,
                                              levels = c("poor_sleepers", "normal_sleepers", "excess_sleepers"),
                                              labels = c("bad_sleepers", "normal_sleepers", "over_sleepers"))

# 修改活动水平的因子标签（替换"Moderately Active"为"Fairly Active"）
daily_sleep_byActivity_long$user_type <- factor(daily_sleep_byActivity_long$user_type,
                                               levels = c("Sedentary", "Lightly Active", "Moderately Active", "Very Active"),
                                               labels = c("Sedentary", "Lightly Active", "Fairly Active", "Very Active"))

替代方案：使用tidyr的pivot_longer（更推荐） #

pivot_longer是tidyverse生态中更现代的宽转长工具，语法清晰且兼容性更强：

library(tidyr)
library(dplyr)

daily_sleep_byActivity_long <- daily_sleep_byActivity %>%
  pivot_longer(cols = -activity_level, names_to = "variable", values_to = "value") %>%
  rename(user_type = activity_level) %>%
  mutate(
    variable = recode(variable,
                      "poor_sleepers" = "bad_sleepers",
                      "excess_sleepers" = "over_sleepers"),
    user_type = recode(user_type,
                       "Moderately Active" = "Fairly Active")
  ) %>%
  mutate(across(c(user_type, variable), as.factor))

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