Как добавить метки и проценты к печати Sunburst R - PullRequest
Новая
       23

Как добавить метки и проценты к печати Sunburst R

0 голосов
/ 17 марта 2019

Я пытаюсь добавить метки и проценты к каждому слою в диаграмме солнечных лучей, используя R - так это выглядит Sunburst .

Я могу создать диаграмму солнечных лучей (используя это руководство) , но я не могу понять, как добавить метки или проценты. Я также хочу иметь возможность распечатать диаграмму со всеми метками и процентами.

Вот мой код. 

# libraries
library(dplyr)
library(treemap)
library(sunburstR)
library(readxl)
library(vcd)


## Load Arthritis as example
Data <- data.frame(Arthritis)
Data <- Data %>% select(-ID) %>% 
mutate(Age=ifelse(Age<50,"Young","Old")) %>% group_by(Treatment,Sex,Improved,Age) %>% 
summarise(Count=n()) %>% 
mutate(Path=paste(Treatment,Sex,Improved,Age,sep="-")) %>% 
ungroup() %>% 
select(Path,Count)

sunburst(Data)

Любая помощь будет великолепна.

Спасибо.

...