我试图在R中加入一些数据,我想将有关自治市,街区等的普查信息添加到我拥有的longlat坐标中。我的数据如下所示:
census_data <- blocks <- tigris::blocks("NY", "Kings", 2010) #manhattan data
long_lat <- raw_data %>% select(pickup_longitude, pickup_latitude)
long_lat是一个数据框,并且:
head(long_lat)
# A tibble: 6 x 2
pickup_latitude pickup_longitude
<dbl> <dbl>
1 40.8 -74.0
2 40.7 -74.0
3 40.8 -74.0
4 40.7 -74.0
5 40.7 -74.0
6 40.8 -74.0
class(blocks)
[1] "sf" "data.frame"
head(blocks)
Simple feature collection with 6 features and 17 fields
geometry type: MULTIPOLYGON
dimension: XY
bbox: xmin: -73.98255 ymin: 40.58305 xmax: -73.92447 ymax: 40.62601
epsg (SRID): 4269
proj4string: +proj=longlat +datum=NAD83 +no_defs
我将long_lat数据转换为可与块数据结合在一起,如下所示:
long_lat_st <- st_as_sf(long_lat, coords = c("pickup_longitude",
"pickup_latitude"),
crs = st_crs(blocks))
对于crs参数,我只是将其传递来匹配块数据。我曾尝试将其手动编码为:“ + proj = longlat + datum = NAD83”,但是当我这样做时,尽管有我的说明,最终还是会导致crs不匹配。
运行此功能后,我将看到以下内容:
head(long_lat_st)
Simple feature collection with 6 features and 0 fields
geometry type: POINT
dimension: XY
bbox: xmin: -74.01006 ymin: 40.72139 xmax: -73.96774 ymax: 40.77356
epsg (SRID): 4269
proj4string: +proj=longlat +datum=NAD83 +no_defs
geometry
1 POINT (-73.97399 40.75726)
2 POINT (-74.01006 40.72139)
3 POINT (-73.97784 40.77356)
4 POINT (-73.9964 40.73223)
5 POINT (-73.9786 40.72432)
6 POINT (-73.96774 40.76598)
proj4strings现在匹配。
可以按我的方式传递crs参数吗?还是会使我的longlat配对无效?
从这里,我可以像这样联接我的数据而不会出错:
joined <- st_join(long_lat_st, blocks, left = FALSE)
我认为这正常工作,但我只是想确定。
答案 0 :(得分:0)
简短的回答是。
您正在应用针对北美地区优化的坐标参考系统/ datum(地球形状的描述);如果您的取货数据来自北美,而我却无法想象一个应有的应用程序,那么您要做的就是全部。
您可能要检查的是,是否需要inner_join
(这是您对left = FALSE
的选择所选择的内容)以及st_intersects
是否是st_join
的种类感兴趣。
st_intersects
的定义非常广泛,因此在许多情况下都能很好地工作,但是您可能对st_within
或其他人更感兴趣。使用?st_join
来查看帮助部分。
另外,请访问this online book,以使用sf
解决一些常见的地理计算问题。