R Plotly Zwei Plots nebeneinander

Question

Ich versuche, zwei Donut-Plots Seite an Seite in Plotly zu bekommen. Ich bekomme jedoch nur ein Bild. Irgendwelche Ratschläge, was ich vermisse?

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 

Stromausgang:

Answer 1

Du bist so nah. Dies ist eine Anpassung des Codes Plotly's pie charts examples: (. Sie sind subplotadd_trace anstelle eines Elternteils mit)

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))) 

Wenn Sie Rasterlinien hinzufügen (pro @ Technophobe01 dem Beispiel) würden Sie hinzufügen

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

Viele weitere Optionen dafür, sapmles auf ihre axes Seite.

Answer 2

Wenn Sie r2evans Lösung nehmen können Sie es zu Ihrer Frage passen, wie folgt:

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 

Ergebnis: