project <-read.csv("project.csv", stringsAsFactors = F)

df_project <- data.frame(project)

View(df_project)

class(df_project$page)

table(df_project$page)

ggplot(data = project, aes(x = area, y = page))+geom_col()


qplot(df_project$page)

View(project)
install.packages("dplyr")
library(dplyr)
ggplot(data = project, aes(x = width, y = length))+geom_line()


df_project <- df_project %>% 
  mutate(grade = ifelse(completion >= 2015, "A",
                        ifelse(completion >=2010 "B","C")))

table(df_project$grade)


table(project$area)

class(df_project$floormaterial)

table(df_project$floormaterial)

ggplot(data = project, aes(x = area, y = page, fill = floormaterial))+geom_col()




