ggplot2の凡例にラベルの代わりにイメージを使用

Question

ggplot2に、例えば2行のプロットがあり、伝説には "Sharks"と "Tiger"があります。そのテキストの代わりに鮫/虎の画像が伝説に現れるようにする方法はありますか？

Answer 1

図形をepsまたはsvgとして保存してから、Illustratorで開いたり、凡例を画像に置き換えたりする方が、ggsaveを使用する方がずっと良いです。あなたがRでそれをやっていることを本当に諦めているならば、にannotation_rasterを使用して、隣にあるテキストをgeom_textを使って追加することができます。ここでは大まかな試みです：

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)