Going off:
en.wikipedia.org/…/List_of_United_States_presiden…
lemmy.today/…/7f0896b7-0026-4651-8aef-d3a02f56992…
And Trump’s still got almost three-quarters of his second term to go.
:::spoiler GNU R source
assassination-attempts.csv:
Number,Name,Assassination Attempts
7,Andrew Jackson,1
16,Abraham Lincoln,5
20,James A. Garfield,1
25,William McKinley,1
26,Theodore Roosevelt,1
27,William Howard Taft,2
31,Herbert Hoover,1
32,Franklin D. Roosevelt,1
33,Harry S. Truman,2
35,John F. Kennedy,2
37,Richard Nixon,2
38,Gerald Ford,3
40,Ronald Reagan,1
41,George H. W. Bush,1
42,Bill Clinton,5
43,George W. Bush,2
44,Barack Obama,13
45,Donald Trump,16
46,Joe Biden,2
assassination-attempts.r:
if (!require("pacman")) install.packages("pacman")
pacman::p_load(
ggdark,
ggplot2
)
df <- read.csv("assassination-attempts.csv")
ggplot() +
aes(x=Number, y=df$Assassination.Attempts) +
dark_theme_light() +
geom_col(data=df) +
geom_text(aes(x=df$Number,label=df$Name,angle=90,y=.1,hjust=0)) +
labs(x="Presidential Number", y="Number of Assassination Attempts")
ggsave("assassination-attempts.png",
plot=last_plot(),
width=16,
height=9,
type="cairo-png",
dpi="retina")