r - Shiny反应表中的ggplot2 scale_x_date

Question

我有一个 Shiny 应用程序，它既有一个反应表，又有一个ggplot2使用反应表作为数据集的折线图（时间序列）。我scale_x_date(date_breaks = "1 week")在折线图中使用，并且看到的日期min和max值随着反应表而适当变化。

我的问题是我希望每周间隔是星期六（对应于我们财政周的结束，以及反应表中的所有时间戳），但ggplot2默认显示星期一。如何更改 x 轴以显示星期六，但也可以适当缩放以响应反应表？

Answer 1

像这样，从这里借来的，但是lubridate用来设置前一个星期六的最低休息时间？

library(lubridate)

scale_x_date(breaks = seq(floor_date(min(data.set$week.start), unit = 'week',
   week_start = getOption('lubridate.week.start', 6)),  max(data.set$week.start),by="week"),
   labels = date_format(format = "%Y-%m-%d"))

Answer 2

我只是需要

output$fcstlinechart_weekly <- renderPlotly({
p1 <- ggplot2::ggplot(data= my_reactive_table(),
aes(x=Week_End_Date,y=Forecast)+
  geom_line()+ scale_x_date(
   breaks= unique(data_frame_source_for_reactive_table$Week_End_Date))
p2 <- ggplotly(p1)
p2$elementId <- NULL
p2
})

并且绘图渲染“足够智能”，仅显示过滤后的反应表中存在的日期值。