Plot annual number of spacewalks by Russia & US

Spacewalks.R

library(readr)

# read
eva <- read_csv("Extra-vehicular_Activity__EVA__-_US_and_Russia.csv")

# extract years from somewhat inconsisten Date variable
eva$year <- stringi::stri_extract_last_regex(eva$Date, "\\d{4}") # get year
eva$year <- as.numeric(eva$year)

# prepare plot data
plot_eva <- eva %>%
  group_by(year, Country) %>%
  summarise(eva_count = n())

# plot all the things!
spacewalk <- ggplot(plot_eva, aes(x=year, y = eva_count, group = Country, color = Country)) +
  geom_line() +
  theme_bw() +
  theme(legend.position = "none") +
  scale_color_brewer(palette = "Dark2") +
  facet_wrap(~Country) +
  labs(y = "Count of Extra-Vehicular Activites (Spacewalks) \n", x = "")

# save
ggsave(plot = spacewalk, file = "spacewalk.png", type = "cairo-png", 
       units = "in", dpi = 200, height = 4.5, width = 8)