我正在尝试复制rstudio页面上提供的这个示例。
问题是我需要使用日期(as.Date %d/%m/%Y
)作为x轴,当放大图时我得到这个错误
输入无效: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)
答案 0 :(得分:3)
您好,您需要将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)
})