R：使用笔刷链接多个绘图

我有酒店预订数据集，包括“预订日期”、“入住”、“退房”和“收入”。我想画两张图表——“预订日期收入”与“入住日期收入”；我可以突出显示/放大特定预订期（如2018年1月），以了解相应入住期（如2018年2月至4月）的收入

我试图通过在Flexr仪表板中加入闪亮的“笔刷”来实现这一点。其思想是，当“按预订日期的收入”上没有“刷”任何内容时，“按入住日期的收入”将显示默认图表（即所有入住日期的收入）。如果用户在“按预订日期收入”中放大一个时段，“按入住日期收入”将做出相应反应。但是，“按入住日期计算的收入”的默认显示未按预期工作

以下是我的代码：

library(flexdashboard) 
library(shiny)
library(tidyverse)
library(lubridate)
library(timetk)
library(scales)
library(plotly)

按预订日期列出的收入

shinny:：plotOutput（outputId=“revenue\u book”，brush=brushOpts（id=“brush”，direction=“x”）

else{

q%过滤器（图书日期>=输入$brush$xmin和图书日期%

分组依据（签入）%%>%汇总（收入=总额（价格））%%>%

取消分组（）

不刷的图表

带刷的图表

感谢您对出现问题的建议，因为我是R Shining&Flexdashboard的新手

output$revenue_book <- shiny::renderPlot(
    df %>% filter(book_year == 2018) %>% 
      group_by(book_date) %>%
      summarise(revenue = sum(price)) %>%
      ungroup() %>% 
      ggplot(aes(book_date, revenue)) + geom_line() + geom_point(color = "red") + theme_bw()
  )

 # default chart if no "brushing" on "booking revenue chart"
` p %>% ggplot(aes(check_in, revenue)) + geom_line() +`        `geom_point(color = "blue") + theme_bw()}`

 `q %>% ggplot(aes(check_in, revenue)) + geom_line() +` `geom_point(color = "blue") + theme_bw()}})`