if (FALSE) {
data(usda.gmoadoption)
dat <- usda.gmoadoption
library(ggplot2)
ggplot(dat, aes(x = year, y = percent, color = crop)) +
geom_point() +
geom_line() +
labs(
title = "Adoption of Genetically Engineered Crops in the U.S.",
y = "Percentage of acres for each crop"
) +
theme_minimal()
}
Run the code above in your browser using DataLab