Question

我想使用nearPoints（）的功能打印出特定点的摘要统计信息，而不打印与该点关联的x，y。我已经能够使用此功能打印数据框和数据框的变体。无论如何要抑制这些列自定义输出？ nearPoints来自最新版本的闪亮0.12.1，但我相信可能早一点介绍。

我知道文档说的是：请注意，只有x和y变量存在于数据框中且没有任何变换时，这些函数才适用。例如，如果您有一个从一列数据计算x位置的图，那么这些函数将不起作用。在这种情况下，首先计算新列并将其存储在数据框中可能很有用。但想知道是否有任何类型的工作。

这是一个说明此问题的应用程序，请注意我在我更大的应用程序中使用了所有这些库：

library(shiny)
library(ggplot2)
library(Cairo)
library(plyr)
library(dplyr)
library(shinydashboard)
library(grid)
library(gridExtra) # also loads grid
library(grDevices)
library(ggmap)
library(sqldf)

cars <- mtcars
ui <- basicPage(
  plotOutput("plot1", click = "plot_click"),
  dataTableOutput("info")
)

server <- function(input, output) {
  output$plot1 <- renderPlot({
    ggplot(cars, aes(x=cyl, y=carb)) + geom_point()
  })

  output$info <- renderDataTable({
summary_cars <- ddply(cars, .(gear, cyl, carb),
 function(dd){as.data.frame(cbind(Mean_hp = mean(dd$hp),
                                    Mean_wt = mean(dd$wt))
                                    )

})


#This works-------------------------------------------------------
#     nearPoints(summary_cars, input$plot_click, threshold = 10, 
#                addDist = TRUE)

#Removing the columns does not work ---------
 nearPoints(select(summary_cars,-cyl,-carb), input$plot_click, threshold = 10, 
            addDist = F)
  })
}

shinyApp(ui, server)

删除nearPoints（）输出中的X，Y

0 个答案: