dplyr - 加入 lapply 添加到空间点数据框列表

Question

我想在空间点数据框列表和数据框列表之间进行连接。我可以使用 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]]))