0

如果我对我的问题的解释不是很清楚（我对 R 很陌生），请提前抱歉，但我正在尝试将 2 个变量（平均谷物产量，平均土地面积变化）绘制到同一个面积图中以显示谷物产量增长和土地面积之间的差异在一个日期范围内变化，但我不知道如何让它按照我想要的方式工作。这是我的初始数据集的图片，其中包含相应的变量：

  
year    meancereal   meanland
<chr>    <dbl>        <dbl>
1961    100.0000    100.0000        
1962    107.6528    100.9864        
1963    108.3420    101.4125        
1964    109.5492    104.1026        
1965    111.8808    105.2984        
1966    110.3679    106.5562        
1967    117.0725    109.7375        
1968    117.5337    112.8811        
1969    120.2902    114.9961        
1970    120.5337    114.4149

我尝试转换为更长的数据集，以便我只有一个用于平均值和一个用于值，而不是 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()

在我运行代码后它只显示一个空白图：

在此处输入图像描述

任何帮助深表感谢！

4

0 回答 0