Augmenter la sortie de ggmap et se débarrasser du gris

Question

Quelqu'un peut-il aider à étendre ma sortie ggmap?

J'utilisé this site comme un modèle à partir duquel faire ma propre carte

données factices:

df <- data.frame(Current_zip_code=c(27103, 27540, 32669, 32765, 39180, 39553, 47403, 70118, 70119, 70364, 74114, 74133, 83703, 90045, 90263, 90278, 96706, 96707, 99506), total=c(1, 5, 7, 12, 15, 6, 17, 31, 12, 13, 6, 4, 4, 25, 41, 65, 33, 25, 22), latitude=c(36.066545, 35.643545, 29.640613, 28.656375, 32.292761, 30.400599, 39.121719, 29.952305, 29.974504, 29.626988, 36.126894, 36.04309, 43.668396, 33.960041, 34.035087, 33.871214, 21.338055, 21.345535, 61.224384), longitude=c(-80.30733, -78.83486, -82.59446, -81.21026, -90.87184, -88.65092, -86.57409, -90.12347, -90.08747, -90.72076, -95.94657, -95.88417, -116.25707, -118.3949, -118.70752, -118.37177, -158.02499, -158.08587, -149.77461)) 

library(fiftystater) 
data("usa") 
usa_center = as.numeric(geocode("United States")) 
USAMap = ggmap(get_googlemap(center=usa_center, scale=2, zoom=4), extent="normal") 

map_ex <- USAMap + 
    geom_point(aes(x=longitude, y=latitude), data=df, col="orange", alpha=0.4, size=df$total*.2) + 
    scale_size_continuous(range=range(df$total)) 

la carte de sortie était décentré. est-il possible de l'étendre pour inclure nos amis en Alaska et à Hawaï? Je n'aime pas les titres de fond et d'axe gris. un moyen d'élargir et de se débarrasser du gris et de l'axe?

J'ai essayé d'ajouter cette

scale_x_continuous(limits = c(-95.5 , -95.3) , expand = c(0 , 0)) 

mais je reçu une erreur

Answer 1

Certains points df sont en dehors de la zone USAMap. Il est possible de supprimer la zone grise dans map_ex en réglant la plage de ses axes x et y sur les mêmes valeurs de la plage d'axes USAMap.

df <- data.frame(Current_zip_code=c(27103, 27540, 32669, 32765, 39180, 39553, 
47403, 70118, 70119, 70364, 74114, 74133, 83703, 90045, 90263, 90278, 96706, 
96707, 99506), total=c(1, 5, 7, 12, 15, 6, 17, 31, 12, 13, 6, 4, 4, 25, 41, 
65, 33, 25, 22), latitude=c(36.066545, 35.643545, 29.640613, 28.656375, 32.292761, 
30.400599, 39.121719, 29.952305, 29.974504, 29.626988, 36.126894, 36.04309, 
43.668396, 33.960041, 34.035087, 33.871214, 21.338055, 21.345535, 61.224384), 
longitude=c(-80.30733, -78.83486, -82.59446, -81.21026, -90.87184, -88.65092, 
-86.57409, -90.12347, -90.08747, -90.72076, -95.94657, -95.88417, -116.25707, 
-118.3949, -118.70752, -118.37177, -158.02499, -158.08587, -149.77461)) 

library(ggmap) 
usa_center <- as.numeric(geocode("United States")) 
usa_center_map <- get_googlemap(center=usa_center, scale=2, zoom=4) 
USAMap <- ggmap(usa_center_map, extent="normal") 

# Get axes range of USAMap 
axis_range <- attr(usa_center_map, "bb") 

# Set axes range using the "limits" option of 
# scale_x_continuous and scale_y_continuous 
map_ex <- USAMap + 
    geom_point(aes(x=longitude, y=latitude), data=df, 
        col="orange", alpha=0.4, size=df$total*.2) + 
    scale_size_continuous(range=range(df$total)) + 
    scale_x_continuous(limits=c(axis_range$ll.lon,axis_range$ur.lon)) + 
    scale_y_continuous(limits=c(axis_range$ll.lat,axis_range$ur.lat)) 
map_ex 

Sinon, vous pouvez télécharger une carte plus grande qui comprend tous les points df.

us_map <- get_googlemap(center=c(-110,45), scale=2, zoom=3, size = c(640, 500)) 
map_ex <- ggmap(us_map) + 
    geom_point(aes(x=longitude, y=latitude), data=df, 
        col="orange", alpha=0.4, size=df$total*.2) + 
    scale_size_continuous(range=range(df$total)) 
map_ex