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']; }")
    }
  )
)


hrbrmstr/radviz documentation built on May 17, 2019, 5:12 p.m.