plotly R API, возможно ли иметь подзаголовки для круговых диаграмм?

Question

Я надеюсь разместить две круговые диаграммы с API-интерфейса plotly's. Однако, похоже, это не работает.

library(plotly) 
ds <- data.frame(labels = c("A", "B", "C"), 
      val1 = c(10, 40, 60), 
      val2 = c(20,40, 50)) 

p1 <- plot_ly(ds, labels = labels, values = val1, type = "pie") 
p2 <- plot_ly(ds, labels = labels, values = val2, type = "pie") 

subplot(p1, p2, margin=0.05) 

Благодарим за помощь.

Answer 1

Я постараюсь ответить. Для круговых диаграмм с использованием plot_ly() используется домен, используемый внутри layout() не работает. Вам необходимо указать домены, внутри plot_ly() и add_trace() вызовов вроде так:

library(plotly) 

df <- data.frame(labels1 = LETTERS[1:5], values1 = sample(100:200, size = 5), 
       labels2 = LETTERS[6:10], values2 = sample(100:200, size = 5)) 

plot_ly(df, labels = labels1, values = values1, type = "pie", 
     domain = list(x = c(0, 0.4)), showlegend = F) %>% 

    add_trace(labels = labels2, values = values2, type = "pie", 
      domain = list(x = c(0.6, 1)), showlegend = F) %>% 

    layout(title = "Pie chart - subplot") 

Надеются, что это помогает ...