Użyj obrazu zamiast etykiet w legendzie ggplot2

Question

Mam wykres w ggplot2 za pomocą, powiedzmy, 2 linii, aw legendzie mam "Rekiny" i "Tygrysy". Czy jest jakiś sposób, aby zamiast tekstu pojawiły się legendy rekina/tygrysa?

Answer 1

Jesteś znacznie lepiej wyłączyć za pomocą ggsave zapisać rysunek jako eps lub svg, a następnie otworzyć go w programie Illustrator (lub odpowiednik otwartego źródła) i zastąpienie legendę z obrazami. Jeśli naprawdę nie jesteś gotowy na zrobienie tego wszystkiego w R, możesz użyć annotation_raster w bieżącym ggplot2 i dodać jakiś tekst obok niego, używając geom_text. Tutaj jest szorstka próba:

set.seed(10) 
library(ggplot2) 
library(RCurl) 
library(png) 
df <- data.frame(animal = sample(c("sharks", "tigers"),20, rep=T), time=1:20, 
       scariness = rnorm(20)*-20) 

shark <- readPNG(getURLContent("http://i.imgur.com/EOc2V.png")) 
tiger <- readPNG(getURLContent("http://i.imgur.com/zjIh5.png")) 

ggplot(df, aes(time, scariness, group = animal, color = animal)) + 
geom_line(show_guide = FALSE) + 
annotation_raster(tiger, xmin = nrow(df)-1, xmax = nrow(df), 
    ymin = max(df$scariness)-(.05*max(df$scariness)), 
    ymax = max(df$scariness), interpolate = T) + 
annotation_raster(shark, xmin = nrow(df)-1, xmax = nrow(df), 
    ymin = max(df$scariness)-(.1*max(df$scariness)), 
    ymax = max(df$scariness)-(.05*max(df$scariness)), interpolate = T)