life expectancy of Nobel prize winners
KY
2020-05-24
library(dplyr)
library(ggplot2)
library(ggalt)
library(ggthemes)
library(tidyr)
library(hrbrthemes)
library(tidyverse)
library(lattice)
library(magrittr)
library(lubridate)
##語法關聯magrittr→mutate,lubridate→mdy,ggalt、ggplot2→geom_dumbbell
dta <- read.table("nobel_lspan.txt", h=T) %>%
mutate(born=mdy(Born),
died=mdy(Died),
span=died %--% born)
ggplot(dta, aes(reorder(ID, died),
x=born,
xend=died)) +
geom_dumbbell(size=rel(1.1),
colour="gold",
colour_x="goldenrod",
colour_xend="goldenrod",
dot_guide=TRUE,
dot_guide_size=0.2) +
labs(x="Year", y=NULL) +
theme_ipsum()
