R 找不到函数“write.vector” - 我该怎么办？

Question

我是 R 的新手。使用我得到的代码时，我收到错误“konnte Funktion”write.vector“nicht finden”（找不到函数“write.vector”）。代码如下所示：write.vector(x, "")。写代码的人（去年夏天）说，她不需要为此安装任何类型的包。

我用谷歌搜索了这个问题，发现：Error: could not find function ... in R?我检查了这里提到的东西，但没有帮助。拼写是正确的，因为我只是复制粘贴了代码，这对其他人来说效果很好。另外我不知道我可以安装哪个可能会丢失的软件包。我没有找到任何 help.search("some.function") 或找到。使用RSiteSearch("some.function") 时，我发现了这个：http://finzi.psych.upenn.edu/R/library/quantable/html/write.vector.html，这对我的问题也没有帮助。

Answer 1

这是我在出现错误之前使用的代码，如果有帮助的话：

Stanzen von Rasterstack mit Stadtgrenze Köln
#libraries

    library(raster)

    library(rgdal)
    library(nortest)
    install.packages("sp", dependencies=TRUE)

    #test if installed, if not install it.
    library(sp)
    if(!require(quantable, quiet = TRUE))
      install.packages("quntable")
    library(quantable)
    setwd("d:/Users/paulb/Desktop/Uni/Bachelorarbeit/R/GeoTiffs")
    ## polygon with crop-extend ##
    files <- list.files("d:/Users/paulb/Desktop/Uni/Bachelorarbeit/R/GeoTiffs", include.dirs = F, full.names =
                          T)
    shape_data <- readOGR("d:/Users/paulb/Desktop/Uni/Bachelorarbeit/R/Shapefiles/VerwaltungsgrenzeKoeln/VerwaltungsgrenzeKoeln.shp",
                          stringsAsFactors=FALSE)
    plot(shape_data)
    ## load tif files ##
    infiles = list.files(path=getwd(),
                         pattern="*.tif$|*.TIF$")
    ## Filenames with desired suffix and output place ##
    outfiles = file.path("d:/Users/paulb/Desktop/Uni/Bachelorarbeit/R/Cologne_Rasterstack",
                         paste0(basename(tools::file_path_sans_ext(infiles)),
                                ".tif"))
    outfiles[outfiles == -9999] <- NA #alle -9999 auf NA setzen, wenn nötig
    ## crop and output settings (compression and datatype)
    for (i in seq_along(infiles)) {
      r = crop(stack(infiles[i]), shape_data)
      writeRaster(r, filename=outfiles[i],
                  bylayer=FALSE,
                  format="GTiff",
                  options="COMPRESS=ZIP",
                  x, NAflag=-9999,
                  overwrite=TRUE)
    }
    dataType(r)
    View(r)
    # load files
    files <- list.files("d:/Users/paulb/Desktop/Uni/Bachelorarbeit/R/Cologne_Rasterstack", include.dirs = F, full.names = T)
    #stack raster
    rasterstack <- stack(lapply(files, raster))
    r <- rasterstack
    r[] <- 1:length(r)
    ## crop and mask
    r2 <- crop(r, extent(shape_data))
    r3 <- mask(r2, shape_data)
    plot(r2)
    rc <- crop(rasterstack, extent(r3))
    rcm <- mask(rc, shape_data)
    as.vector(rcm)
    x <- as.vector(rcm)
    plot(rcm)
    write.vector(x, "d:/Users/paulb/Desktop/Uni/Bachelorarbeit/R/GeoTiffs/Vector_Cologne")

Answer 2

正如@Duck 在 cmets 中所说，找不到它的原因是未安装或加载包含该功能的包。一个快速的谷歌搜索告诉我它quantable，所以我们可以检查它是否已安装并使用如下代码加载它：

#test if installed, if not install it.
if(!require(quantable, quiet = TRUE))
  install.packages("quantable")
library(quantable)