This is a report showing the distribution of the square footage of enclosed vs. unenclosed sidewalk cafes.

library(readr)
## Warning: package 'readr' was built under R version 4.3.3
sidewalk <- read.csv("Sidewalk_Cafes.csv")

The data was split into two data frames containing the enclosed and unenclosed data using the following code:

library(dplyr)
## 
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
## 
##     filter, lag
## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union
enclosed <- filter(sidewalk, sidewalk$Sidewalk.Cafe.Type == 'Enclosed')
unenclosed <- filter(sidewalk, sidewalk$Sidewalk.Cafe.Type == 'Unenclosed')

The data was then plotted with this code:

boxplot(enclosed$Lic.Area.Sq.Ft, unenclosed$Lic.Area.Sq.Ft, names=c("Enclosed", "Unenclosed"), main="NYC Sidewalk Cafe Size")