knitr::opts_chunk$set(echo = TRUE)
library(htmltools) library(radviz) tagList( lapply( 1:2, function(x){ radviz(iris, diameter=600, margin=100, use_repulsion=TRUE, draw_links=TRUE, width=600, height=500 ) %>% add_dimensions(c('Sepal.Length', 'Sepal.Width', 'Petal.Length', 'Petal.Width')) %>% add_color("Species") %>% add_tooltip("function(d){ return 'Petal width: ' + d['Petal.Length']; }") } ) )
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.