Mehrere geplottete Kreisdiagramme in einer Zeile

Ich versuche, zwei Kreisdiagramme mit dem @ in einer Zeile anzuordnesubplot -Funktion aus dem Plot-Paket, aber das resultierende Plot ist nicht das, was ich erwarte. Ich konnte dasselbe für Liniendiagramme usw. tun, habe jedoch Probleme, zwei Kreisdiagramme in einer einzigen Zeile zu zeichnen. Es folgt der Code, den ich habe.

ds_r <- data.frame(labels = c("Baseline", "DTC", "Detailing", "Flex"),
                 values = c(63.5, 8.5, 20.6, 7.4))

ds_l <- data.frame(labels = c("Baseline"),
                 values = c(100))

plot_right <- plot_ly(ds_r, labels = labels, values = values, type = "pie") %>% 
  layout(title = "Sales - Decomposed")

plot_left <- plot_ly(ds_l, labels = labels, values = values, type = "pie") %>%
  layout(title = "Total Sales")

subplot(plot_left, plot_right, nrows = 2)

Die Ausgabe ist

Wenn Sie die roten Kästchen am unteren Rand des Bildes markieren, gibt es zwei Achsensätze, was bedeutet, dass es zwei Diagramme gibt, die sich jedoch wahrscheinlich überlappen oder so.

Ich möchte, dass die Ausgabe aus zwei Kreisdiagrammen in einer Zeile ohne Achsen besteht. Irgendeine Hilfe oder Richtung?

Antworten auf die Frage(4)

Ihre Antwort auf die Frage