setwd("/Users/myron/Documents/R/CSV Files")

library(ggplot2)
library(readr)
library(dplyr)
library(MASS)
library(gridExtra)
library(gganimate)
library(magrittr)

Data_New <- read_csv("Data_New.csv")
View(Data_New)
head(Data_New)

# A tibble: 6 x 5
   year Country       Mathmatics Science Reading
  <dbl> <chr>              <dbl>   <dbl>   <dbl>
1  2000 Hong Kong            560     525     541
2  2000 Japan                557     550     522
3  2000 South Korea          547     552     525
4  2000 United States        493     499     504
5  2000 Finland              536     538     546
6  2003 Hong Kong            550     539     510

# Keep only 3 names
Data <- Data_New %>%
  filter(Country %in% c("Japan", "South Korea", "United States", "Hong Kong", "Finland")) 
  #filter(sex=="F")

# Plot
Data %>%
  ggplot(aes(x=year, y=Science, group=Country, color=Country)) +
  geom_line() +
  geom_point() +
  #scale_color_viridis(discrete = TRUE) +
  ggtitle("Pisa Science scores over the past 20 years") +
  #theme_ipsum() +
  ylab("Subject Scores") +
  transition_reveal(year)