График ggmap выходит слишком маленьким в viewer / html - PullRequest
Новая
       10

График ggmap выходит слишком маленьким в viewer / html

0 голосов
/ 11 февраля 2019

enter image description here Я нарисовал гонку парусных яхт поверх карты Google, однако, когда я рендерил ее в html-файл, он получился маленьким и размером примерно 40 мм x 40 мм на моем экране.Я хочу, чтобы это был полноэкранный режим / страница, если это возможно, или контроль размера.

Вот код, который создает карту, которую я хочу, но не размер, который я хочу! 

logdata=read.csv(file=file.choose(), header=T , sep=",",na.strings="'",stringsAsFactors=F)
lg = logdata


library(plotKML)
library(ggplot2)
library(ggmap)
library(gganimate)
register_google("api")

map_theme <- list(theme(legend.position = "bottom",
                        panel.grid.minor = element_blank(),
                        panel.grid.major = element_blank(),
                        panel.background = element_blank(),
                        plot.background = element_rect(fill = "white"),
                        panel.border = element_blank(),
                        axis.line = element_blank(),
                        axis.text.x = element_blank(),
                        axis.text.y = element_blank(),
                        axis.ticks = element_blank(),
                        axis.title.x = element_blank(),
                        axis.title.y = element_blank(),
                        plot.caption = element_text(),
                        plot.title = element_text(size = 18)))

avTws = mean(lg$TWS, na.rm = T, trim = 0.5)
Lon = mean(lg$Lon, na.rm = T)
Lat = mean(lg$Lat, na.rm = T)
maxlon = max(lg$Lon, na.rm = T)
maxlat = max(lg$Lat, na.rm = T)
minlon = min(lg$Lon, na.rm = T)
minlat = min(lg$Lat, na.rm = T)


lg$Time =as.POSIXct(lg$Time, format = "%H:%M:%OS")


mapImageData <- get_googlemap(center = c(lon = Lon, lat = Lat),
                              zoom = 12,
                              color = "color",
                              scale = 4,
                              maptype = c("terrain"))
race1 = ggmap(mapImageData, extent = "panel") +
  geom_line(data = lg, mapping = aes(x = lg$Lon, y = lg$Lat, color = lg$SOG), size = 1)+
  scale_x_continuous(limits = c(minlon, maxlon), expand = c(0.018, 0.018))+
  scale_y_continuous(limits = c(minlat, maxlat), expand = c(0.018, 0.018))+
  scale_colour_gradientn(colours=rainbow(5))+
  transition_reveal(lg$Time)+
  labs(title = "Race 1",
       subtitle = "TWS")+
  map_theme

race1
animate(race1, fps = 10, duration = 60)

1 Ответ

0 голосов
/ 13 февраля 2019

Мне удалось изменить размер карты с помощью

options(gganimate.dev_args = list(width = 1000, height = 1000))

, что изменит все аргументы gganimate по умолчанию, но вы можете изменить это, передав аргументы непосредственно animate ()

...