# NOT RUN {
# get a silhouette
cat <- image_data("23cd6aa4-9587-4a2e-8e26-de42885004c9", size = 128)[[1]]
# single image
plot(1, 1, type="n", main="A cat herd")
add_phylopic_base(cat, 0.5, 0.5, 0.2)
# lots of images
posx <- runif(50, 0, 1)
posy <- runif(50, 0, 1)
size <- runif(50, 0.01, 0.2)
plot(posx, posy, type="n", main="A cat herd")
for (i in 1:50) {
add_phylopic_base(cat, posx[i], posy[i], size[i])
}
# }
Run the code above in your browser using DataLab