我有一个数据框：
| 车站 | 天 | 沉淀 |
|---|---|---|
| 一个 | 1 | w |
| 一个 | 2 | X |
| 乙 | 1 | 是的 |
| 乙 | 3 | z |
我需要创建一个新的数据框，将 Day 列中的值作为新的列标题：
| 车站 | 1 | 2 | 3 |
|---|---|---|---|
| 一个 | w | X | |
| 乙 | 是的 | z |
我尝试了子集，总结，然后合并。
df1 <- subset(df, DAY == "1")
df2 <- subset(df, DAY == "2")
df3 <- subset(df, DAY == "3")
df1 <- df1 %>% group_by(STATION) %>% summarise(DAY_1 = sum(Precip))
df2 <- df2 %>% group_by(STATION) %>% summarise(DAY_2 = sum(Precip))
df3 <- df3 %>% group_by(STATION) %>% summarise(DAY_3 = sum(Precip))
df_grouped <- merge(df1, df2, all = TRUE)
df_grouped <- merge(df_grouped, df3, all = TRUE)
这可以满足我的要求，但我相信可能有更简单的方法。我将不胜感激任何想法。谢谢！