Я хочу сделать соединение между списком пространственных точек данных со списком данных. Я могу выполнить соединение с помощью lapply, но я не знаю, как добавить это в информацию @data каждого кадра данных пространственных точек в списке. Как мне это сделать?
#libraries
library(spData)
library(sf)
library(sp)
library(dplyr)
#Spatial dataframe
nodes = nz_height
nodes <- as(nodes, "Spatial")
nodes@data$f <- c(rep(seq(1:2), 50),1)
#Spatial List
nd.l <- split(nodes, nodes@data$f)
#Spatial dataframe
df <- data.frame(f = as.numeric(c(rep(seq(from = 1, to = 2, by = 1), 50),1)),
g = as.numeric(c(rep(seq(from = 3, to = 4, by = 1), 50),1)))
#dataframe list
df <- split(df, df$f)
#Join to spatial data
s <- 1:2
lapply(X = s, FUN = function(x) dplyr::left_join(nd.l[[x]]@data, df[[x]]))