Basic Cell Tower Map and Plots in the US

Amanda Kiannejad

6/10/2021: the day I started it

Date requirement:

2 months before April 25,2021 Date I am submitting Jun 25,2021 2 month after Aug 25, 2021 I dont understand the date requirement but whatever.

real_carrier%>%
  leaflet()%>%
  addTiles()%>%
   addMarkers(data = real_carrier[real_carrier$DBA %in% names(Icon_df),], 
             lng = ~londec, 
             lat = ~latdec, 
             icon = ~Icon_df[DBA], 
             popup = carrier_labs
             )

Plotly code

On the next slide is the display. If you are unsure that this is plotly hover over the plot and look at the right-hand corner an icon will explicitly say, “Produced by Plotly”.

fig <-plot_ly(data=tower_count_final, x=~Carrier)
  fig<-fig%>%add_trace( y=~Count,color=~Carrier,type="bar",
  showlegend=FALSE,showscale=FALSE)%>%
  layout(title="Number of Towers by Carrier", xaxis = list(title = "", tickangle = -45))
#fig

Thank you,

Amanda Kiannejad