在R中使长格式选择性地pivot_longer()整齐

pivot_longer(data, cols, names_to, values_to)

library(tidyr)

# 创建一个示例数据框
data <- data.frame(
  id = c(1, 2, 3),
  var1 = c(10, 20, 30),
  var2 = c(40, 50, 60),
  var3 = c(70, 80, 90)
)

# 使用pivot_longer()函数转换数据
data_long <- pivot_longer(data, cols = starts_with("var"), names_to = "variable", values_to = "value")

# 输出转换后的数据
print(data_long)

# A tibble: 9 x 3
     id variable value
  <dbl> <chr>    <dbl>
1     1 var1        10
2     1 var2        40
3     1 var3        70
4     2 var1        20
5     2 var2        50
6     2 var3        80
7     3 var1        30
8     3 var2        60
9     3 var3        90