如何在任何给定时间根据 dataframe 的最大值设置最大 y 轴限制？

Question

我对 R 及其功能相当陌生，所以我会尽力解释我的问题。 我正在用每周的流行病学数据绘制一个足够简单的折线图。 据我所知，我的代码目前下载数据，并以允许添加新数据的方式对其进行操作（即我可以在几个月内运行代码，它会增加我错过的几周）。 我目前的最高病例率是 1460，所以当我 plot 图表时，我可以手动将限制设置为 1500 或 2000，这很好。 但是，如果我在两个月后回来并且现在的病例率为 330，那么我的代码仍将设置最大值为 2000，这不是很像样（或者，尽管希望不是，但比率会增加到 3300）。 理想情况下，我不想每次都手动更改限制。

我确实找到了类似的问题和答案，但我并不完全理解日志方面。

如何扩展 ggplot y 轴限制以包括最大值

我的问题是我是否可以将最大 y 值编码为四舍五入，比如说，当时数据集最大值的最接近的 500？ 例如，如果最高速率为 645，则 y 限制将设置为 1000。

Region_Case_Graph <-ggplot(data = Region_Weekly_Cases_Long, 
                          aes(x = date, y = Weekly_Cases, color = Local_Authority)) + 
                          geom_line() + 
                          geom_point() +
                          xlab("Date\n") + ylab("Weekly Cases\n") + 
                          scale_x_date(date_breaks = "1 month", 
                                       date_labels = "%d-%b-%y")  +
                          theme(axis.text.x = element_text(size = 10, angle = 90, vjust = 0.25)) +
                          labs(color = "Local Authority\n") + 
                          theme(panel.background = element_rect(fill = "white"),
                                panel.grid.major = element_line(size = 0.5, colour = "lightgrey")) +
                          scale_y_continuous(limits = c(0,2000)) +
                          ggtitle("Weekly Cases in each Local Authority, 07/20 to Present\n")
                        

我目前正在使用 scale_y_continuous，据我所知，它的效率可能非常低。 如果您将这段代码分开，我不会生气，我只需要知道是否有 function（或者您是否可以创建一个？）？

Answer 1

这个 function：

round.choose <- function(x, roundTo, dir = 1) {
  if(dir == 1) {  ##ROUND UP
    x + (roundTo - x %% roundTo)
  } else {
    if(dir == 0) {  ##ROUND DOWN
      x - (x %% roundTo)
    }
  }
}

如果我理解您的问题，森林生态学家在此线程中（ 如何四舍五入到最接近的 10（或 100 或 X）？ ）似乎有效。

df <- data.frame(x = c(0,1,2,3,4,5),
                 y = c(100, 150, 200, 250, 300, 350))

ggplot(data = df, aes(x = x, y = y)) +
  geom_point() +
  scale_y_continuous(limits = c(0, round.choose(max(df$y), 500, 1)))