knitr::opts_chunk$set(echo = TRUE)
library(vtree)
(v1 <- vtree(FakeData,"Severity Sex"))
grVizToPNG(v1,width=3000,folder="png")
(v2 <- vtree(FakeData,"Group",horiz=FALSE))
grVizToPNG(v2,width=3000,folder="png")
(v3 <- vtree(FakeData,"Severity Sex", showlegend=TRUE,sameline=TRUE))
grVizToPNG(v3,width=3000,folder="png")
(v4 <- vtree(FakeData,"Severity Sex", prune=list(Severity=c("Mild","Moderate"))))
grVizToPNG(v4,width=3000,folder="png")
(v5 <- vtree(FakeData,"Severity Sex", prunebelow=list(Severity=c("Mild","Moderate"))))
grVizToPNG(v5,width=3000,folder="png")
(v6 <- vtree(FakeData,"Severity Sex", keep=list(Severity=c("Mild","NA"))))
grVizToPNG(v6,width=3000,folder="png")
(v7 <- vtree(FakeData,"Severity Sex", follow=list(Severity=c("Mild","NA"))))
grVizToPNG(v7,width=3000,folder="png")
(v8 <- vtree(FakeData,"Group Severity",sameline=TRUE, text=list(Severity=c(Mild="\n*or none*"))))
grVizToPNG(v8,width=3000,folder="png")
(v9 <- vtree(FakeData,"Severity Age Pre Post",check.is.na=TRUE))
grVizToPNG(v9,width=3000,folder="png")
(v10 <- vtree(FakeData,"Severity",sameline=TRUE, summary="Score \n mean=%mean%"))
grVizToPNG(v10,width=3000,folder="png")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.