如何在R中使用具有不同列规格的pivot longer函数？

pivot_longer(data, cols, names_to, values_to)

# 导入必要的包
library(tidyr)

# 创建示例数据框
data <- data.frame(ID = c(1, 2, 3),
                   Name = c("John", "Jane", "Mike"),
                   Score_Math = c(90, 85, 95),
                   Score_English = c(80, 75, 85),
                   Score_Science = c(95, 90, 92))

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

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

# A tibble: 9 x 4
     ID Name  Subject Score
  <dbl> <chr> <chr>   <dbl>
1     1 John  Math       90
2     1 John  English    80
3     1 John  Science    95
4     2 Jane  Math       85
5     2 Jane  English    75
6     2 Jane  Science    90
7     3 Mike  Math       95
8     3 Mike  English    85
9     3 Mike  Science    92