Диаграмма p ie для выбранного элемента комбинированного списка

Question

Мне нужен такой график

Я строю график ap ie на панели инструментов, но хочу построить график ap ie для выбранного элемента в combobox, с функцией plotly

мои данные

State=c ('USA', 'Belgium', 'France','Russia')
totalcases= c(553, 226, 742,370)
totalrecovered=c(12,22,78,21)
totaldeath=c(48,24,12,22)
DTF = data.frame(State,totalcases,totalrecovered,totaldeath)

Мой код для построения одной p ie-диаграммы :

labels=c("unrecovered","death","recovered")
USA=filter(DTF,DTF$State=="USA" )
USA=c(USA$Totalcases,USA$Totaldeath,USA$Totalrecovred)
        p1= plot_ly(labels = ~labels,
                 values = ~USA, type = 'pie',
                 marker = list(colors = brewer.pal(7,"Spectral")))
        p1

Спасибо.

Answer 1

Проблема в том, что ваш набор данных представляет собой полный беспорядок. (; Попробуйте это:

library(plotly)
library(RColorBrewer)
library(dplyr)
library(tidyr)

State=c ('USA', 'Belgium', 'France','Russia')
totalcases= c(553, 226, 742,370)
totalrecovered=c(12,22,78,21)
totaldeath=c(48,24,12,22)
DTF = data.frame(State,totalcases,totalrecovered,totaldeath)

dtf_long <- DTF %>% 
  pivot_longer(-State, names_to = "labels") %>% 
  mutate(labels = gsub("total", "", labels),
         labels = ifelse(labels == "cases", "unrecovered", labels))
dtf_long
#> # A tibble: 12 x 3
#>    State   labels      value
#>    <fct>   <chr>       <dbl>
#>  1 USA     unrecovered   553
#>  2 USA     recovered      12
#>  3 USA     death          48
#>  4 Belgium unrecovered   226
#>  5 Belgium recovered      22
#>  6 Belgium death          24
#>  7 France  unrecovered   742
#>  8 France  recovered      78
#>  9 France  death          12
#> 10 Russia  unrecovered   370
#> 11 Russia  recovered      21
#> 12 Russia  death          22

usa <- filter(dtf_long, State == "USA")

p1 <- usa %>% 
  plot_ly(labels = ~labels,
          values = ~value, type = 'pie',
          marker = list(colors = brewer.pal(7, "Spectral")))
p1

^{Создано в 2020-04-04 пакетом представлением (v0 .3.0)}