ggplot2 etiketinde etiket yerine resim kullanın

Question

Ggplot2'de 2 satırlık bir çizimim var ve efsanede "Sharks" ve "Tigers" var. Bu metnin yerine efsanede köpekbalığı/kaplan resimleri görebilmemin bir yolu var mı?

Answer 1

Şeklini eps veya svg olarak kaydetmek, daha sonra Illustrator'da (veya açık kaynak eşdeğerini) açmak ve efsaneyi resimlerle değiştirmek için ggsave'u kullanmaktan çok daha iyisiniz. Eğer R'de her şeyi yapmakta gerçekten ölüyorsanız, geçerli ggplot2'da annotation_raster'u kullanabilir ve yanında geom_text'u kullanarak bir metin ekleyebilirsiniz. İşte kaba bir girişimdir:

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)