I have my codes over here:
library(tidyverse)
library(ggplot2)
data <- read.csv("data/assassination.csv")
data1 <- data %>% pivot_longer(-Type, names_to = "Attempts", values_to = "Number")
ggplot(data1, aes(x = Type, y = Number, fill = Attempts)) + geom_bar(position = "dodge", width = 0.8, stat = "identity") + scale_fill_grey(start = 0, end = 0.6) + labs(x = "Type", y = "Tenures with assassination attempts (%)") + theme(axis.text.x = element_text(angle = 45, hjust = 1), plot.title = element_text(hjust = 0.5, size = 10, face = "bold")) + theme_bw()