library(sunburstR)
## Warning: package 'sunburstR' was built under R version 4.3.3
library(htmltools)
#> Warning: package 'htmltools' was built under R version 4.1.3
library(d3r)
## Warning: package 'd3r' was built under R version 4.3.3
# Load necessary libraries (if not already loaded)
library(dplyr)
##
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
##
## filter, lag
## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, union
dat2 <- read.csv("//prd-dcri-smb03.azure.dhe.duke.edu/dcri/outcomes/ahagwtg/staff/rty5/AFIB/04_Chyou/output/sunburstinput2.csv")
# Print the resulting data frame
print(dat2)
## size level1 level2 level3 level4
## 1 1 missing no not needed not needed
## 2 1 missing yes not needed yes
## 3 1 missing not needed yes yes
## 4 1 no no no yes
## 5 1 no no yes yes
## 6 1 no yes no not needed
## 7 1 no yes yes no
## 8 1 no not needed no yes
## 9 1 no missing no not needed
## 10 1 no missing yes yes
## 11 1 no missing missing not needed
## 12 1 yes no not needed no
## 13 1 yes yes yes missing
## 14 1 yes not needed no missing
## 15 1 yes not needed missing no
## 16 1 yes missing yes missing
## 17 1 yes missing not needed missing
## 18 1 not needed no no yes
## 19 1 not needed no yes yes
## 20 1 not needed yes missing yes
## 21 1 not needed not needed no no
## 22 1 not needed missing no no
## 23 1 not needed missing no yes
## 24 1 not needed missing no not needed
## 25 1 not needed missing missing yes
## 26 1 missing yes no not needed
## 27 1 missing not needed yes no
## 28 2 missing yes not needed not needed
## 29 2 yes no no yes
## 30 2 yes not needed yes missing
## 31 2 yes missing missing yes
## 32 2 not needed yes yes no
## 33 2 not needed yes not needed missing
## 34 2 missing yes not needed yes
## 35 2 missing yes missing not needed
## 36 2 missing missing not needed not needed
## 37 3 missing not needed not needed yes
## 38 3 missing not needed missing not needed
## 39 3 no yes missing not needed
## 40 3 no not needed yes no
## 41 3 yes no missing not needed
## 42 3 yes missing yes no
## 43 3 yes missing not needed no
## 44 3 not needed yes no yes
## 45 3 not needed not needed yes no
## 46 3 missing no yes not needed
## 47 3 missing not needed yes yes
## 48 4 not needed no no not needed
## 49 4 not needed missing yes yes
## 50 4 not needed missing missing not needed
## 51 4 missing no not needed not needed
## 52 5 missing not needed no not needed
## 53 5 no no yes not needed
## 54 5 no no not needed not needed
## 55 5 no not needed missing yes
## 56 5 yes not needed no no
## 57 6 yes no no not needed
## 58 6 yes yes no yes
## 59 6 missing not needed not needed no
## 60 6 missing not needed missing not needed
## 61 7 yes yes yes no
## 62 7 yes yes missing yes
## 63 7 yes missing no not needed
## 64 7 not needed yes not needed no
## 65 7 missing yes yes not needed
## 66 8 missing not needed yes not needed
## 67 8 no missing yes not needed
## 68 9 yes no yes yes
## 69 9 yes not needed not needed missing
## 70 9 not needed no yes not needed
## 71 9 not needed yes missing not needed
## 72 9 not needed not needed missing yes
## 73 10 no yes yes yes
## 74 10 no not needed not needed no
## 75 10 no missing not needed not needed
## 76 10 missing not needed no not needed
## 77 11 yes yes not needed no
## 78 11 not needed no not needed yes
## 79 11 not needed not needed not needed missing
## 80 12 missing not needed not needed yes
## 81 14 no yes not needed yes
## 82 14 yes no not needed yes
## 83 14 yes missing missing not needed
## 84 14 not needed not needed no yes
## 85 17 not needed yes no not needed
## 86 18 not needed missing not needed yes
## 87 19 missing yes not needed not needed
## 88 20 not needed yes yes yes
## 89 23 yes not needed missing yes
## 90 24 no not needed missing not needed
## 91 24 yes not needed no yes
## 92 24 yes not needed yes no
## 93 25 no yes yes not needed
## 94 25 yes missing yes yes
## 95 26 missing not needed not needed not needed
## 96 26 no not needed no not needed
## 97 26 yes yes missing not needed
## 98 28 yes missing not needed yes
## 99 30 not needed missing yes not needed
## 100 37 not needed not needed missing not needed
## 101 39 no not needed yes yes
## 102 41 not needed not needed not needed no
## 103 42 missing not needed yes not needed
## 104 46 yes yes no not needed
## 105 53 yes no yes not needed
## 106 53 not needed not needed yes yes
## 107 61 not needed yes yes not needed
## 108 62 not needed not needed no not needed
## 109 66 yes yes yes yes
## 110 67 no yes not needed not needed
## 111 73 yes not needed not needed no
## 112 78 not needed no not needed not needed
## 113 85 yes no not needed not needed
## 114 96 not needed yes not needed yes
## 115 116 no not needed not needed yes
## 116 120 yes missing yes not needed
## 117 143 not needed missing not needed not needed
## 118 148 yes yes not needed yes
## 119 175 no not needed yes not needed
## 120 190 missing not needed not needed not needed
## 121 206 yes missing not needed not needed
## 122 231 yes not needed missing not needed
## 123 262 yes not needed no not needed
## 124 304 yes not needed yes yes
## 125 328 not needed not needed yes not needed
## 126 362 yes yes yes not needed
## 127 405 not needed not needed not needed yes
## 128 422 not needed yes not needed not needed
## 129 772 no not needed not needed not needed
## 130 777 yes not needed not needed yes
## 131 794 yes yes not needed not needed
## 132 2302 yes not needed yes not needed
## 133 3598 not needed not needed not needed not needed
## 134 7395 yes not needed not needed not needed
tree <- d3_nest(dat2, value_cols = "size")
sb1 <- sunburst(tree, width="100%", height=400)
sb1