R-错误消息在执行用于使用空间点提取时间序列值的函数时

Question

i具有提取点路径的时间表栅格值的函数。到目前为止，这一切都很好。但是，我一直在收到现在尝试使用它的错误。我收到的错误说：

usemethod中的错误(" extract_"(：没有适用的方法 '提取器 'Basicraster'("

您可以帮忙吗？我尝试了很多，但我无法解决这个问题。

library(raster)
#--------------------------------------start myfunction-----------------------------
# extract raster values for each single point in each path and put it a dataframe
lst <- function (rstack.lst, points, df.name, IDstr){
  df.name <- list()
  ii <- 1
  #number of layers in a list of raster stacks
  n = Reduce(`+`, lapply(rstack.lst, nlayers))
  for (j in 1:length(rstack.lst)){
    df.name[[j]] <- as.data.frame(matrix(0, ncol = nlayers(rstack.lst[[j]])+3, nrow = nrow(points)))
    names(df.name[[j]]) <- append(c("coords.x","coords.y","ID"), substr(names(rstack.lst[[j]]),5,14), after = 3)
    #calculating x and y coordinates
    df.name[[j]][1:2] <- coordinates(points) 
    # setting up unique IDs 
    df.name[[j]]$ID <- paste0(IDstr, ".",seq(1:(nrow(df.name[[j]])))) 
    for (i in 1:nlayers(rstack.lst[[j]])){
      df.name[[j]][i+3] <- extract(rstack.lst[[j]][[i]], points)
      colnames(df.name[[j]][i+3]) <- substr(names(rstack.lst[[j]][[i]]),5,14)
      cat(paste0(round((ii/(n))*100), '% completed'))
      ii <- ii+1
      Sys.sleep(.05)
      if (ii == n) cat(': Done')
      else cat('14')
    }
  }
  return(df.name)
}
#--------------------------------------end start myfunction-----------------------------
lsdata[[1]] <- lst(rstack.lst=r.lst, points=Pnt.shp, IDstr="P1")

Answer 1

我可能是错误的，但我认为extract函数不是故障，但您可能正在加载一些具有完全相同功能的其他软件包(我的意思是具有相同名称(。有许多软件包可能具有相同名称的函数。例如，extract也是tidyr中的功能。为了避免此类问题，我建议您在指定功能时还添加软件包名称。在这里您可以做：raster::extract。

确保只需执行extract并DoubleCheck所包含的内容即可。无论它包含什么，可能都不如下：

function (x, y, ...) 
standardGeneric("extract")
<bytecode: 0x000000001873c4d0>
<environment: 0x000000001855db68>
Methods may be defined for arguments: x, y
Use  showMethods("extract")  for currently available ones.