Early School Ratings

library(ggplot2)
library(tidyverse)

## -- Attaching packages --------------------------------------- tidyverse 1.3.1 --

## v tibble  3.1.6     v dplyr   1.0.7
## v tidyr   1.1.4     v stringr 1.4.0
## v readr   2.1.1     v forcats 0.5.1
## v purrr   0.3.4

## -- Conflicts ------------------------------------------ tidyverse_conflicts() --
## x dplyr::filter() masks stats::filter()
## x dplyr::lag()    masks stats::lag()

library(stringr)

filename <- "https://raw.githubusercontent.com/djunga/Project-2-Data-Tidying/main/school-quality.csv"

responses <- read.csv(filename, header=TRUE, sep=",")

Quality Review 1.2: How effective is the teaching and learning? Research-based, effective instruction that yields high quality student work.

ggplot(data=responses) +
  geom_bar(mapping = aes(x = QR_1_2))