project <- read.csv("project.csv")
df_project <- data.frame(project)
View(project)
df_project <- df_project %>%
mutate(grad = ifelse(completion >= 2015, "A",
ifelse(completion >=2010,"B","C")))
library("foreign", lib.loc="C:/Program Files/R/R-3.5.2/library")
library("ggplot2", lib.loc="C:/Program Files/R/R-3.5.2/library")
df_project <- df_project %>%
mutate(grad = ifelse(completion >= 2015, "A",
ifelse(completion >=2010,"B","C")))
install.packages("dplyr")
library(dplyr)
df_project <- df_project %>%
mutate(grad = ifelse(completion >= 2015, "A",
ifelse(completion >=2010,"B","C")))
table(df_project$area)
table(df_project$grad)
df_project <- df_project %>%
mutate(grade = ifelse(completion >= 2015, "A",
ifelse(completion >=2010,"B","C")))
table(df_project$grade)
library("ggplot2", lib.loc="C:/Program Files/R/R-3.5.2/library")
ggplot(data = df_project, aes(x=area, y = page, fill = df_project$grade))+geom_col()
