Используйте ggplot и ggplotly вместо plot_ly для создания круговой диаграммы - PullRequest
Новая
       23

Используйте ggplot и ggplotly вместо plot_ly для создания круговой диаграммы

0 голосов
/ 25 мая 2018

Здравствуйте, у меня есть простое блестящее приложение, которое создает круговую диаграмму на основе ввода FacilityName моего набора данных.Я хочу, чтобы каждый раз, когда я выбирал другое средство, моя круговая диаграмма отображала долю между EXT / INT (OriginId).Кроме того, каждый кусок должен отображать долю и число «kunden». К сожалению, plot_ly (), похоже, не работает для меня должным образом, поэтому я бы вместо этого использовал ggplot (), а затем преобразовал его в plotly с помощью ggplotly ().

enter image description here

#data
OriginId=c("INT","EXT","INT","INT","EXT","INT","EXT","INT")
FacilityName=c("t1","t1","t2","t2","t1","t3","t4","t5")
FacId=c("t1","t1","t2","t2","t1","t3","t4","t5")
Testdata2<-data.frame(OriginId,FacilityName,FacId)

#ui.r
library(shinydashboard)
library(plotly)
library(data.table)

dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody()
)
#
ui <- dashboardPage(skin = "black",
                    dashboardHeader(title = img(src="Logo1.jpg", height = 50, align = "left")

                    ),

                    ## Sidebar content
                    dashboardSidebar(
                      sidebarMenu(
                        menuItem("Dashboard", tabName = "dashboard", icon = icon("dashboard"))

                      )
                    ),

                    ## Body content
                    dashboardBody(
                      tabItems(

                        # Dashboard tab
                        tabItem(tabName = "dashboard",
                                fluidRow(
                                  box(title = "Verhältnis interner / externer Aufträge", status = "primary", solidHeader = TRUE,
                                      plotlyOutput("pie",height = 250)),
                                  uiOutput("var")

                                )

                        )



                      )
                    )
)
#server.r
server <- function(input, output,session) {

  # Auftrag INT vs Ext
  output$pie<-renderPlotly({

    data <- dplyr::tbl_df(subset(Testdata2,Testdata2$FacilityName %in% input$variable))
    ttestdata <- data.frame(data %>% group_by(OriginId) %>% mutate(Counts = n())) 
    p <- plot_ly(data, labels=data$OriginId, values = table(data$OriginId), type = 'pie',
                 textposition = 'inside',
                 insidetextfont = list(color = '#FFFFFF'),
                 hoverinfo = 'text',
                 text = ~paste(ttestdata$Counts, ' Kunden'),
                 marker = list(
                   line = list(color = '#FFFFFF', width = 1)),
                 showlegend = FALSE) %>%
      layout(
        title = paste(input$variable),
        xaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE),
        yaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE))

  })



  output$var<-renderUI({
    selectInput("variable",
                h4("Abteilung wählen:"),
                choices = Testdata2 %>% distinct(FacilityName),selected = 1)
  })

}

1 Ответ

0 голосов
/ 28 мая 2018

Круговая диаграмма в ggplot2:

Вот как вы можете сделать круговую диаграмму в ggplot2: 

data <- Testdata2 %>% filter(FacilityName == "t1")
p <- ggplot(data, aes(x = '', fill = OriginId)) +
        geom_bar(width = 1, stat = "count") +
        coord_polar(theta = "y", start = 0)

Идея состоит в том, чтобы использовать диаграмму и переключиться на полярные координаты.Это дает следующий график:

enter image description here

Поддержка в ggplotly ():

Полярные координаты еще не поддерживаются ggplotly().

Вы можете обратиться к этой проблеме GitHub, чтобы следовать этому пункту: https://github.com/ropensci/plotly/issues/878

...