Line Graph for BCG Coverage
Step 1 Group the BCG Coverage by Month
mywak<-mywak %>%
group_by(Month) %>%
summarise(mean(BCG, na.rm = TRUE))
view(mywak)
Step 2 Standardise the order of Months
mywak%>%
mutate(Month=factor(Month,levels=c("Jan","Feb","Mar","Apr","May","Jun"))) %>%
factor(Month= levels(month.abb))
##Step 2 Draw a line graph with points well outlined
mywak%>%
ggplot(aes(x=Month,y= mean(BCG, na.rm = TRUE)
, group=1))+
geom_line(color="yellow", size=1)+
geom_point(color="red", size=3)+
labs(title = "Monthly BCG Coverage", ylab ="Coverage(%)", xlab="Month")+
theme_bw()