ShinyApp中的排序结果

Question

我有一个 shinyApp，我想对我的相关列进行排序（递减）。 这是我的应用程序：https://abdalmoamen95.shinyapps.io/Correlation/

这是我的服务器代码：

server <- function(input,output){
  output$Itemcorr <- renderTable({
    subset(DF, DF$FirstItem == input$Item)
  })
}

Answer 1

我推荐使用 dplyr 包。

library(dplyr)
server <- function(input,output){
  output$Itemcorr <- renderTable({
   DF %>% filter(FirstItem == input$Item) %>% arrange(desc(X.Correlation))
  })
}