使用成对比较的pivot_longer

library(tidyr)

# 宽格式数据
df <- data.frame(
  id = 1:3,
  var1 = c(10, 20, 30),
  var2 = c(15, 25, 35)
)

# 使用 pivot_longer 转换为长格式
long_df <- pivot_longer(df, cols = starts_with("var"), names_to = "variable", values_to = "value")

print(long_df)

# A tibble: 6 × 3
     id variable value
  <int> <chr>    <dbl>
1     1 var1        10
2     1 var2        15
3     2 var1        20
4     2 var2        25
5     3 var1        30
6     3 var2        35

# 假设列名包含特殊字符
df <- data.frame(
  id = 1:3,
  `var.1` = c(10, 20, 30),
  `var.2` = c(15, 25, 35)
)

# 清理列名
colnames(df) <- gsub("\\.", "_", colnames(df))

# 再次使用 pivot_longer
long_df <- pivot_longer(df, cols = starts_with("var"), names_to = "variable", values_to = "value")

print(long_df)