# NOT RUN {
barplot(Domestic$rate, names.arg = Domestic$age)
# }
# NOT RUN {
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