过滤数据集并进行ggplot

Question

我正在尝试过滤ggplot()中的数据集，并为人口在500万以下的各个国家/地区显示一组折线图。

我将数据集本地保存到我的计算机中，但是为了方便起见，我只输入了github地址。

library(ggplot2)
load('https://github.com/inspectordanno/food_production_r/blob/master/countriesbyFood.rdata')

ggplot(countriesbyFood[countriesbyFood$Item=="Wheat and products" & 
                         countriesbyFood$POP_EST < 5000000, ]) +
  geom_line(aes(x = Year, y = Amount, color = Element)) + 
  facet_wrap(~Area)

我得到：

  

错误：必须从色调调色板中请求至少一种颜色。

Answer 1

代码中很少有更改，并且在加载数据后对我有用。

library(tidyverse)

countriesbyFood %>%
   mutate(POP_EST = as.numeric(as.character(POP_EST))) %>%
   filter(Item == "Wheat and products" & POP_EST < 5000000) %>%
   ggplot() + 
   geom_line(aes(x = Year, y=Amount, color=Element)) + 
   facet_wrap(~Area)