如何基于单元格内容将R语言数据框转换为指定格式的宽表？

我有一个大型数据框，其中部分参数的测量分为两种情况：

• 无特定侧（命名为"NoSide"）；
• 同时测量右侧和左侧。

输入数据框代码如下：

myinput <- data.frame(Parameter=letters[1:10], NoSide=c(NA,NA,NA,1,3,3,2,0,1,NA), Right=c(2,3,1,NA,NA,NA,NA,NA,NA,1), Left=c(0,1,4,NA,NA,NA,NA,NA,NA,2))

需要生成符合以下规则的宽表：

• 从左到右读取NoSide、Right、Left列的非NA值；
• 列名规则：NoSide对应参数名，Right/Left对应“参数名_Right”/“参数名_Left”。

期望输出示例：

myheaders = c("a_Right","a_Left","b_Right","b_Left","c_Right","c_Left","d","e","f","g","h","i","j_Right","j_Left")
mydata = c(2,0,3,1,1,4,1,3,3,2,0,1,1,2)
myoutput = as.data.frame(t(mydata))
colnames(myoutput) <- myheaders

方法一：基础R实现（无需额外包） #

直接遍历每行数据收集有效信息，无第三方包依赖，适合大型数据框：

# 逐行处理，收集有效列名和对应数值
row_results <- lapply(1:nrow(myinput), function(row_idx) {
  param <- myinput$Parameter[row_idx]
  result <- list(headers = character(), values = numeric())
  
  # 检查NoSide列
  if (!is.na(myinput$NoSide[row_idx])) {
    result$headers <- c(result$headers, param)
    result$values <- c(result$values, myinput$NoSide[row_idx])
  }
  # 检查Right列
  if (!is.na(myinput$Right[row_idx])) {
    result$headers <- c(result$headers, paste0(param, "_Right"))
    result$values <- c(result$values, myinput$Right[row_idx])
  }
  # 检查Left列
  if (!is.na(myinput$Left[row_idx])) {
    result$headers <- c(result$headers, paste0(param, "_Left"))
    result$values <- c(result$values, myinput$Left[row_idx])
  }
  
  result
})

# 合并所有结果
all_headers <- unlist(lapply(row_results, \(x) x$headers))
all_values <- unlist(lapply(row_results, \(x) x$values))

# 生成最终数据框
myoutput <- as.data.frame(t(all_values))
colnames(myoutput) <- all_headers

方法二：tidyverse实现（代码更简洁） #

利用tidyr和dplyr函数简化操作，代码可读性更强：

library(tidyr)
library(dplyr)

myoutput <- myinput %>%
  # 转长格式并过滤NA值
  pivot_longer(
    cols = -Parameter,
    names_to = "Side",
    values_to = "Value",
    values_drop_na = TRUE
  ) %>%
  # 生成符合规则的列名
  mutate(Header = if_else(Side == "NoSide", Parameter, paste0(Parameter, "_", Side))) %>%
  # 转回宽格式
  pivot_wider(names_from = Header, values_from = Value) %>%
  # 调整列顺序匹配期望输出（pivot_wider默认按列名字母排序）
  select(all_of(c("a_Right","a_Left","b_Right","b_Left","c_Right","c_Left","d","e","f","g","h","i","j_Right","j_Left")))

两种方法均可得到符合要求的输出，基础R方法无包依赖，tidyverse方法代码更简洁直观。

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