R Plotly Deux parcelles côte à côte

Question

J'essaie d'obtenir deux parcelles de donut côte à côte dans l'intrigue. Cependant, je reçois seulement une image. Des conseils sur ce qui me manque?

library(dplyr) 
library(plotly) 

df1 <- as.data.frame(matrix(data = c("a","b", "c", 34,28, 29), nrow = 3, ncol = 2)) 
colnames(df1) <- c("category", "count") 
df2 <- as.data.frame(matrix(data = c("Q","F", "G", 29,50, 76), nrow = 3, ncol = 2)) 
colnames(df2) <- c("group", "count") 


p <- subplot(
    plot_ly(df1, labels = category, values = count, type = "pie", hole = 0.6, showlegend = TRUE), 
    plot_ly(df2, labels = group, values = count, type = "pie", hole = 0.6, showlegend = TRUE), 
    margin = 0.05, 
    nrows = 2 
) 
p 

Courant de sortie:

Answer 1

Vous êtes si proche. Ceci est une adaptation de votre code à Plotly's pie charts examples: (. Ils utilisent add_trace au lieu d'un parent subplot)

plot_ly(df1, labels = category, values = count, type = "pie", hole = 0.6, showlegend = TRUE, 
     domain = list(x = c(0, 1), y = c(0.5, 1))) %>% 
    add_trace(data = df2, labels = group, values = count, type = "pie", hole = 0.6, showlegend = TRUE, 
      domain = list(x = c(0, 1), y = c(0, 0.5))) 

Si vous voulez ajouter quadrillages (par @ exemple de Technophobe01) , vous ajouteriez

ax <- list(showline= TRUE) 
plot_ly(...) %>% add_trace(...) %.% 
    layout(xaxis = ax, yaxis = ax) 

Beaucoup plus d'options pour cela, sapmles sur leur axes page.

Answer 2

Si vous prenez la solution r2evans vous pouvez le faire correspondre à votre question comme suit:

library(dplyr) 
library(plotly) 

df1 <- as.data.frame(matrix(data = c("a","b", "c", 34,28, 29), nrow = 3, ncol = 2)) 
colnames(df1) <- c("category", "count") 
df2 <- as.data.frame(matrix(data = c("Q","F", "G", 29,50, 76), nrow = 3, ncol = 2)) 
colnames(df2) <- c("group", "count") 


p2<- subplot(
    plot_ly(df1, labels = category, values = count, type = "pie", hole = 0.6, showlegend = TRUE, 
      domain = list(x = c(0, 0.5), y = c(0, 1))), 
    add_trace(data = df2, labels = group, values = count, type = "pie", hole = 0.6, 
       domain = list(x = c(0.5, 1), y = c(0, 1))), 
    margin = 0.05) 
p2 

Résultat: