dat <- read.csv("/users/sydneynazloo/desktop/POLS396/SVSscores2.csv")
library(ggplot2)

aa <- as.data.frame(dat[1:20,], drop = FALSE)
ggplot(data = aa, aes(x = Country, y = Score, fill = factor(Year))) +
    geom_bar(position = position_dodge(), stat = "identity") +
    geom_text(aes(label = Year), color = "black", position = position_dodge(0.9), size = 3.5) +
    labs(x = "Country", y = "Score", title = "Societal Violence Scale Scores: 2013-2014")

bb <- as.data.frame(dat[21:40,], drop = FALSE)
ggplot(data = bb, aes(x = Country, y = Score, fill = factor(Year))) +
    geom_bar(position = position_dodge(), stat = "identity") +
    geom_text(aes(label = Year), color = "black", position = position_dodge(0.9), size = 3.5) +
    labs(x = "Country", y = "Score", title = "Societal Violence Scale Scores: 2013-2014")
## Warning: Removed 1 rows containing missing values (geom_bar).
## Warning: Removed 1 rows containing missing values (geom_text).

cc <- as.data.frame(dat[41:61,], drop = FALSE)
ggplot(data = cc, aes(x = Country, y = Score, fill = factor(Year))) +
    geom_bar(position = position_dodge(), stat = "identity") +
    geom_text(aes(label = Year), color = "black", position = position_dodge(0.9), size = 3.5) +
    labs(x = "Country", y = "Score", title = "Societal Violence Scale Scores: 2013-2014")

dd <- as.data.frame(dat[62:83,], drop = FALSE)
ggplot(data = dd, aes(x = Country, y = Score, fill = factor(Year))) +
    geom_bar(position = position_dodge(), stat = "identity") +
    geom_text(aes(label = Year), color = "black", position = position_dodge(0.9), size = 3.5) +
    labs(x = "Country", y = "Score", title = "Societal Violence Scale Scores: 2013-2014")
## Warning: Removed 4 rows containing missing values (geom_bar).
## Warning: Removed 4 rows containing missing values (geom_text).