> aggregate(Positive.Cases ~ Year + County, FUN=sum, data=data)
Year County Positive.Cases
1 2006 Alameda 13
2 2006 Butte 93
3 2006 Contra Costa 40
4 2006 Coulsa 22
# Barplot
library(ggplot)
library(dplyr)
data %>%
mutate(Year = factor(Year)) %>%
group_by(Year, County) %>%
summarise(Case=sum(Positive.Cases)) %>%
ggplot(aes(Year, Case,fill=County)) +
geom_bar(stat="identity", position="dodge")