ggplot removing data without warnings

[statsandthings]

Here's a data frame with dates and some random data.

library(tidyverse)
dat <- tibble(
  date = as.Date(40100:40129, origin = "1899-12-30"), 
  rainfall = rnorm(30, 4)
)

When you plot the data the 30th value is not included on the graph. Once you execute the code notice that there is no bar above the date 2009-11-12. I'd also expect a warning in my console that data was removed from the plot, not sure why I don't get one.

ggplot(dat, aes(date, rainfall)) + 
  geom_bar(stat = "identity", fill = "white", color = "grey35") + 
  theme_minimal() + 
  theme(axis.title.x = element_blank(), axis.text.x = element_text(angle=90)) + 
  scale_x_date(
    date_breaks = "1 day",
    limits = c(min(dat$date), max(dat$date))
  ) +  
  NULL

[yutannihilation]

Generally, this issue is not limited to the cases with date, but seems to happen when plotting geom_bar() on a continous scale with the limits specified.

Here's a minimal reprex to show what happens. The reason why the most right and left bars disappear is that they are beyond the limits and the default oob removes them. But, I think it does warn, don't it...?

You can change the behaviour by specifying oob. But, I couldn't find a good way to ensure that the plot range contains the whole shapes of data.

library(ggplot2)

d <- data.frame(x = 1:5, y = 1:5)

p <- ggplot(d, aes(x, y)) + geom_col()

p + scale_x_continuous(limits = c(1, 5))
#> Warning: Removed 2 rows containing missing values (geom_col).

p + scale_x_continuous(limits = c(1, 5), oob = scales::squish)

Created on 2018-09-05 by the reprex package (v0.2.0).

[clauswilke]

If it is related to #2715 then the warning was added only after 3.0.0 was released.

[clauswilke]

Reprex of the original code example. There's a warning in the current development branch.

library(tidyverse)

dat <- tibble(
  date = as.Date(40100:40129, origin = "1899-12-30"), 
  rainfall = rnorm(30, 4)
)

ggplot(dat, aes(date, rainfall)) + 
  geom_bar(stat = "identity") + 
  scale_x_date(
    date_breaks = "1 day",
    limits = c(min(dat$date), max(dat$date))
  )
#> Warning: Removed 2 rows containing missing values (geom_bar).

Created on 2018-09-04 by the reprex package (v0.2.0).

[yutannihilation]

Ah, thanks! I didn't notice the change...

[lock]

This old issue has been automatically locked. If you believe you have found a related problem, please file a new issue (with reprex) and link to this issue. https://reprex.tidyverse.org/