knitr::opts_chunk$set(echo = TRUE) library(tidyverse) library(knitr) library(lavaan) library(psych) library(MBESS) library(xtable) library(semPlot) require(car) library(dplyr) library(lattice) library(lavaanPlot) Load the packages library(RSocrata) library(tidyverse) library(dplyr) Use the API to connect to Open Data LA base_url = "https://data.lacity.org/resource/63jg-8b9z.json?" my_token <- "XXXXXXXXXXXXXXXXXXXXX" fdf <- read.socrata(base_url, my_token) glimpse(fdf) Filter only crimes with ‘child’ in the description perpetrated against children between 6 and 12 childcrimes <- fdf %>% mutate(vict_age = as.numeric(vict_age)) %>% filter(vict_age >=6 & vict_age < 13) %>% filter(str_detect(crm_cd_desc, 'Child|CHILD|child')) Plot histogram of crimes by age ggplot(childcrimes, mapping = aes(vict_age)) + geom_bar() crimebyarea <- childcrimes %>% dplyr::group_by(crm_cd_desc, area_name) %>% dplyr::summarise(count= n()) crimebyarea <- na.