4

私はこのようなデータを持っています：

YEAR-STORM-DATETIME-NORTH-WEST-PRESSURE-WIND-SPEED-TRACKDATE
2011-arlene-6/28/2011 6:00-19.9-92.8-1007-30-NA-6/28/2011
2011-arlene-6/28/2011 12:00-20.3-93.1-1006-35-4-6/28/2011
2011-arlene-6/28/2011 18:00-20.7-93.5-1006-40-5-6/28/2011
so on..

私はRを初めて使用し、ggmap上に密度プロットをプロットしています。また、光沢のあるRを使用してWebサイトに表示しています。問題は、出力がすべて非ワイドスクリーン（正方形）のマップであるということです。OpenlayersやKMLが提供するグーグルマップのような長方形のマップが欲しいです。私のコードは：

library(ggplot2)
library(ggmap)

mydata <- read.csv("C:/R Data/Analytics/dMetrics.csv")
slice_year <- mydata[mydata$YEAR=='2009',]
map <- get_map(c(lon = -55.3632715, lat = 31.7632836), zoom = 3,
               source = 'google', maptype = c("terrain"), messaging = FALSE,
               color = 'color')

world <- ggmap(map) #extent = 'device'
world <- world + 
         stat_density2d(data = slice_year,
                        aes(x = WEST, y = NORTH, fill = ..level.., alpha = ..level..),
                        show_guide = FALSE, geom = "polygon", na.rm = TRUE) + 
         scale_fill_gradient(name = "Density", low = "maroon", high = "yellow", 
                             guide = 'colorbar')
world

ワイドスクリーン解像度のマップ、場合によっては高解像度を作成するためのガイドを教えてください。

4

2 に答える 2

3

画像をワイドスクリーンとして保存するには、これを末尾に追加します。ggsave(file="map.pdf", width=8, height=4.5)

ワイドスクリーン ウィンドウを開くには、 を呼び出す前にこれを追加しますworld。windows(800,450)

編集

ggmap は正方形以外のアスペクト比をサポートしていないようです。

ドキュメントは、境界ボックスを location プロパティに渡すことができると主張していますが、それを無視しているようです。

scale <- 5
ratio <- 16/9
size <- c(ratio, 1) * scale
latlongCenter <- c(0, 45)
latlongBox <- c(latlongCenter - size/2, latlongCenter + size/2)

map <- get_map(location = latlongBox)
ggmap(map)
于 2013-03-14T06:02:04.733 に答える