R Notebook

library(ggplot2)

## Warning: package 'ggplot2' was built under R version 4.1.3

library(ggbump)

## Warning: package 'ggbump' was built under R version 4.1.3

library(fontawesome)

## Warning: package 'fontawesome' was built under R version 4.1.3

library(ggplot2)
library(kableExtra)

## Warning: package 'kableExtra' was built under R version 4.1.3

library(ggthemes)

## Warning: package 'ggthemes' was built under R version 4.1.3

library(WDI)

## Warning: package 'WDI' was built under R version 4.1.3

library(dplyr)

## 
## Attaching package: 'dplyr'

## The following object is masked from 'package:kableExtra':
## 
##     group_rows

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

library(scales)

## Warning: package 'scales' was built under R version 4.1.3

library(forcats)
library(likert)

## Warning: package 'likert' was built under R version 4.1.3

## Loading required package: xtable

## 
## Attaching package: 'likert'

## The following object is masked from 'package:dplyr':
## 
##     recode

library(scales)
library(forcats)
library(ggpmisc)

## Warning: package 'ggpmisc' was built under R version 4.1.3

## Loading required package: ggpp

## Warning: package 'ggpp' was built under R version 4.1.3

## 
## Attaching package: 'ggpp'

## The following object is masked from 'package:ggplot2':
## 
##     annotate

library(tidyverse)

## Warning: package 'tidyverse' was built under R version 4.1.3

## -- Attaching packages --------------------------------------- tidyverse 1.3.1 --

## v tibble  3.1.2     v purrr   0.3.4
## v tidyr   1.1.3     v stringr 1.4.1
## v readr   2.1.3

## Warning: package 'readr' was built under R version 4.1.3

## Warning: package 'stringr' was built under R version 4.1.3

## -- Conflicts ------------------------------------------ tidyverse_conflicts() --
## x ggpp::annotate()    masks ggplot2::annotate()
## x readr::col_factor() masks scales::col_factor()
## x purrr::discard()    masks scales::discard()
## x dplyr::filter()     masks stats::filter()
## x dplyr::group_rows() masks kableExtra::group_rows()
## x dplyr::lag()        masks stats::lag()
## x likert::recode()    masks dplyr::recode()

library(ggparliament)

## Warning: package 'ggparliament' was built under R version 4.1.3

 Date<- rep(1998:2011, 5)
  Player<-c("United States", "United States","United States","United States","United States","United States","United States","United States","United States","United States","United States","United States","United States","United States","China","China","China","China","China","China","China","China","China","China","China","China","China","China",
             "India", "India","India","India","India","India","India","India","India","India","India","India","India","India", "Russia", "Russia","Russia","Russia","Russia","Russia","Russia","Russia","Russia","Russia","Russia","Russia","Russia","Russia", "Japan", "Japan","Japan","Japan","Japan","Japan","Japan","Japan","Japan","Japan","Japan","Japan","Japan","Japan")
  Position <- c(1,1,1,1,1,1,1,1,2,2,2,2,2,2,
                2,2,2,2,2,2,2,2,1,1,1,1,1,1,
                3,3,3,3,3,3,3,3,3,4,4,4,4,4,
                5,5,5,4,4,4,4,4,4,3,3,3,3,3,
                4,4,4,5,5,5,5,5,5,5,5,5,5,5)
  
  df <- data.frame(x = Date,
                   y = Position,
                   group = Player)
  couleur<- c("#202020",  "#20BF55", "#832161", 
              "#FFD100", "#564787")
  
  
  ggplot(df, aes(x = x, y = y, color = group)) +
    geom_bump(size = 1.5) +
    geom_point(size = 4) +
    scale_color_brewer(palette = "RdBu")+
    scale_x_continuous(breaks=seq(1998,2011,1))+
    scale_y_reverse()+
    geom_text(data = df %>% filter(x == max(x)),
              aes(x = x + 0.1, label = group),
              size = 3, hjust = 0)+
    scale_color_manual(values=couleur)+
    labs(x="", y="")

## Warning: Using `size` aesthetic for lines was deprecated in ggplot2 3.4.0.
## i Please use `linewidth` instead.

## 

## Scale for colour is already present.
## Adding another scale for colour, which will replace the existing scale.

x