Построение карты в R с различными метками и цветами

Question

Так я организовал свои данные для построения карты. Я хотел бы иметь все точки с меткой split Night одного цвета (скажем, синего цвета) и все точки с меткой Day другого цвета (не вижу Day на образец ниже):

> head(times)
              DateTime  Latitude Longitude split
1: 2018-06-18 03:01:00 -2.434901  34.85359 Night
2: 2018-06-18 03:06:00 -2.434598  34.85387 Night
3: 2018-06-18 03:08:00 -2.434726  34.85382 Night
4: 2018-06-18 03:12:00 -2.434816  34.85371 Night
5: 2018-06-18 03:16:00 -2.434613  34.85372 Night
6: 2018-06-18 03:20:00 -2.434511  34.85376 Night

Я пытался отслеживать и изменять коды других постов здесь, в Интернете, но у меня возникли некоторые проблемы, поскольку я хочу, чтобы мои баллы были помечены цветом. Это то, как далеко я дошел, теперь мне просто нужна помощь для построения точек:

# creating a sample data.frame with your lat/lon points
lon <- times$Longitude
lat <- times$Latitude
df <- as.data.frame(cbind(lon,lat))

# getting the map
mapgilbert <- get_map(location = c(lon = mean(df$lon), lat = mean(df$lat)), zoom = 15,
                      maptype = "satellite", scale = 2)

# plotting the map, but don't know how to label points according to information on column "split"
ggmap(mapgilbert) +
  geom_point(data = df, aes(x = lon, y = lat, fill = "red", alpha = 0.8), size = 3, shape = 21) +
  guides(fill=FALSE, alpha=FALSE, size=FALSE)

В любом случае, любой вклад приветствуется.

Приветствия

Answer 1

Вы можете попробовать листовку:

times$color <- ifelse(times$split == "Night", "#000cff", "#ffa500")

lon <- times$Longitude
lat <- times$Latitude
split <- times$split
color <- times$color
df <- cbind(lon,lat,split,color)

m <- leaflet() %>%
    addTiles() %>%  # Add default OpenStreetMap map tiles
    addCircleMarkers(df, lng = lon, lat = lat, radius = 5, color = color,
               weight = 3, opacity = 1.0, fill = TRUE, fillColor = color,
               fillOpacity = 0.5, popup=split)
m