删除多个栅格图层的顺序答案

【问题标题】：sequence to drop multiple raster layers删除多个栅格图层的顺序
【发布时间】：2020-10-14 19:45:12
【问题描述】：

我正在尝试使用函数dropLayers 结合rep 来删除多个栅格图层，但是，当我使用此代码时：

x <- c(1:4, 10:12)
s <- dropLayer(p, rep(x, 10))

names(s)
  [1] "y2010.5"  "y2010.6"  "y2010.7"  "y2010.8"  "y2010.9" 
  [6] "y2011.1"  "y2011.2"  "y2011.3"  "y2011.4"  "y2011.5" 
 [11] "y2011.6"  "y2011.7"  "y2011.8"  "y2011.9"  "y2011.10"
 [16] "y2011.11" "y2011.12" "y2012.1"  "y2012.2"  "y2012.3" 
 [21] "y2012.4"  "y2012.5"  "y2012.6"  "y2012.7"  "y2012.8" 
 [26] "y2012.9"  "y2012.10" "y2012.11" "y2012.12" "y2013.1" 
 [31] "y2013.2"  "y2013.3"  "y2013.4"  "y2013.5"  "y2013.6" 
 [36] "y2013.7"  "y2013.8"  "y2013.9"  "y2013.10" "y2013.11"
 [41] "y2013.12" "y2014.1"  "y2014.2"  "y2014.3"  "y2014.4" 
 [46] "y2014.5"  "y2014.6"  "y2014.7"  "y2014.8"  "y2014.9" 
 [51] "y2014.10" "y2014.11" "y2014.12" "y2015.1"  "y2015.2" 
 [56] "y2015.3"  "y2015.4"  "y2015.5"  "y2015.6"  "y2015.7" 
 [61] "y2015.8"  "y2015.9"  "y2015.10" "y2015.11" "y2015.12"
 [66] "y2016.1"  "y2016.2"  "y2016.3"  "y2016.4"  "y2016.5" 
 [71] "y2016.6"  "y2016.7"  "y2016.8"  "y2016.9"  "y2016.10"
 [76] "y2016.11" "y2016.12" "y2017.1"  "y2017.2"  "y2017.3" 
 [81] "y2017.4"  "y2017.5"  "y2017.6"  "y2017.7"  "y2017.8" 
 [86] "y2017.9"  "y2017.10" "y2017.11" "y2017.12" "y2018.1" 
 [91] "y2018.2"  "y2018.3"  "y2018.4"  "y2018.5"  "y2018.6" 
 [96] "y2018.7"  "y2018.8"  "y2018.9"  "y2018.10" "y2018.11"
[101] "y2018.12" "y2019.1"  "y2019.2"  "y2019.3"  "y2019.4" 
[106] "y2019.5"  "y2019.6"  "y2019.7"  "y2019.8"  "y2019.9" 
[111] "y2019.10" "y2019.11" "y2019.12"

只有前四个，后三个被删除用于第一层。之后的每一层都不受影响。我怎样才能使这项工作？我尝试过序列，但没有成功。

【问题讨论】：

标签： r raster

【解决方案1】：

我假设您想在句点之后删除所有以 1-4 或 10-12 结尾的栅格。您正在使用的代码尝试删除 1:4 和 10:12 的栅格十次。您可以使用此代码，该代码使用sub 隔离句点后的数字，并使用%in% 运算符检查该数字是否在x 中：

s <- dropLayer(p, sub('.*\\.', '', names(p)) %in% x)

【讨论】：