How do I plot an image from phylopic in top right corner of my ggplot graph in R?

Kristen Cyr

I'm trying to import a silhouette of a torpedo ray into a ggplot bargraph. I want one image in the top right corner of each of my 3 facet wrapped graphs. When I try to plot it I get this error Error in img[, , 1] : incorrect number of dimensions and I have no idea how to fix it. Here is the code I'm using to plot it...

library(ggplot2)
library(rphylopic)
library(RCurl)
library(png)

#sample data
bargraph_dets_temp1 = data.frame(Zone = as.factor(sample(c(1,2,3,4), 22, replace = T)),
                                month = sample(month.abb, 22, replace = T),
                                year = sample(c(2016, 2017, 2018), 22, replace = T),
                                num_unique_tags = sample(c(1:9), 22, replace = T),
                                Season = sample(c("summer", "fall", "spring", "winter"), 22, replace =T))

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

raylogo = readPNG(getURLContent(rayurl), native = T)


#Bargraph of ONLY the unique detections
ggplot(bargraph_dets_temp1, aes(x = Season)) +
  geom_bar(aes(fill = Zone, 
               y = bargraph_dets_temp1$num_unique_tags), 
           position = "dodge", stat = "identity") +
  facet_wrap(vars(year)) +
add_phylopic(raylogo)

Does anyone know how to add this silhouette into the graphs?

dc37

It seems that add_phylopic is taking only array objects. So, you can maybe find a way to transform your nativeraster object into an array.

Alternatively, you can use rasterGrob function from grid package to transform your image into a suitable format for ggplot and place it using annotation_custom:

library(grid)
raylogo = readPNG(getURLContent(rayurl), native = T)
ray2 <- rasterGrob(raylogo, interpolate=TRUE)

ggplot(bargraph_dets_temp1, aes(x = Season)) +
  geom_bar(aes(fill = Zone, 
               y = bargraph_dets_temp1$num_unique_tags), 
           position = "dodge", stat = "identity") +
  facet_wrap(vars(year)) +
  annotation_custom(ray2, xmin=3.5, xmax=4, ymin=7.5, ymax=Inf)

Does it answer your question ?

Collected from the Internet

Please contact [email protected] to delete if infringement.

edited at2020-12-13

Comments

0 comments

How do I move ggplot strip labels so that there is one on top and one on the right and only label colums and rows instead of every plot

TOP Ranking

Article

How do I plot an image from phylopic in top right corner of my ggplot graph in R?

How do I plot an image from phylopic in top right corner of my ggplot graph in R?

Can't pre-populate phone number and message body in SMS link on iPhones when SMS app is not running in the background

pump.io port in URL

Failed to listen on localhost:8000 (reason: Cannot assign requested address)

Unable to use switch toggle for dark mode in material-ui

grouping by column variables and appending a new variable based on condition

BigQuery - concatenate ignoring NULL

Spring Boot JPA PostgreSQL Web App - Internal Authentication Error

ngClass error (Can't bind ngClass since it isn't a known property of div) in Angular 11.0.3

Python Read Directory And Output to CSV

Remove adjacent duplicates in linked list in C

Angular 8. Unknown amount of http.get requests in array to call, must be sequential, what to use

How to keep curl session alive between two php processes?

Limit number of characters in uitextview

JMeter: Why get error when try to save test plan

Always setting the text cursor on Textbox

MTKView Displaying Wide Gamut P3 Colorspace

Vector input in shiny R and then use it

How to implement an authentication method using Spring Boot and JPA?

Laravel getting value from another table using eloquent

org.springframework.web.client.HttpClientErrorException: 401 null

When I click any button in my view page the form is submitted