круговая диаграмма вместе с ошибкой информационного фрейма infoBox () глянцевого приложения - PullRequest
Новая
       54

круговая диаграмма вместе с ошибкой информационного фрейма infoBox () глянцевого приложения

0 голосов
/ 21 сентября 2019

Я хотел отобразить круговую диаграмму на основе данных, отображаемых в infoBox ().Блестящее приложение должно отображать результаты в информационной строке, а также в виде круговой диаграммы.

Вот мой код: 

library(shiny)
library(shinydashboard)
library(ECharts2Shiny)

a <- 10
b <- 20
dat1 <- data.frame(a,b)
colnames(dat1) <- c("Male", "Female")

c <- 20
d <- 20
dat2 <- data.frame(c,d)
colnames(dat2) <- c("Male", "Female")

e <- 30
f <- 20
dat3 <- data.frame(e,f)
colnames(dat3) <- c("Male", "Female")

ui <- shinyUI(dashboardPage(
    dashboardHeader(title = "123"),
    dashboardSidebar(disable = TRUE),
    dashboardBody(
    fluidRow(radioButtons("Ben", "Details", c("1","2", "3"), inline = T), 
    infoBoxOutput("loc", width = 960)
    )))


server <- shinyServer(function(input,output){

output$loc <- renderInfoBox({
if (input$Ben == "1"){
  box(h3("1"),
      infoBox("Total", 30, "Visits", icon = icon('users'), width = 4),
      infoBox("M", 10 ,"Visits", icon = icon('male'), width = 4),
      infoBox("F", 20 ,"Visits", icon = icon('female'), width = 4),
      loadEChartsLibrary(),  tags$div(id="test1", style="width:60%;height:300px;"),
              deliverChart(div_id = "test1"), width = "800px", height = "400px",
      renderPieChart(div_id = "test1", data = dat1, show.label = TRUE),
      background = "black")       
}
else {if (input$Ben == "2") {
  box(h3("2"),
      infoBox("Total", 40, "Visits", icon = icon('users'), width = 4),
      infoBox("M", 20 ,"Visits", icon = icon('male'), width = 4),
      infoBox("F", 20 ,"Visits", icon = icon('female'), width = 4),
      loadEChartsLibrary(),  tags$div(id="test2", style="width:60%;height:300px;"),
              deliverChart(div_id = "test2"), width = "800px", height = "400px",
      renderPieChart(div_id = "test2", data = dat2, show.label = TRUE),
      background = "black") 
}    
      else{
          box(h3("3"),
              infoBox("Total", 50 , icon = icon('users'), width = 4),
              infoBox("m", 30, icon = icon("male"), width = 4),
              infoBox("f", 20,  icon = icon('female'), width = 4),
              loadEChartsLibrary(),  tags$div(id="test3", style="width:60%;height:300px;"),
              deliverChart(div_id = "test3"), width = "800px", height = "400px",
              renderPieChart(div_id = "test1", data = dat1, show.label = TRUE), background ="black")

        }}  }}}

    })

})

shinyApp(ui,server)

При выборе переключателя infoBox () исоответствующая круговая диаграмма должна быть указана в блестящем приложении.Может ли кто-нибудь помочь в этом?

1 Ответ

0 голосов
/ 21 сентября 2019

Я считаю, что проблема в выражении renderPieChart: 

renderPieChart(div_id = "test1", data = dat1, show.label = TRUE)

Данные, используемые для круговых диаграмм, не соответствуют формату, необходимому для renderPieChart.data.frame предоставляется, но он должен быть в следующем формате:

Если это data.frame, данные должны состоять только из двух столбцов, «name» и «value»,Столбец «значение» должен быть числовым или целым числом.

Таким образом, для dat1 (и других данных) вы можете сделать следующее (для 10 мужчин и 20 женщин): 

dat1 <- data.frame(
  name = c("Male", "Female"),
  value = c(10, 20)
)

Затем следует нарисовать круговые диаграммы.

Также обратите внимание, что на третьей круговой диаграмме должно быть div_id = "test 3" Я подозреваю.

...