knitr::opts_chunk$set( collapse = TRUE, comment = "#>", fig.path = "README-" )
library(dplyr) library(bubblewordchart) df <- data_frame( qt1 = 1:10 + rbinom(10,10,0.5), qt2 = 10:1 + rbinom(10,10,0.5), palavra = letters[1:10] ) bubblewordchart(df, "palavra", "qt1", "qt2")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.