Import data

# excel file
data <- read_excel("../00_data/myData.xlsx")
data
## # A tibble: 1,430 × 4
##    country   food_category            consumption co2_emmission
##    <chr>     <chr>                          <dbl>         <dbl>
##  1 Argentina Pork                           10.5          37.2 
##  2 Argentina Poultry                        38.7          41.5 
##  3 Argentina Beef                           55.5        1712   
##  4 Argentina Lamb & Goat                     1.56         54.6 
##  5 Argentina Fish                            4.36          6.96
##  6 Argentina Eggs                           11.4          10.5 
##  7 Argentina Milk - inc. cheese            195.          278.  
##  8 Argentina Wheat and Wheat Products      103.           19.7 
##  9 Argentina Rice                            8.77         11.2 
## 10 Argentina Soybeans                        0             0   
## # ℹ 1,420 more rows

State one question

Which food category has the highest CO2 emissions? Which has the least?

Plot data

ggplot(data = data) + 
  geom_point(mapping = aes(x = consumption, y = co2_emmission, color = food_category))

Interpret

Beef has the highest CO2 emissions, with the highest consumption being around 50 kg/person/year, emissions hit about 1750 kg CO2/person/year.The food category with the lowest emissions is wheat and wheat products. It’s consumption reaches 200 kg/person/year and the highest emission is only about 50 kg CO2/person/year.