使用R。我需要融化或重塑我的赛马数据帧

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

# 示例数据框
horse_data_wide <- data.frame(
  Horse = c("Horse1", "Horse2", "Hanger"),
  Race1 = c(1, 2, 3),
  Race2 = c(2, 1, 2),
  Race3 = c(3, 3, 1)
)

# 转换为长格式
horse_data_long <- melt(horse_data_wide, id.vars = "Horse", variable.name = "Race", value.name = "Position")

# 假设您已经有了长格式的数据框
horse_data_long <- data.frame(
  Horse = c("Horse1", "Horse2", "Horse1", "Horse2", "Hanger", "Hanger"),
  Race = c("Race1", "Race1", "Race2", "Race2", "Race1", "Race3"),
  Position = c(1, 2, 2, 1, 3, 1)
)

# 转换回宽格式
horse_data_wide <- dcast(horse_data_long, Horse ~ Race, value.var = "Position")