プロットファセットR

Question

メインデータフレーム

data.frame(lat = c(38.6938, 38.4262, 32.7607, 37.083, 39.4619, 41.0042), 
       lon = c(-9.20587, -8.90007, -16.9595, -8.90918, -8.38391, -7.9699), 
       views = c(13565, 27020, 74420, 18550, 73253, 14615), 
       challenge = c("SPOT CIDADE", "SPOT NATUREZA I", 
           "SPOT NATUREZA II", "SPOT ROMANCE", 
           "SPOT PATRIMONIO", "SPOT GASTRONOMIA"), 
       stringsAsFactors = FALSE) 

のマップ私は印刷のために、マップをプロットしようとしていますし、その結果をもとに各チャレンジのためのマップとその大きさを変えるポイントになります各ビデオにはビューがあります。

これまでのところ、私のコードは同じマップ内のすべてのポイントを持っています - 私はファセットに問題があり、ポイントのサイズを変更しています。

私が美学の変数を変更すると、ポイントが大きくなります。

ズームレベルが近すぎるか、または遠すぎます。

私が使用しているコードは以下の通りです。 私が見ているすべての例は、私が必要としているものからあまりにも遠すぎるか、またはちょうど の仕事ではありません。

私はそれを正しくやっていますか、これは別のアプローチが必要ですか？

ありがとうございます！

library(ggplot2) 
library(ggmap) 

lon <- as.numeric(new$lon) 
lat <- as.numeric(new$lat) 


spots_df <- as.data.frame(cbind(lon, lat)) 

mapa_spots <- get_map(location = c(lon = mean(spots_df$lon), lat = mean(spots_df$lat)), zoom = 6, maptype = "terrain", scale = 2) 

plot_spots <- ggmap(mapa_spots) + 
    geom_point(data = spots_df, aes(x = lon, y = lat, fill = "red", alpha = 0.8), size = 2, shape = 21) + 
    guides(fill=FALSE, alpha=FALSE, size=FALSE) 

plot_spots 

私はこのコードから取得する結果：

Answer 1

あなたのデータフレームがdt呼ばれると仮定すると、ここでggmapとggplot2とのプロットです。鍵は引数をggplot(dt, aes(...))と併用することで、のように他のgeomをさらに追加することができます。あなたはあなたのコメントの別のマップに各チャレンジをしたいと述べました。私はfacet_wrapがおそらくあなたが探しているものだと思います。

library(ggplot2) 
library(ggmap) 

mapa_spots <- get_map(location = c(lon = mean(dt$lon), 
            lat = mean(dt$lat)), 
         zoom = 6, maptype = "terrain", scale = 2) 

ggmap(mapa_spots, base_layer = ggplot(dt, aes(x = lon, y = lat, size = views))) + 
    geom_point() + 
    facet_wrap(~challenge, ncol = 3) 

DATA

dt <- data.frame(lat = c(38.6938, 38.4262, 32.7607, 37.083, 39.4619, 41.0042), 
       lon = c(-9.20587, -8.90007, -16.9595, -8.90918, -8.38391, -7.9699), 
       views = c(13565, 27020, 74420, 18550, 73253, 14615), 
       challenge = c("SPOT CIDADE", "SPOT NATUREZA I", 
           "SPOT NATUREZA II", "SPOT ROMANCE", 
           "SPOT PATRIMONIO", "SPOT GASTRONOMIA"), 
       stringsAsFactors = FALSE)