removing the zero yield crop countries from the plot in chp 7

model-slr.qmd

@@ -697,6 +697,7 @@ Once you create a curve for each, describe what is important in your fit.[^07-mo
 The plot below displays the relationships between various crop yields in countries.
 In the plots, each point represents a different country.
 The x and y variables represent the proportion of total yield in the last 50 years which is due to that crop type.
+If a country did not produce a particular crop, it has been removed from the plot (so different plots may have different numbers of dots, each corresponding to one country).
 
 Order the six scatterplots from strongest negative to strongest positive linear relationship.
 
@@ -720,6 +721,7 @@ crops_country <- crops_country |>
   summarise(total = sum(yield, na.rm = TRUE), .groups = "drop_last") |>
   mutate(prop = (total / sum(total)) * 100) |>
   ungroup() |>
+  filter(prop > 0) |> 
   pivot_wider(
     names_from = crop,
     values_from = c(total, prop),