R中的多对象操作

Question

在这里，我尝试设置的功能遇到问题。我觉得答案会很简单，但我对 R 有点陌生并且卡住了，所以我会很感激另一种意见。 本质上，我要做的是在多个光栅文件上应用掩码函数，使用单个形状文件作为参数，并将我的输出保存在与我正在处理的光栅文件一样多的对象中。例如：

masking <- function(x){
 paste0('x','_45_1',sep='') <- raster::mask(vocc_45_1_rotated,x)
 paste0('x','_45_2',sep='') <- raster::mask(vocc_45_2_rotated,x)
 paste0('x','_45_3',sep='') <- raster::mask(vocc_45_3_rotated,x)
 paste0('x','_85_1',sep='') <- raster::mask(vocc_85_1_rotated,x)
 paste0('x','_85_2',sep='') <- raster::mask(vocc_85_2_rotated,x)
 paste0('x','_85_3',sep='') <- raster::mask(vocc_85_3_new,x)}

不幸的是，我一直得到一个

粘贴错误0("x", "_45_1", sep = "") 赋值目标扩展为非语言对象"

我看到了对类似“错误”问题的回复，但没有任何内容可以提示我需要在此处更改什么。

Answer 1

处理大量具有自己名称的对象总是乏味且容易出错。因此，我建议将所有结构相似的对象收集在一个列表中，并使用lapply() 一次性操作列表中的所有对象。这样，您可以轻松构建处理管道。

为了说明这一点，请看这个例子：

# create list of objects
vocc <- list(vocc_45_1_rotated, 
             vocc_45_2_rotated, 
             vocc_45_3_rotated, 
             vocc_85_1_rotated, 
             vocc_85_2_rotated,
             vocc_85_3_new)

# name the objects in the list
vocc <- setNames(vocc,
                 c("vocc_45_1", 
                   "vocc_45_2", 
                   "vocc_45_3", 
                   "vocc_85_1", 
                   "vocc_85_2",
                   "vocc_85_3"))

# apply raster::mask function on all objects in list,
# thereby using x as named parameter to function
# The result is again a list
masked_vocc <- lapply(vocc, raster::mask, mask = x)

您可以按位置检索列表中的对象

masked_vocc[[3]]

或按名称

masked_vocc[["vocc_45_3"]]

Answer 2

应该这样做，虽然我不确定你的 x 代表什么

但是对于处理，x 代表上面的 x 是什么，vocc 代表您在上面的示例中静态列出的 vocc 数据对象，env 代表分配输出的环境。

我们通过将vocc 输入对象强制为带引号的字符串来创建新对象名称（参见：?deparse 和?substitute 或参见下文了解其工作原理）。然后我们将字符串中的所有内容替换为字母，但不是下划线，以便我们可以获得唯一的 _42_1 或用于单独标识您的对象的任何内容。引用 .GlobalEnv 以便函数将其返回分配给顶级 env，而不是函数环境，并在分配内评估 raster:: 函数。有关详细信息，请参阅assign。

deparse(substitute(mtcars))
[1] "mtcars"

masking <- function(x,vocc = NULL, env = .GlobalEnv){
    name_var <- deparse(substitute(vocc))
    n_parts <- gsub('[a-z]|(?=_)','',name_var, perl = TRUE)
    new_name <- sprintf('x%s', n_parts)
    assign(new_name, raster::mask(vocc, x), envir = env)
}