由内而外的阴谋森伯斯特? (r/闪亮)

问题描述

我想要实现的是在甜甜圈内绘制一个甜甜圈,然后在内部甜甜圈的切片之间绘制一些线条。

一直在看 plotly 的森伯斯特图,但这对我来说完全是“由内而外”。森伯斯特的根在其中心,分支向外。有道理,但由于我只需要父层下的一层孩子,我想要外面的父母和里面的孩子。那是因为我需要用线条将这些孩子连接起来,然后将这些放在里面是合乎逻辑的。

但是:我在旭日形上找不到任何选项可以将其方向从外向内“反转”。森伯斯特图是否存在这样的选项?或者我应该改变策略,添加两个单独的甜甜圈,然后同步它们的外观(如何)?

当前代码

library(shiny)
library(dplyr)
library(plotly)

ui <- fluidPage(
  plotlyOutput("plot")
)

server <- function(input,output,session) {
    # Read csv containing three columns named ids,labels,parents
    dtRutte3 <- read.csv("Herverkaveling.Rutte3.csv",sep=';',fileEncoding="Windows-1252")
    
    output$plot <- renderPlotly({
        fig <- plot_ly() 
        fig <- fig %>%
            add_trace(
                ids = dtRutte3$ids,labels = dtRutte3$labels,parents = dtRutte3$parents,type = 'sunburst',maxdepth = 2,domain = list(column = 0)
            ) 
        fig
    })
}
shinyApp(ui,server)

数据样本:

dtRutte3 <- data.frame(
  stringsAsFactors = FALSE,ids = c("I","IIA","IIB","III","I.1","I.2","I.3","IIA.1","IIA.2","IIA.3","IIA.4","IIA.10","IIB.1","IIB.2","IIB.3","IIB.4","IIB.6","IIB.7","IIB.8","IIB.9","IIB.10","III.1","III.4","III.5"),labels = c("De Koning","Staten-Generaal","Overige Hoge Colleges van Staat,Kabinetten en de Kiesraad","Algemene Zaken","Grondwettelijke uitkering aan de leden vh Koninklijk Huis","Functionele uitgaven van de Koning","Doorbelaste uitgaven van andere begrotingen","Wetgeving en controle Eerste Kamer","Uitgaven tbv van (oud) leden Tweede Kamer en leden EP","Wetgeving en controle Tweede Kamer","Wetgeving en controle Eerste en Tweede Kamer","Nog onverdeeld","Nominaal en onvoorzien","Raad van State","Algemene Rekenkamer","De Nationale Ombudsman","Kanselarij der Nederlandse Orden","Kabinet van de Gouverneur van Aruba","Kabinet van de Gouverneur van Curaçao","Kabinet van de Gouverneur van Sint Maarten","Kiesraad","Bevorderen eenheid regeringsbeleid","Kabinet van de Koning","Cie voor toezicht op de Inlichtingen- en veiligheidsdiensten"),parents = c(NA,NA,"I","III")
)

解决方法

暂无找到可以解决该程序问题的有效方法,小编努力寻找整理中!

如果你已经找到好的解决方法,欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@)