data(miserables)
net <- network_rd3(miserables$nodes, miserables$links,
size="degree", color="group", lwidth="value")
data(finches)
data(galapagos)
bar <- barplot_rd3(finches, galapagos, select="Certhidea olivacea")
data(sociologists)
time <- timeline_rd3(sociologists,"name","birth","death","birthcountry")
multi <- rd3_multigraph(network=net, barplot=bar, timeline=time)
if (FALSE) {
rd3_multiPages(multi,"Some graphs",show=TRUE)
}
Run the code above in your browser using DataLab