library(animint2)
data(WorldBank)
wb <- WorldBank[WorldBank$year == 2010,]
p <- ggplot()+
geom_text(aes(y=fertility.rate, x=life.expectancy,
label=iso2c, size=population, colour=population),
data=wb)+
scale_size_continuous(range=c(10,20))
print(p)
animint2dir(list(plot1=p), "text_size")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.