経緯

Google Mapをソースにすればよいのだが、非公開のシステムを作ろうとするとライセンス上問題がある（買えばいいのだけど）。CC BY 3.0のStamen Mapsがあるのでそれを使おうと思った。
Rのggmapパッケージを使用する。

ggmapの使い方自体は下記などを参考にさせていただいた。
- R で GoogleMaps にプロットする
- Rで解析：GoogleMapやStamenMapを利用「ggmap」パッケージ

Stamen Mapsには地図の表示形式が複数あってterrainが一番通常の地図に近くきれいなのだけど、terrain以外の形式は問題なく表示できるのだが、terrainを指定すると、

ggmapとしては地図画像をjpgで取得しようと処理する
Stamen Mapsからはpngで画像を返してくる
- Stamen Mapsの使用例には、下記の通りjpgと書いてあるのだが
  - http://tile.stamen.com/terrain/{z}/{x}/{y}.jpg
エラー

という按配。Google検索したらggmapのgit hubに
stamen returning .png's, not .jpg's
というやり取りがあり、対応済みっぽいのだが、パッケージはまだ更新されていないのか。
仕方ないのでggmapのソースをダウンロードして修正してみる。

手順

Rからインストール済みのggmapをアンインストールする。

remove.packages("ggmap")

これだけだと現在の関数が残ったままなので、Rを再起動
CRANからggmapのソースをダウンロード
展開し、ggmap/R/get_stamenmap.R の下記を修正
- "terrain"だけでなく"terrain-background"も同様に修正

    旧236   if(maptype %in% c("terrain","terrain-background","watercolor")){
    新236   if(maptype %in% c("watercolor")){
    237     filetype <- "jpg"
    238   } else {
    239     filetype <- "png"
    240   }

（中略）

    旧427   if(maptype %in% c("terrain","terrain-background","watercolor")){
    新427   if(maptype %in% c("watercolor")){
    428     filetype <- "jpg"
    429   } else {
    430     filetype <- "png"
    431   }

（中略）

    旧444   if(maptype %in% c("terrain","terrain-background","watercolor")){
    新444   if(maptype %in% c("watercolor")){
    445     tile <- readJPEG(tmp)
    446   } else {
    447     tile <- readPNG(tmp)
    448   }

ggmapのフォルダごとtar.gzで圧縮し直す
- 例 tar zcvf ggmap_2.6.1.edit.tar.gz ggmap/
Rで上記修正済みtar.gzを適用
- Rのメニューバー [Tools]-[Install Packages...]
  - Install from で "Package Arcive File(.zip; .tar.gz)
    - 上記の修正済み.tar.gzファイルを選択
  - "Install"ボタン
これで準備が整ったので例えば以下の通り

library(ggmap)

loc<-c(139.69, 35.64, 139.78, 35.7)
(map<-ggmap(get_stamenmap(loc, maptype = 'terrain', zoom = 13)))