闪亮的ggplot绘图笔刷限制，x轴为日期答案

【问题标题】：Shiny ggplot plot brush limits with x axis as date闪亮的ggplot绘图笔刷限制，x轴为日期
【发布时间】：2023-03-20 01:25:02
【问题描述】：

我正在尝试复制 rstudio 页面上提供的这个示例。

gallery/plot-interaction-zoom

问题是我需要在 x 轴上使用日期（as.Date %d/%m/%Y），当放大绘图时出现此错误

无效输入：date_trans 仅适用于 Date 类的对象

library(ggplot2)
library(scales)
library (grid)
library (DT)
ui <- fluidPage(
fluidRow(
column(width = 12, class = "well", h4("Left plot controls right plot"),
fluidRow(column(width = 6, plotOutput("plot1", height = 300,
brush = brushOpts(
id = "plot2_brush",
esetOnNew = TRUE)))
,
column(width = 6,plotOutput("plot2", height = 300,
click = "plot_click",
dblclick = dblclickOpts(
id = "plot_dblclick")))
,
fluidRow(column(width = 12, dataTableOutput("selected_rows")))
))))

Date <- c("01/01/2014","01/01/2014","01/01/2014","01/01/2014")
Sevdow <- c(10,30,10,50)
articles<-as.data.frame(cbind(dates, Sevdow))
articles$Sevdow<-as.numeric(tt$Sevdow)
articles$Date<-as.Date(tt$dates, format="%d/%m/%Y")

server <- function(input, output) {
ranges2 <- reactiveValues(x = NULL, y = NULL
output$plot1 <- renderPlot({
ggplot(articles, aes(Date, Sevdow)) +
geom_point()
})

output$plot2 <- renderPlot({
ggplot(articles, aes(Date, Sevdow)) +
geom_point() +
coord_cartesian(xlim = ranges2$x, ylim = ranges2$y)
})

observe({
brush <- input$plot2_brush
if (!is.null(brush)) {
ranges2$x <- c(brush$xmin, brush$xmax)
ranges2$y <- c(brush$ymin, brush$ymax)

} else {
ranges2$x <- NULL
ranges2$y <- NULL
}
})

output$selected_rows <- renderDataTable({
datatable(
nearPoints(articles, input$plot_click, threshold = 10, maxpoints = 1000,
addDist = FALSE, allRows = FALSE))
})
}

shinyApp(ui, server)

【问题讨论】：

标签： r ggplot2 shiny

【解决方案1】：

您好，您需要将range2$x 转换为日期：

output$plot2 <- renderPlot({
  if (!is.null(ranges2$x)) {
    ranges2$x <- as.Date(ranges2$x, origin = "1970-01-01")
  }
  ggplot(articles, aes(Date, Sevdow)) +
    geom_point() +
    coord_cartesian(xlim = ranges2$x, ylim = ranges2$y)
})

对于nearPoints，您需要将articles$Date 转换为数字：

output$selected_rows <- renderDataTable({
  articles$Date <- as.numeric(articles$Date)
  nearPoints(articles, coordinfo = input$plot_click, xvar = "Date", yvar = "Sevdow", 
             threshold = 10, maxpoints = 1000,
             addDist = FALSE, allRows = FALSE)
})

【讨论】：

@Victorcp。先生，感谢您的输入。我真的很感激。