I'm trying to add confidence intervals to some code I'm writing on a bar plot. The code looks like this:
Vis_Graph <- ggplot(avgtable, aes(x = reorder(Type.of.Participation, GraduatedEver), GraduatedEver,
fill = Type.of.Participation)) +
geom_col() +
ggtitle("Chance of Student Graduation Rates by HIP") +
labs(x = "Type of High Impact Practice", y = "Average Chance of Graduating (percentage)") +
labs(colour = "Type of Participation") +
theme(legend.position="none") +
(MyGraphTheme)
#Print the Graph
print(Vis_Graph + MyGraphTheme)
#Reorder the graph to a horizontal layout
Vis_Graph + coord_flip()
Bear in mind I'm a pre-law college student taking a coding class for fun so I'm sure what I have isn't great but the professor challenged me to add confidence intervals for fun so I'm giving it a go.