if (FALSE) {
library(netCoin)
data("sociologists")
sociologists$entity <- sub(".png","",sociologists$picture)
sociologists <- pop_up(sociologists, title="name",
title2="birth_country", entity="entity")
plot(exhibit(sociologists, label="name", ntext="pop_up"))
}
Run the code above in your browser using DataLab