UPenn Data

Loading Packages

library(readxl)
library("ggplot2")

Reading in Data

data = read_excel("/Users/sumedhasripada/Downloads/PennData.xlsx")

Creating data frames

df1 <- data.frame(rating = c("1", "2", "3", "4"), percentage = c(data$A))
df2 <- data.frame(rating = c("1", "2", "3", "4"), percentage = c(data$B))
df3 <- data.frame(rating = c("1", "2", "3", "4"), percentage = c(data$C))
df4 <- data.frame(rating = c("1", "2", "3", "4"), percentage = c(data$D))
df5 <- data.frame(rating = c("1", "2", "3", "4"), percentage = c(data$E))
df6 <- data.frame(rating = c("1", "2", "3", "4"), percentage = c(data$F))
df7 <- data.frame(rating = c("1", "2", "3", "4"), percentage = c(data$G))
df8 <- data.frame(rating = c("1", "2", "3", "4"), percentage = c(data$H))

Plot 1

plot <- ggplot(df1, aes(rating, percentage)) + geom_bar(stat = "identity")+ geom_text(aes(label = signif(percentage)), nudge_y = .02) + ggtitle("Conduct an Interview")
plot

Plot 2

plot <- ggplot(df2, aes(rating, percentage)) + geom_bar(stat = "identity")+ geom_text(aes(label = signif(percentage)), nudge_y = .02) + ggtitle("Develop Evidence Based Project ")
plot

Plot 3

plot <- ggplot(df3, aes(rating, percentage)) + geom_bar(stat = "identity")+ geom_text(aes(label = signif(percentage)), nudge_y = .02) + ggtitle("Conduct Interview and Physical Assessment")
plot

Plot 4

plot <- ggplot(df4, aes(rating, percentage)) + geom_bar(stat = "identity")+ geom_text(aes(label = signif(percentage)), nudge_y = .02) + ggtitle("Collaborate with Resident and Interdisciplinary Team")
plot

Plot 5

plot <- ggplot(df5, aes(rating, percentage)) + geom_bar(stat = "identity")+ geom_text(aes(label = signif(percentage)), nudge_y = .02) + ggtitle("Gather Essential and Accurate Information")
plot

Plot 6

plot <- ggplot(df6, aes(rating, percentage)) + geom_bar(stat = "identity")+ geom_text(aes(label = signif(percentage)), nudge_y = .02) + ggtitle("Conduct Thorough Medicaton Review")
plot

Plot 7

plot <- ggplot(df7, aes(rating, percentage)) + geom_bar(stat = "identity")+ geom_text(aes(label = signif(percentage)), nudge_y = .02) + ggtitle("Elicit Patient Values")
plot

Plot 8

plot <- ggplot(df8, aes(rating, percentage)) + geom_bar(stat = "identity")+ geom_text(aes(label = signif(percentage)), nudge_y = .02) + ggtitle("Provide Health Promotion Education")
plot