R中合并Piezometer数据框列表时melt函数使用异常求助

你遇到的问题是因为melt会把所有非指定id.vars的列都拆分成variable和value行，而你的每个数据框里有大量多余列（13或21列），导致行数被无意义地展开。要得到正确的合并结果，需要先清理每个数据框，只保留需要的列，再添加 piezometer 编号后合并。

步骤说明 #

1. 确保列表中的每个元素对应明确的 piezometer 编号（K01-K09），如果列表还没命名，先给元素命名。
2. 遍历每个数据框，仅保留dateandtime、barocompensation_kpa和目标水位列L1，同时添加记录当前 piezometer 编号的列。
3. 将所有处理后的小数据框行绑定，得到总条数为9×96860=871740的结果。

代码实现（tidyverse 版本） #

# 加载所需包
library(dplyr)
library(purrr)

# 给列表元素命名为K01-K09（如果还没命名）
names(waterlevels) <- paste0("K", sprintf("%02d", 1:9))

# 清理每个数据框并添加编号列
waterlevels_cleaned <- imap(waterlevels, function(df, piezometer_id) {
  df %>%
    select(dateandtime, barocompensation_kpa, L1) %>% # 仅保留需要的列
    mutate(piezometer = piezometer_id) # 添加piezometer编号
})

# 合并所有数据框
waterlevels_all <- bind_rows(waterlevels_cleaned)

代码实现（基础R 版本） #

# 给列表元素命名为K01-K09（如果还没命名）
names(waterlevels) <- paste0("K", sprintf("%02d", 1:9))

# 初始化空数据框
waterlevels_all <- data.frame()

# 遍历处理每个数据框
for (piezometer_id in names(waterlevels)) {
  # 提取当前数据框并保留指定列
  df_clean <- waterlevels[[piezometer_id]][, c("dateandtime", "barocompensation_kpa", "L1")]
  # 添加piezometer编号列
  df_clean$piezometer <- piezometer_id
  # 合并到总数据框
  waterlevels_all <- rbind(waterlevels_all, df_clean)
}

处理完成后，waterlevels_all会包含四列：dateandtime、barocompensation_kpa、L1（对应各 piezometer 的水位数据）、piezometer（记录K01-K09编号），总行数符合预期的871740行。

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