barplot(Domestic$rate, names.arg = Domestic$age)
if (FALSE) {
library(ggplot2)
ggplot2::ggplot(data = Domestic, aes(x = age, y = rate)) + 
           geom_bar(stat = "identity", fill = "purple", color = "black") + 
           labs(x = "", y = "Domestic violence per 1000 women") + 
           theme_bw()
}
Run the code above in your browser using DataLab