4

年の間に、海岸線に沿った空間ポイントがあります。これに対する答えを使用して、ポイントをプロットし、不透明度を制御するスライダーを使用してさまざまな年を表示しました。

現在、ggvis を使用しているときに単純なマップをオーバーレイすることは可能ですか?

library(ggmap)
library(ggvis)

#simple dataset
long <- c(-53.53167, -53.53167, -53.68000, -53.64667, -53.68500)
lat <- c(47.16833, 47.18500, 47.01167, 47.00500, 47.98833)
year <- c(1995:1999)
count <- rpois(5, 20)
data1 <- as.data.frame(cbind(year, count, lat, long))

#interactive data visual, with the goal of having a map in the background
data %>% 
  ggvis(~long, ~lat, size=~count) %>% 
  layer_points(opacity=input_slider(min(data$year), max(data$year),     step=1,map=function(x) ifelse(data$year == x, 1, 0)))

#in ggmap, an example of a potential map to make interactive
mylocation <- c(min(long), min(lat))
mymap <- get_map(location=mylocation, source="google", maptype="roadmap", zoom = 8)
ggmap(mymap) + geom_point(data=data1, aes(x=long, y=lat, size=count), alpha=0.6)
4

1 に答える 1

2

少し遅れましたが、ここではmapviewが解決策になる可能性があります (数日前に CRAN にリリースされたばかりです)。

library(ggmap)
library(ggvis)
library(sp)
library(mapview)

#simple dataset
long <- c(-53.53167, -53.53167, -53.68000, -53.64667, -53.68500)
lat <- c(47.16833, 47.18500, 47.01167, 47.00500, 47.98833)
year <- c(1995:1999)
count <- rpois(5, 20)

# convert to SpatialPointsDataFrame
data1 <- as.data.frame(cbind(year, count, lat, long))
proj4string(data1) <- CRS("+init=epsg:4326")

# view it
mapview(data1)

これはタイム スライダーなどを提供しませんが、各ポイントで属性のポップアップを提供するため、その方法で年を取得できます。タイム スライダーを使用したソリューションでは、mapview を使用して光沢のあるアプリを構築できます。

乾杯ティム

于 2015-12-20T18:53:23.120 に答える