Here is the code. I am missing a 2008 year if you look at the picture of my plot provided.
ggplot(avg_years_location, aes(x = year, y = avg.wood.found,
color = location.name)) +
geom_point() +
theme_classic() +
xlab("Year") +
ylab("Average Number of Wood Ticks Found") +
guides(col = guide_legend(title = "Location Name")) +
scale_x_continuous(labels = as.character(avg_years$year),
breaks = avg_years$year) +
expand_limits(y = c(0, 4)) +
theme(axis.text.x = element_text(angle = 90),
plot.title = element_text(size = 15, face = "bold"),
legend.title = element_text(size=15),
legend.text = element_text(size=12)) +
ggtitle("Average Number of Harvard Forest\nWood Ticks Found Per Year")