life expectancy of Nobel prize winners

---

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()