使用 RShiny 和金字塔库显示问题

Question

在我使用 RShiny 的第一个项目期间，我在使用金字塔库 (https://cran.r-project.org/web/packages/pyramid/index.html) 时遇到了问题。 代码执行没有错误，但我没有在闪亮的应用程序中获得显示结果。

这里是 server.R 文件和 UI.R 文件中的相关代码：

服务器.R：

output$effectifStartAgrege <- renderPlot({
    staff <- read.xlsx('C:/file.xlsx', 1)
    pyramid(staff, main = "Statistics")
}) 

ui.R：

shinyUI(fluidPage(
    dashboardBody( 
        tabItems(
            tabItem(tabName = "Team D",
                tabBox(
                    title = "Team detailed compositions",
                    width = 400,
                    id = "tabset2", height = "250px",
                    tabPanel("START", "First tab content",                                                      
                    plotOutput("effectifStartAgrege")))                        
                   )
        )
   )
))

以及 dput(staff) 的输出：

structure(list(Grade = structure(c(4L, 1L, 2L, 6L, 7L, 8L, 5L, 
9L, 3L), .Label = c("AD", "AE", "AS/ED", "I", "M", "S1", "S2", 
"S3", "SM"), class = "factor"), Assurance = c(6, 7, 0, 8, 7, 
0, 7, 2, 4), Pension = c(0, 10, 0, 2, 3, 0, 2, 1, 2), Analytics = c(3, 
3, 0, 2, 2, 0, 1, 1, 0)), .Names = c("Grade", "Assurance", "Pension", 
"Analytics"), row.names = c(NA, -9L), class = "data.frame")

Answer 1

问题不在于pyramid 库，而在于您的ui 设计。见this，需要去掉shinyUI和fluidPage，换成dashboardPage，添加页眉和侧边栏等。

这是我发布的链接中的一个示例：

library(shiny)
library(pyramid)
library(shinydashboard)


sidebar <- dashboardSidebar(
  sidebarMenu(
    menuItem("Team D", tabName = "TeamD", icon = icon("dashboard")),
    menuItem("Widgets", icon = icon("th"), tabName = "widgets",
             badgeLabel = "new", badgeColor = "green")
  )
)

body <- dashboardBody(
  tabItems(
    tabItem(tabName = "widgets",
            h2("Dashboard tab content")
    ),

    tabItem(tabName = "TeamD",
            h2("test"),
            tabBox(
              title = "Team detailed compositions",
              width = 400,
              id = "tabset2", height = "250px",
              tabPanel("START", "First tab content",                                                      
                       plotOutput("effectifStartAgrege"))) 
    )
  )
)

ui <-dashboardPage(
  dashboardHeader(title = "Simple tabs"),
  sidebar,
  body
)

server <- function(input, output) {
  output$effectifStartAgrege <- renderPlot({
    pyramid(staff, main = "Statistics")
  }) 
}
shinyApp(ui,server)