但是整篇论文我还没有看明白,所以先不给大家介绍结论了。...40,60)
"#eec21f", # [60,80)
"#A14500" # [80,111)
)
pal_safe_five <- c(
"#eec21f", # default R...4.0 yellow
"#009C9C", # light shade of teal: no red, equal green and blue
"#df356b", # default R...pal_safe_five_ordered <- pal_safe_five[c(5,2,1,3,4)]
pal_four <- pal_safe_five_ordered[c(2,5,3,4)]
加载需要的R包...country %>% magrittr::is_in(c("SWE", "USA", "JPN", "RUS"))) %>%
mutate(
name = name %>%
fct_recode