如何将列中的所有数据移动到单个列中(不合并)，然后在R中拆分成新列？

install.packages("reshape2")
library(reshape2)

   ID  Name  Score1  Score2  Score3
1   1   Tom      80      85      90
2   2   Bob      75      70      80
3   3  John      90      95      85

melted_df <- melt(df, id.vars = c("ID", "Name"), measure.vars = c("Score1", "Score2", "Score3"))

   ID  Name variable value
1   1   Tom   Score1    80
2   2   Bob   Score1    75
3   3  John   Score1    90
4   1   Tom   Score2    85
5   2   Bob   Score2    70
6   3  John   Score2    95
7   1   Tom   Score3    90
8   2   Bob   Score3    80
9   3  John   Score3    85

new_df <- dcast(melted_df, ID + Name ~ variable, value.var = "value")

   ID  Name Score1 Score2 Score3
1   1   Tom     80     85     90
2   2   Bob     75     70     80
3   3  John     90     95     85