This report was generated on Sun Sep 1 08:11:27 2024.
The data was split into two data frames
library(dplyr)
enclosed <- filter(sidewalk, sidewalk$Sidewalk.Cafe.Type == 'Enclosed')
unenclosed <- filter(sidewalk, sidewalk$Sidewalk.Cafe.Type == 'Unenclosed')
Note the use of the filter function
boxplot(enclosed$Lic.Area.Sq.Ft, unenclosed$Lic.Area.Sq.Ft, names=c('Enclosed','Unenclosed'), main='NYC Sidewalk Cafe Size')