Kenarlıksız Harita Üzerinde Çizim Çizgisi

Question

library(ggplot2) 
library(ggmap) 
data <- read.table(file = "data.txt", sep = ",", col.names = c("lat", "lon", "place_name"), fill=FALSE, strip.white=TRUE) 

# getting the map 
mapgilbert <- get_map(location = c(lon = mean(data$lon), lat = mean(data$lat)), 
       zoom = "auto" , maptype = "roadmap", scale = 2, color = "bw") 

# plotting the map with some points on it 
ggmap(mapgilbert, extent = "device") + 
    geom_point(data = data, aes(x = lon, y = lat, fill = place_name), size = 0.5, shape = 22) + 
    guides(fill=FALSE, alpha=FALSE, size=FALSE) 

Bu, farklı renkte (adlarına göre) noktalar üretecektir. Böyle bir şey:

Ancak, istediğim nokta siyah sınırında kurtulmak için. Bunu yapmanın bir yolu var mı?

Answer 1

deneyin farklı shape:

data <- data.frame(lat=52.5176736, lon=13.3895097) 
library(ggmap) 
library(ggplot2) 
mapgilbert <- get_map(location = c(lon = mean(data$lon), lat = mean(data$lat)), 
       zoom = "auto" , maptype = "roadmap", scale = 2, color = "bw") 
ggmap(mapgilbert, extent = "device") + 
    geom_point(data = data, aes(x = lon, y = lat), size = 6, shape = 16, color="red") + 
    guides(fill=FALSE, alpha=FALSE, size=FALSE) 

veya colorshape = 21 kullanırken NA ayarlı: Sana felç, örneğin oynamak gerektiğini düşünüyorum

ggmap(mapgilbert, extent = "device") + 
    geom_point(data = data, aes(x = lon, y = lat), size = 6, shape = 21, color=NA, fill = "red") + 
    guides(fill=FALSE, alpha=FALSE, size=FALSE)