派，r闪亮

Question

我想让左侧的滑块更改派中显示的类数。我需要添加/更改以做什么行才能做到这一点？ 这是我的CSV文件数据：

这是我写的代码：

    library(shiny)
    library(readr)
    GiuseppeData <- read_csv("Classes_with_Giuseppe.csv")

#As I understand the line should be added/changed in this part
#Here I Define UI for application that draws a pie

    ui <- fluidPage(
        
# App title ----
    

    titlePanel("Hello Giuseppe!"),
        
# Sidebar layout with input and output definitions ----
    
    sidebarLayout(
            
# Sidebar panel for inputs ----
        
    sidebarPanel(
            
# Input: Slider for the number of bins ----
            
    sliderInput(inputId = "bins",
                        label = "Amount of Classes",
                        min = 1,
                        max = 18,
                        value = 7)
                        
            
        ),
            
# Main panel for displaying outputs ----
       
    mainPanel(
                
# Output: Histogram ----
            

    plotOutput(outputId = "distPie")
         )
        )
    )

# Define server logic required to draw a pie

    server <- function(input, output) {
    
    output$distPie <- renderPlot({
        
        x    <- GiuseppeData$length_of_classes
        bins <- seq(min(x), max(x), length.out = input$bins + 1)
        
        pie(x, breaks = bins, col = "76776", border = "pink",
             xlab = "Pie of Length of Each Class (in hours)",
             main = "Pie of Classes")
        
    })
    
    }

# Run the application 
   

     shinyApp(ui = ui, server = server)

Answer 1

为了完整。

重写renderplot部分：

output$distPie <- renderPlot({
        
    x <- GiuseppeData[1:input$bins,]$length_of_classes
        
    pie(x, col = "76776", border = "pink",
         xlab = "Pie of Length of Each Class (in hours)",
         main = "Pie of Classes")
        
})

坦率地说，我不知道您想用breaks = bins = bins hreak> breaks 不是一个pie的有效参数，但是此代码的想法是选择行1，直到sliderInput （Input $ bins >）。然后，您使用$运算符选择列length_of_classes，该操作员将自动将单列转换为数字向量。

小脚注：在常规data.frames中，您还可以使用giuseppedata [1：Input $ bins，“ lentha”向量。但是，您正在使用的readr软件包不会导入文件为data.frame，而是作为spec_tbl_df，因此$ < /代码>需要操作员