Как построить импортированные силуэты вместо точек на картах ggplot? - PullRequest
0 голосов
/ 26 февраля 2020

У меня есть карта с несколькими точками на ней, которые были созданы с geom_point. Они находятся в точном местоположении и цвете, который мне нужен, но я пытаюсь изменить форму на силуэт, который я импортировал из phylopi c. Вот некоторые примеры данных для кода

#Dataframe for the points
individual_dets = data.frame(longitude= seq(-64.5,-62.4,0.1),
                             latitude= seq(42.7,44.8,0.1),
                             year = sample(c(2016, 2017, 2018), 22, replace = T),
                             Zone = sample(c(1:4), 22, replace = T),
                             month = sample(month.abb, 22, replace = T))

Ниже приведен код моего импортированного силуэта phylopi c и мой код для карты с точками на ней

library(rphylopic)
library(RCurl)
library(png)
library(mapdata)

#Import phylopic
rayurl = "http://phylopic.org/assets/images/submissions/a3b3e80c-22f2-4b8f-a3ac-42fe1583e0be.thumb.png"

raylogo = readPNG(getURLContent(rayurl))


#Importing the map
canada = map_data("worldHires", "Canada")

#The Map
ggplot() + 
  geom_polygon(data = canada, 
               aes(x=long, y=lat, group=group), 
               colour="grey50", fill = 'grey55')+
  #Coordinates I'm interested in looking at
  coord_sf(xlim=c(-64.5,-62.8), ylim=c(42.7,45)) +
  geom_point(data = individual_dets,
             aes(x = longitude,
                 y = latitude,
                 color = as.factor(Zone)),
             #fill = as.numeric(Zone)),
             size = 5) +
  scale_color_manual(values=c("#01579B", "#4FC3F7", "#ffa600", "#ff6361"), 
                     name = "Zone") 

Кто-нибудь знает, как взять этот сохраненный силуэт и поместить его в ту же координату и в цвет моих точек?

...