if (FALSE) {
library(ggplot2)
df <- data.frame(x = c(2, 4), y = c(10, 20),
name = c("Felis silvestris catus", "Odobenus rosmarus"))
ggplot(df) +
geom_phylopic(aes(x = x, y = y, name = name, color = name), size = 10,
show.legend = TRUE,
key_glyph = phylopic_key_glyph(name =
c("Felis silvestris catus",
"Odobenus rosmarus"))) +
coord_cartesian(xlim = c(1,6), ylim = c(5, 30))
}
Run the code above in your browser using DataLab