melt函数报match.names错误，求助数据集重塑解决方案

原始数据集 #

data <- data.frame(
  stringsAsFactors = FALSE,
              Name = c("Name1", "Name2", "Name3", "Name1", "Name2", "Name3"),
            Date.1 = c("Value11%","Value21%",
                       "Value31%","Value11$","Value21$","Value31$"),
            Date.2 = c("Value12%","Value22%",
                       "Value32%","Value12$","Value22$","Value32$"),
            Date.3 = c("Value13%","Value23%",
                       "Value33%","Value13$","Value23$","Value33$")
)

需求说明 #

需要将上述数据集重塑为包含Name、Date、Variable 1（带%的值）、Variable 2（带$的值）的结构。

错误原因分析 #

使用melt(data, id="Name")时报错Error in match.names(clabs, names(xi)) : names do not match previous names，大概率是因为同时加载了多个存在函数冲突的包（比如reshape和reshape2/data.table），不同包的melt函数实现逻辑不同，导致列名匹配出现异常。

另外拆分后用rbind未解决问题，应该是拆分后没有先将Date列统一格式，也没对应好Variable1和Variable2的映射关系，导致合并后结构不符合预期。

可行解决方案 #

方法一：基础R分步处理 #

1. 拆分数据集，分别提取带%和带$的行：

# 提取Variable1（带%的行，前3行）
df_pct <- data[1:3, ]
# 提取Variable2（带$的行，后3行）
df_dollar <- data[4:6, ]

2. 将两个子集转换为长格式，并清理Date列和值列：

# 处理Variable1数据集
df_pct_long <- reshape(df_pct, 
                       direction = "long", 
                       varying = c("Date.1", "Date.2", "Date.3"),
                       v.names = "Variable1",
                       idvar = "Name",
                       timevar = "Date",
                       times = c("Date.1", "Date.2", "Date.3"))
# 去掉值里的%符号（可选，根据需求调整）
df_pct_long$Variable1 <- gsub("%", "", df_pct_long$Variable1)

# 处理Variable2数据集
df_dollar_long <- reshape(df_dollar, 
                          direction = "long", 
                          varying = c("Date.1", "Date.2", "Date.3"),
                          v.names = "Variable2",
                          idvar = "Name",
                          timevar = "Date",
                          times = c("Date.1", "Date.2", "Date.3"))
# 去掉值里的$符号（可选）
df_dollar_long$Variable2 <- gsub("\\$", "", df_dollar_long$Variable2)

3. 按Name和Date合并两个数据集：

final_df <- merge(df_pct_long, df_dollar_long, by = c("Name", "Date"))
# 整理列顺序
final_df <- final_df[, c("Name", "Date", "Variable1", "Variable2")]

方法二：使用tidyr包（更简洁） #

如果安装了tidyr包，可以用pivot_longer+pivot_wider组合完成：

library(tidyr)
library(dplyr)

final_df <- data %>%
  # 添加标识列，区分Variable1和Variable2
  mutate(Variable = rep(c("Variable1", "Variable2"), each = 3)) %>%
  # 将Date列转为长格式
  pivot_longer(cols = starts_with("Date."), 
               names_to = "Date", 
               values_to = "Value") %>%
  # 清理值里的符号
  mutate(Value = gsub("%|\\$", "", Value)) %>%
  # 转为宽格式，得到目标结构
  pivot_wider(names_from = Variable, values_from = Value)

运行后就能得到你需要的Name、Date、Variable1、Variable2结构的数据集。

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