映射（使用geojson）而不是Leaflet映射

Question

我正在上课。一切都很好，我创建了一个下降地图，用于在纽约展示一些数据，使用Leaflet。

jpal <- colorRampPalette(c("#03B9FF", "#801515"))
# qpal <- colorRampPalette(c("#03B9FF", "#0ABAFD", "#6CCEF3", "#8FD2EC", 
"#03B9FF", "#0ABAFD", "#AA3939", "#801515"))
num.cols <- 255
my.cols <- jpal(num.cols)

library(plotrix)
color.index <- round(rescale(station.df$ratio, c(1,num.cols)), 0)

# Map
m <- leaflet(station.df) %>% addTiles("http://korona.geog.uni-
heidelberg.de/tiles/roadsg/x={x}&y={y}&z={z}", 
                                      attribution='Map tiles by <a 
href="http://stamen.com">Stamen Design</a>, <a 
href="http://creativecommons.org/licenses/by/3.0">CC BY 3.0</a> &mdash; Map 
data &copy; <a 
href="http://www.openstreetmap.org/copyright">OpenStreetMap</a>') 

m %>% setView(-74.00, 40.71, zoom = 13)
m %>% addCircles(~station.df$start.station.long, 
~station.df$start.station.lat, popup=station.df, weight = 3, 
radius=station.df$sum/30, 
             color=~my.cols[color.index], stroke = TRUE, fillOpacity = 0.8)

当我意识到Leaflet不适合海报打印时出现问题 - 低分辨率。 我的教授告诉我使用 geojson ，然后将地图另存为pdf。

好吧，我试着解决它。但失败了。尝试使用geojson文件的许多选项。最后一个看起来像这样。

library(rgdal)
nypp <- readOGR("~/Desktop/Temp Spring 2017/Information Visualization/!Big 
Poster/MyCitiBike/From Lecy/nyct2010_17a", "nyct2010")
par(mar=c(.5,.5,.5,.5))
plot(nypp)

没有任何作用。 情节错误（nypp）：对象＆＃39; nypp＆＃39;找不到 我很欣赏任何帮助想法如何使用这个该死的geojson，或者我的海报没有任何意义与这样糟糕的印刷地图。

此致

奥雷克