R Shiny – Select multiple xlsx files, rbind them, filter dataset before generating a plot from the multiple xlsx files selected

huangapple
go评论91阅读模式
英文:

R Shiny - Select multiple xlsx files, rbind them, filter dataset before generating a plot from the multiple xlsx files selected

问题

  1. Am trying to generate an R Shiny app where the user can select multiple xlsx files, stack them on top of each other using rbind function, filter the dataset before generating a plot. 
  3. The code in which I am getting an error is as follows:

ui <- fluidPage(
titlePanel("Charts"),
sidebarLayout(
sidebarPanel(
fileInput(inputId="files", label = "Select XLSX files", multiple = TRUE))),
mainPanel(
tabsetPanel(
tabPanel("Plot", plotOutput("plot1&quot))
))))

server <- function(input,output){
data <- reactive({
data=lapply(input$files$datapath, read_xlsx)
data <- do.call(rbind, data)

  1.     if(is.null(data)){
  2.         return(NULL)
  3.     }
  5.     data %&gt;% 
  6.         filter(Variable %in%   c(&#39;A&#39;,&#39;B,&#39;C&#39;)) %&gt;% 
  7.         select(Variable, `Name`,`Calconc`) %&gt;% 
  8.         filter(Name %in% c(&#39;D&#39;,&#39;E&#39;,&#39;F&#39;,&#39;G&#39;)) %&gt;% 
  9. })
  10. output$plot1 &lt;- renderPlot({
  11.     data() %&gt;% 
  12.         filter(Variable==&quot;A&quot;) %&gt;% 
  13.         ggplot(aes(x = Name, y = Calconc))         
  14. })

}
shinyApp(ui=ui, server=server)

  2. **Error:** 
  3. 警告：错误：UseMethod: 对类为 "NULL" 的对象应用的“filter”方法无效。
英文:

Am trying to generate an R Shiny app where the user can select multiple xlsx files, stack them on top of each other using rbind function, filter the dataset before generating a plot.

The code in which I am getting an error is as follows:

  1. ui &lt;- fluidPage(
  2.     titlePanel(&quot;Charts&quot;),
  3.     sidebarLayout(
  4.         sidebarPanel(
  5.             fileInput(inputId=&quot;files&quot;, label = &quot;Select XLSX files&quot;, multiple = TRUE))),
  6.         mainPanel(
  7.             tabsetPanel(
  8.                 tabPanel(&quot;Plot&quot;, plotOutput(&quot;plot1&quot;))
  9.     ))))
  11. server &lt;- function(input,output){
  12.     data &lt;- reactive({
  13.         data=lapply(input$files$datapath, read_xlsx)
  14.         data &lt;- do.call(rbind, data)
  16.         if(is.null(data)){
  17.             return(NULL)
  18.         }
  20.         data %&gt;% 
  21.             filter(Variable %in%   c(&#39;A&#39;,&#39;B,&#39;C&#39;)) %&gt;% 
  22.             select(Variable, `Name`,`Calconc`) %&gt;% 
  23.             filter(Name %in% c(&#39;D&#39;,&#39;E&#39;,&#39;F&#39;,&#39;G&#39;)) %&gt;% 
  24.     })
  25.     output$plot1 &lt;- renderPlot({
  26.         data() %&gt;% 
  27.             filter(Variable==&quot;A&quot;) %&gt;% 
  28.             ggplot(aes(x = Name, y = Calconc))         
  29.     })
  30. }
  31. shinyApp(ui=ui, server=server)

Error:
Warning: Error in UseMethod: no applicable method for 'filter' applied to an object of class "NULL"

答案1

得分: 0

这是我们如何完成的：

我创建了两个虚拟的 xlsx 文件：

  1. df1 <- data.frame(
  2.   Variable = c("A", "B", "C", "D", "E", "F", "G"),
  3.   Name = c("Name1", "Name2", "Name3", "Name4", "Name5", "Name6", "Name7"),
  4.   Calconc = c(0.5, 1.2, 0.9, 1.8, 2.3, 3.1, 4.5)
  5. )
  7. df2 <- data.frame(
  8.   Variable = rev(c("A", "B", "C", "D", "E", "F", "G")),
  9.   Name = rev(c("Name1", "Name3", "Name1", "Name4", "Name1", "Name6", "Name7")),
  10.   Calconc = c(8.5, 9.2, 0.8, 1.8, 2.3, 3.1, 8.5)
  11. )
  13. library(writexl)
  15. write_xlsx(df1, "df1.xlsx")
  16. write_xlsx(df2, "df2.xlsx")

我还稍微调整了你的代码：现在我们有一个选项卡，其中显示了 xlsx 数据。要获取绘图，我注释了筛选函数：

  1. library(shiny)
  2. library(readxl)
  3. library(dplyr)
  4. library(ggplot2)
  6. ui <- fluidPage(
  7.   titlePanel("Charts"),
  8.   sidebarLayout(
  9.     sidebarPanel(
  10.       fileInput(inputId="files", label = "Select XLSX files", multiple = TRUE)
  11.     ),
  12.     mainPanel(
  13.       tabsetPanel(
  14.         tabPanel("Plot", plotOutput("plot1")),
  15.         tabPanel("data", DT::DTOutput("data"))
  16.       )
  17.     )
  18.   )
  19. )
  21. server <- function(input, output) {
  22.   data <- reactive({
  23.     req(input$files)
  24.     data <- lapply(input$files$datapath, read_xlsx)
  25.     if(length(data) == 0) {
  26.       return(data.frame()) # return empty data frame when no files are selected
  27.     }
  28.     data <- do.call(rbind, data)
  29.     data %>%
  30.       # filter(Variable %in% c('A','B','C')) %>%
  31.       select(Variable, Name, Calconc) # %>% 
  32.      # filter(Name %in% c('D','E','F','G'))
  33.   })
  34.   
  35.   output$plot1 <- renderPlot({
  36.     data() %>%
  37.       filter(Variable == "A") %>%
  38.       ggplot(aes(x = Name, y = Calconc)) +
  39.       geom_point()
  40.   })
  41.   
  42.   output$data <- DT::renderDT({
  43.     data()
  44.   })
  45. }
  47. shinyApp(ui=ui, server=server)
英文:

Here is how we could do it:

I have created two dummy xlsx files:

  2. df1 &lt;- data.frame(
  3.   Variable = c(&quot;A&quot;, &quot;B&quot;, &quot;C&quot;, &quot;D&quot;, &quot;E&quot;, &quot;F&quot;, &quot;G&quot;),
  4.   Name = c(&quot;Name1&quot;, &quot;Name2&quot;, &quot;Name3&quot;, &quot;Name4&quot;, &quot;Name5&quot;, &quot;Name6&quot;, &quot;Name7&quot;),
  5.   Calconc = c(0.5, 1.2, 0.9, 1.8, 2.3, 3.1, 4.5)
  6. )
  8. df2 &lt;- data.frame(
  9.   Variable = rev(c(&quot;A&quot;, &quot;B&quot;, &quot;C&quot;, &quot;D&quot;, &quot;E&quot;, &quot;F&quot;, &quot;G&quot;)),
  10.   Name = rev(c(&quot;Name1&quot;, &quot;Name3&quot;, &quot;Name1&quot;, &quot;Name4&quot;, &quot;Name1&quot;, &quot;Name6&quot;, &quot;Name7&quot;)),
  11.   Calconc = c(8.5, 9.2, 0.8, 1.8, 2.3, 3.1, 8.5)
  12. )
  14. library(writexl)
  16. write_xlsx(df1, &quot;df1.xlsx&quot;)
  17. write_xlsx(df2, &quot;df2.xlsx&quot;)

I also tweaked a little your code: Now we have a tab were the xlsx data appear.
To get a plot I commented out the filter funcntions:

  1. library(shiny)
  2. library(readxl)
  3. library(dplyr)
  4. library(ggplot2)
  6. ui &lt;- fluidPage(
  7.   titlePanel(&quot;Charts&quot;),
  8.   sidebarLayout(
  9.     sidebarPanel(
  10.       fileInput(inputId=&quot;files&quot;, label = &quot;Select XLSX files&quot;, multiple = TRUE)
  11.     ),
  12.     mainPanel(
  13.       tabsetPanel(
  14.         tabPanel(&quot;Plot&quot;, plotOutput(&quot;plot1&quot;)
  15.                  ),
  16.         tabPanel(&quot;data&quot;, DT::DTOutput(&quot;data&quot;))
  17.       )
  18.     )
  19.   )
  20. )
  22. server &lt;- function(input, output) {
  23.   data &lt;- reactive({
  24.     req(input$files)
  25.     data &lt;- lapply(input$files$datapath, read_xlsx)
  26.     if(length(data) == 0) {
  27.       return(data.frame()) # return empty data frame when no files are selected
  28.     }
  29.     data &lt;- do.call(rbind, data)
  30.     data %&gt;%
  31.      # filter(Variable %in% c(&#39;A&#39;,&#39;B&#39;,&#39;C&#39;)) %&gt;%
  32.       select(Variable, Name, Calconc) # %&gt;%
  33.      # filter(Name %in% c(&#39;D&#39;,&#39;E&#39;,&#39;F&#39;,&#39;G&#39;))
  34.   })
  35.   
  36.   output$plot1 &lt;- renderPlot({
  37.     data() %&gt;%
  38.       filter(Variable == &quot;A&quot;) %&gt;%
  39.       ggplot(aes(x = Name, y = Calconc)) +
  40.       geom_point()
  41.   })
  42.   
  43.   output$data &lt;- DT::renderDT({
  44.     data()
  45.   })
  46. }
  48. shinyApp(ui=ui, server=server)

huangapple
  • 本文由 发表于 2023年4月11日 00:01:07
  • 转载请务必保留本文链接：https://go.coder-hub.com/75978664.html
  • r
  • shiny
匿名

发表评论

匿名网友

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen:

确定