agData R Package

agData: an R package containing various agricultural data sets

---

Installation

devtools::install_github("derekmichaelwright/agData")

library(agData)

---

Vignettes

agData Vignettes

---

Data Sources

• FAO Food and Agriculture Organization of the United Nations www.fao.org/faostat/
• STATCAN Statistics Canada www.statcan.gc.ca/
• USDA United States Department of Agriculture www.nass.usda.gov/
• ISAAA International Service for the Acquisition of Agri-biotech Applications www.isaaa.org/

---

Data sets

STATCAN

• agData_STATCAN_Crops.csv.gz
• agData_STATCAN_Crops2.csv.gz
• agData_STATCAN_Livestock.csv.gz
• agData_STATCAN_Beehives.csv.gz
• agData_STATCAN_FarmLand_Crops.csv.gz
• agData_STATCAN_FarmLand_Farms.csv.gz
• agData_STATCAN_FarmLand_Inputs.csv.gz
• agData_STATCAN_FarmLand_Size.csv.gz
• agData_STATCAN_FarmLand_Use.csv.gz
• agData_STATCAN_FarmReceipts.csv.gz
• agData_STATCAN_Farmers.csv.gz
• agData_STATCAN_Population.csv.gz
• agData_STATCAN_Region_Table.csv.gz

---

FAO

• agData_FAO_Crops.csv.gz
• agData_FAO_Crops2.csv.gz
• agData_FAO_Livestock.csv.gz
• agData_FAO_Trade_Quantity.csv.gz
• agData_FAO_Trade_Value.csv.gz
• agData_FAO_Fertilizers.csv.gz
• agData_FAO_LandUse.csv.gz
• agData_FAO_Population.csv.gz
• agData_FAO_Producer_Prices.csv.gz
• agData_FAO_Consumer_Prices.csv.gz
• agData_FAO_Region_Table.csv.gz
• agData_FAO_Country_Table.csv.gz

---

USDA

• agData_USDA_Crops.csv.gz
• agData_USDA_GE_Crops.csv.gz
• agData_USDA_TFP.csv.gz

---

ISAAA

• agData_ISAAA_Crop.csv.gz
• agData_ISAAA_Area.csv.gz
• agData_ISAAA_Coutnry.csv.gz
• agData_ISAAA_CropPercent.csv.gz
• agData_ISAAA_DVDDVG.csv.gz
• agData_ISAAA_Value.csv.gz

---

Other

• agData_Barulina.csv.gz
• agData_LongTermMaize.csv.gz
• agData_MazieContest.csv.gz
• agData_PeopleInAg.csv.gz
• agData_PopFert.csv.gz
• agData_UK_Yields.csv.gz

---

agData_Colors

agData_Colors: a color pallete for the agData package

# Prep data
xx <- data.frame(
  Color = factor(agData_Colors, levels = agData_Colors),
  Number = 1:length(agData_Colors),
  Row = rep(1:10, each = 10, length.out = length(agData_Colors)),
  Col = rep(1:10, times = 10, length.out = length(agData_Colors)) )
# Plot
mp <- ggplot(xx, aes(x = Row, y = Col)) +
  geom_tile(aes(fill = Color)) +
  geom_label(aes(label = paste(Number, Color, sep = " - "))) +
  scale_fill_manual(values = agData_Colors) +
  scale_y_reverse() +
  theme_void() +
  theme(legend.position = "none")
ggsave("man/figures/agData_Colors.png", mp, width = 9, height = 9)

---

© Derek Michael Wright