This is a reprot showing the distribtion of square footate of enclosed vs. unenclosed sidewalk cafes in NYC. It is based on the latest release of data by NYC at the time of report generation. This report was generated on ‘r date()’.

sidewalk<-read.csv("~/NYU/classes/2. R/Sidewalk_Cafes.csv")
sidewalk<-data.frame(sidewalk)

This data was split into two dataframes containing the enclosed and unenclosed data using the following code:

enclosed <- subset.data.frame(sidewalk, sidewalk$Sidewalk.Cafe.Type == 'Enclosed')

unenclosed <- subset.data.frame(sidewalk, sidewalk$Sidewalk.Cafe.Type == 'Unenclosed')

This 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")