Punkt auf Karte ohne Rand zeichnen

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) 

Dies wird Punkte mit unterschiedlicher Farbe (nach ihren Namen) produzieren. Etwas wie folgt aus:

Allerdings möchte ich der schwarzen Grenze der Punkte loszuwerden. Gibt es eine Möglichkeit, das zu tun?

Answer 1

Versuchen Sie ein anderes 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) 

oder eingestellt color zu NA bei der Verwendung von shape = 21:

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)