# NOT RUN {
alive <- "https://twemoji.maxcdn.com/72x72/1f60a.png"
dead <- "https://twemoji.maxcdn.com/72x72/1f480.png"
dotplot(Titanic,
scales = list(x = "free"),
between = list(x = 1),
panel = panel.xyimage,
pch = c(dead, alive), grid = "h",
main = "Survival on the Titanic",
xlab = "Number of persons")
# }
Run the code above in your browser using DataLab