将两个变量绘制成一个折线图

Question

对不起，如果我对我的问题的解释不是很清楚（我对R非常陌生），但是我试图将2个变量（平均谷物产量，平均土地面积变化）绘制到同一区域该图表显示了某个日期范围内谷物单产增长与土地面积变化之间的差异，但我无法弄清楚如何使其按自己的方式工作。这是我的初始数据集以及相应变量的图片：

 year      Avg        value
<chr>      <chr>      <dbl>
1961    meancereal  100.0000        
1961    meanland    100.0000        
1962    meancereal  107.6528        
1962    meanland    100.9864        
1963    meancereal  108.3420        
1963    meanland    101.4125        
1964    meancereal  109.5492        
1964    meanland    104.1026        
1965    meancereal  111.8808        
1965    meanland    105.2984

我尝试转换为更长的数据集，因此我没有一个单独的两列，而仅有一个平均值列和一个值列：

landchangeC<-land_use %>%
  filter(year>1960,year<2015)%>%
  group_by(year) %>%
  summarise( meancereal= mean(cereal_yield_index, na.rm=TRUE),
             meanland=mean(land_area_change, na.rm=TRUE))


landchangeC<-landchangeC%>%
  pivot_longer(meancereal:meanland, names_to="Avg", values_to="value")


landchangeC%>%
  ggplot(aes(year, value, color=Avg))+
  geom_line()+
  geom_area()

这是我到目前为止编写的代码：

https://www.googleapis.com/auth/youtube Manage your YouTube account
<URI> Scope description

运行代码后，它仅显示一个空白图形：

非常感谢您的帮助！