R语言：CSV文件导入与列格式转换技术求助

针对你遇到的嵌套列CSV转换问题，这里提供两种适配场景的R代码方案，基于tidyverse工具包实现：

场景1：CSV为双层表头结构（日期行+子变量行） #

如果你的CSV原始表头是两层（第一行是日期，第二行是BW/FI等子变量），按以下步骤处理：

library(tidyverse)

# 1. 导入原始数据，不自动生成列名
raw_data <- read_csv("your_data.csv", col_names = FALSE)

# 2. 合并前两行生成复合列名，修复subject/treatment列的名称
col_names <- paste(raw_data[1, ], raw_data[2, ], sep = ".")
col_names[col_names == "."] <- c("subject", "treatment")

# 3. 清洗数据：移除表头行、设置列名、转换数值类型
clean_data <- raw_data %>%
  slice(-1:-2) %>%
  set_names(col_names) %>%
  mutate(across(contains("."), as.numeric))

# 4. 重塑数据为目标格式
final_data <- clean_data %>%
  pivot_longer(
    cols = -c(subject, treatment),
    names_to = "temp",
    values_to = "BW"
  ) %>%
  separate(temp, into = c("date", "variable"), sep = "\\.") %>%
  filter(variable == "BW") %>%
  mutate(tag = subject) %>% # 若tag为独立列，替换为实际列名即可
  select(date, tag, subject, treatment, BW)

场景2：CSV导入后列名被R自动添加"X"前缀 #

如果导入后日期列名变成X2023.01.01.BW这类格式，用以下代码修复：

library(tidyverse)

# 1. 导入数据（允许自动加X前缀）
raw_data <- read_csv("your_data.csv")

# 2. 移除列名开头的X前缀，再重塑数据
final_data <- raw_data %>%
  rename_with(~ str_remove(., "^X"), starts_with("X")) %>%
  pivot_longer(
    cols = -c(subject, treatment),
    names_to = c("date", "variable"),
    # 按最后一个点拆分（区分日期中的点和日期与变量的点）
    names_sep = "\\.(?=[A-Za-z])",
    values_to = "BW"
  ) %>%
  filter(variable == "BW") %>%
  mutate(tag = subject) %>% # 按需调整tag列来源
  select(date, tag, subject, treatment, BW)

关键说明 #

• 核心逻辑是先修正列名格式，再用pivot_longer将宽表转长，最后筛选出仅包含BW的行并调整列顺序。
• 若tag是数据中已有的独立列，直接删除mutate(tag = subject)，并在select中保留原始tag列即可。

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