R传播问题：添加新的更新数据后，spread（）创建瀑布数据帧

Question

我试图建立一个年度数据框架，其中输入数据每月更新一次。它本质上是历史性的，变化通常仅在最近几年发生。我认为，仅添加更新的信息会比一遍又一遍地重复添加重复的信息要容易得多（该数据每月更新以进行年度估算，并可以追溯到1960年每个国家的世界农作物供需情况）。起始数据如下：

Corn_US_World_Model <- FAS %>% 
                       group_by(Market_Year)%>%filter(Commodity == "Corn")%>%
                       select(Attribute, Country, Market_Year, Thousand_MT)

Corn_US_World_Model_test<- Corn_US_World_Model %>%
                           group_by(Market_Year)%>%  
                           mutate(grouped_id = row_number())%>%
                           spread(Market_Year, Thousand_MT)%>% 
                           select(-grouped_id)

散布后，我最终会遇到这样的瀑布

我想要的是

当我为特定国家过滤（）时，我没有瀑布版本。但是，当我在数据集中的所有国家/地区进行操作时，都会这样做。