时间戳

首页 > 解决方案 > R 找不到函数“write.vector” - 我该怎么办？

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

问题描述

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

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

标签： rfunction

解决方案

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

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")

推荐阅读