GGMAPが欠落している背景マップ(PDFデバイスを使用する場合を除く)

StackOverflow https://stackoverflow.com/questions/19840647

  •  29-07-2022
  •  | 
  •  

質問

RのGGMAPライブラリを使用して、アトランタ地域の地図を作成しています。コードを実行すると、地図や他のレイヤーでポイントをプロットすることができますが、PDF以外のグラフィックデバイスでマップ自体を印刷することはできません。問題なく別のコンピューターでこのコードを使用できるため、構成の問題が疑われますが、他の2つのマシンが空白のプロットを表示するだけです。

これは、コードのスケーリングバージョンです。私は自分の空白のプロットが再現できないと仮定していますが、構成の問題がどこにあるかについてのガイダンスを取得したいと考えています。

library('ggplot2')
library('ggmap')
library('mapproj')

# ggmapTemp.png gets saved to the working directory correctly
atlanta <- get_map(location=c(lon=-84.26039,
                              lat=33.8751),
                   zoom=9,maptype='roadmap')

atlantaMap <- ggmap(atlanta, extent = 'device', legend = 'topleft')

# this produces a blank plot from both RStudio as well as R
atlantaMap

# this produces the actual map correctly
pdf("plot.pdf")
atlantaMap
dev.off()

# this produces a png file with only a white background
png("plot.png")
atlantaMap
dev.off()

セッション情報:

R version 2.15.3 (2013-03-01)
Platform: x86_64-w64-mingw32/x64 (64-bit)

locale:
[1] LC_COLLATE=English_United States.1252  LC_CTYPE=English_United States.1252   
[3] LC_MONETARY=English_United States.1252 LC_NUMERIC=C                          
[5] LC_TIME=English_United States.1252    

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base     

other attached packages:
 [1] mapproj_1.2-1    ggmap_2.3        ggplot2_0.9.3.1  maps_2.3-6       maptools_0.8-27 
 [6] sp_1.0-14        car_2.0-19       reshape2_1.2.2   plyr_1.8         Revobase_6.2.0  
[11] RevoMods_6.2.0   RevoScaleR_6.2.0 lattice_0.20-13  rpart_4.1-0     

loaded via a namespace (and not attached):
 [1] codetools_0.2-8     colorspace_1.2-4    dichromat_2.0-0     digest_0.6.3        foreach_1.4.0      
 [6] foreign_0.8-52      grid_2.15.3         gtable_0.1.2        iterators_1.0.6     labeling_0.2       
[11] MASS_7.3-23         munsell_0.4.2       nnet_7.3-5          png_0.1-6           proto_0.3-10       
[16] RColorBrewer_1.0-5  RgoogleMaps_1.2.0.5 rjson_0.2.13        RJSONIO_1.0-3       scales_0.2.3       
[21] stringr_0.6.2       tools_2.15.3   

と機能:

jpeg      png     tiff    tcltk      X11     aqua http/ftp  sockets   libxml     fifo   cledit 
TRUE     TRUE     TRUE     TRUE    FALSE    FALSE     TRUE     TRUE     TRUE    FALSE     TRUE 
iconv      NLS  profmem    cairo 
TRUE     TRUE     TRUE     TRUE 
役に立ちましたか?

解決

問題は、接続を通過するビット深度を制限するサーバーに関係しています。オラクル 問題と解決策を文書化します 彼らのサイトで:

リモートデスクトップセッションでは、色の深さを決定するディスプレイ変数を含むすべての環境変数は、RCP-TCP接続設定によって決定されます。たとえば、ユーザーは、遅い接続に接続するときに色の深さを減らすことができます。異なる設定は、15ビット、16ビット、24ビット、またはピクセルあたり32ビットです。リモートデスクトップの色の深さを上げるには:

Windowsサーバーで、アクセサリメニューからリモートデスクトップセッションホスト構成を起動します。接続の下で、RDP-TCPを右クリックして、プロパティを選択します。 [クライアント設定]タブで、[limedmaximumの色の深さ]を起動するか、ピクセルあたり32ビットに設定します。

「最大色深度の制限」チェックボックスをチェックしてサーバーに再接続すると、ラスターマップの背景が予想通りに表示されるようになりました。また、代替デバイスに出力するオプション2も提供していることに注意してください。

他のヒント

Jrshrenkはしばらくの間Rとパッケージを更新していないようです。理論的にはR、GGMAP、PNG、およびGGPLOT2のバージョンは十分と思われます。

    Package: ggmap
    Version: 2.4
    Depends: R (>= 2.14.0), ggplot2 (>= 0.9.2)
    Imports: proto, scales, RgoogleMaps, png, plyr, reshape2, grid, rjson,
            mapproj, jpeg, geosphere, digest
    Suggests: MASS, stringr
        License: GPL-2
        NeedsCompilation: no

    Package: png
    Version: 0.1-7
    Depends: R (>= 2.9.0)
    License: GPL-2 | GPL-3
    NeedsCompilation: yes

Rとパッケージを更新して、問題を解決するかどうかを確認しようとします。

#Save your current packages but not the base ones:
savepackages <- rownames(installed.packages(priority='NA')) 
write(savepackages, file="listpackages.txt")

#Check for Updates of R
library(installr)
check.for.updates.R(notify_user = TRUE, use_GUI = TRUE,
                    page_with_download_url = "http://cran.rstudio.com/bin/windows/base/",
                    pat = "R-[0-9.]+-win")

#Download and Install New Version
install.R(page_with_download_url = "http://cran.rstudio.com/bin/windows/base/",
          pat = "R-[0-9.]+-win.exe", to_checkMD5sums = TRUE,
          keep_install_file = TRUE, download_dir = tempdir(), silent = FALSE)

#Then reinstall packages 
pkg.ls <- read.table("listpackages.txt")
install.packages(pkg.ls)
ライセンス: CC-BY-SA帰属
所属していません StackOverflow
scroll top