This week's data is from Wikipedia, with credit to Georgios Karamanis for sharing the dataset.
A Reddit /r/dataisbeautiful post covers this data.
emperors <- readr::read_csv("https://raw.githubusercontent.com/rfordatascience/tidytuesday/master/data/2019/2019-08-13/emperors.csv")
| variable | class | description |
|---|---|---|
| index | double | Numerical Index |
| name | character | Name |
| name_full | character | Full Name |
| birth | date | Birth date |
| death | date | Death date |
| birth_cty | character | Birth city |
| birth_prv | character | Birth Province |
| rise | character | How did they come to power |
| reign_start | date | Date of start of reign |
| reign_end | date | Date of end of reign |
| cause | character | Cause of death |
| killer | character | Killer |
| dynasty | character | Dynasty name |
| era | character | Era |
| notes | character | Notes |
| verif_who | character | If verified, by whom |