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

Question

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

我确实找到了类似的问答，但我没有完全理解日志方面。

我的问题是我是否可以将最大 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，据我所知，这可能非常低效。如果您将这段代码分开，我不会被冒犯，我只需要知道是否有一个函数（或者您是否可以创建一个函数？）？

Answer 1

这个函数：

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)
    }
  }
}

forestecologist 在这个线程 (How to round up to the nearest 10 (or 100 or 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)))

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

How do I set a max y-axis limit based on the maximum value of a dataframe at any given time?

axis

r

ggplot2