R Плоская круговая диаграмма пользовательских цветов

Question

Я боролся с этой проблемой в течение нескольких дней, если кто-то может мне помочь. У меня есть таблица данных, которая имеет результаты столбца со значениями «Высокий», «Средний» или «Низкий». Я пытаюсь создать круговую диаграмму, используя plotly, подсчитывая количество High, Medium и Low в наборе данных и пытаясь присвоить цвет каждой категории. Ниже мой код. Я попробовал cols1 и cols2 как мой маркер и несколько других способов, но ничего не работает. Имейте в виду, что это динамическая таблица, поэтому могут быть случаи, когда нет High или No Medium и т. Д., Поэтому я просто не могу использовать список (c («томатный», «ornage», «olivedrab») в качестве маркера. Цвет должен быть привязан к категории результата.

tab <- count(data, results) 

    tab <- transform(tab, 
        results_ord = factor(
        results , 
        levels = c('High', 'Medium', 'Low'), 
        ordered = TRUE 
        )) 
    cols1 <- 
    c(
     High = "olivedrab", 
     Medium = "orange", 
     Low = "tomato" 
    ) 
    cols2 <- 
    c(ifelse(
     tab$results_ord == "High", 
     "olivedrab", 
     ifelse(
     tab$results_ord == "Medium", 
     "orange", 
     "tomato" 
    ) 
    )) 


    plot_ly(
    tab, 
    labels = results_ord, 
    values = n, 
    marker = list(cols2), 
    type = "pie" 
) %>% 
    layout(title = "Results") 

    thanks, 

Манодж Агравал

Answer 1

синтаксис для 4.x версии plotly, но вы можете настроить соответствующим образом для старшего verison. Вот как вы можете получить руководство цветов для отображения:

df <- count(mtcars, am) 
plot_ly(df, values = ~n, labels = ~factor(am), colors = c('#FF7F0E', '#1F77B4'), type = 'pie') 

Вы можете настроить порядок факторов, чтобы получить желаемый цвет для r желаемое значение.