使用dplyr進行總結

Question

我目前有一個應用程序設置，可以讓用戶輸入他們想要繪制和可視化的變量。 當我嘗試將閃亮的輸入變量傳遞給摘要時，我遇到了一個問題。

testData <- plotData %>% 
        summarize(means=mean(input$selectedMetric, na.rm=TRUE)) %>%
        summarize(sd=sd(input$selectedMetric, na.rm=TRUE))

我得到的錯誤如下：

Warning in mean.default(input$selectedMetric, na.rm = TRUE) :
argument is not numeric or logical: returning NA

我應該如何設置它，使其采用用戶決定的所選列的均值和標准差？

Answer 1

這里有些問題可能會出錯：

• 使用input$selectedMetric時不檢查null

• 您使用reactives不正確。 您應該在最后使用()來訪問反應式，因為它們是返回某些內容的函數。

在Im下方，假設您的plotData變量不是反應式的，並且是聲明的對象

testData <- reactive({
  if(is.null(input$selectedMetric)){
    return()
  }
  plotData %>% 
    summarize(means=mean(input$selectedMetric, na.rm=TRUE)) %>%
    summarize(sd=sd(input$selectedMetric, na.rm=TRUE))
})

testData()

您可以訪問摘要，如下所示： testData()