Active Tobacco Retailer Dealer Licenses

Assignment 11A

Explore NYC Open Data to see what data is available. Select a dataset to import via R Socrata and answer a question about Corona or your final project. Create a R Notebook to share your analysis. Include:

• Define global display options
• Define display options for at least one code chunk
• Use the kable or datatable functions to create at least one formatted tables
• Create at least one plot or map

Active Tobacco Retailer Dealer Licenses:

• Import this dataset of all tobacco licenses in New York City
• Summarize by Borough or Neighborhood Tabulation Area to see how many tobacco licenses were granted in Corona vs other neighborhoods in the last year

---

Code

Data Processing Preparation

To prepare for the analysis, we will load packages before processing with our data exploration.

Load Packages

library(tidyverse)
library(tidycensus)
library(scales)
library(sf)
library(RColorBrewer)
library(RSocrata)
library(ggcharts)
library(ggblanket)
library(knitr)
library(DT)
options(scipen = 999)

Import the Dataframe with RSocrata

Using RSocrata, we can import the data for Active Tobacco Retailer Dealer Licenses from the website with their API link.

tobacco_raw <- read.socrata("https://data.cityofnewyork.us/resource/adw8-wvxb.csv")

Data Processing

Filter Queens from the Raw Data

To narrow our exploration, we will filter and create a new dataset to show Queens only.

tobacco_queens <- tobacco_raw %>%
  filter(Address.Borough == "Queens") %>% 
  select(Address.City, Address.ZIP, Address.Borough, Community.Board,
         NTA)

datatable(tobacco_queens)

---

Methods

Purpose

The aim of this exploration is to outline the total amount of tobacco retailer with active licenses in the neighbourhood in the Queens borough. For this particular study, we will separate the neighbourhoods by ZIP code number and focus on ZIP code 11368, which is the ZIP code for Corona.

Sources

The main source for the dataframe is the “Active Tobacco Retailer Dealer Licenses” from the NYC Open Data.

Methodology

For this exploration, there is no specific calculation used to sum the total number of active tobacco retailers. However, we did use a code chunk (shown in “Summary Tables” below) to help us summarise the total amount.

Results

Summary Tables

tobacco_queens_stats <- tobacco_queens %>%
  group_by(Address.ZIP) %>% 
  summarise(active_tobacco_retailers = n())

datatable(tobacco_queens_stats)

Plot

---

Conclusion

Based on the summary statistics and plot above, we can see that Corona (ZIP code 11368) ranks the second highest for the total amount of active tobacco retailers amongst other neighbourhoods in Queens, with a total of 73 active retailers.