geom_pointrange() passes on na.rm

[teunbrand]

This PR aims to fix #5261.

It now passes on the na.rm parameter to downstream drawing functions.

devtools::load_all("~/packages/ggplot2/")
#> ℹ Loading ggplot2

# Based on example from docs
df <- data.frame(
  trt = factor(c(1, 1, 2, 2)),
  resp = c(1, 5, 3, 4),
  group = factor(c(1, 2, 1, 2)),
  upper = c(1.1, NA_real_, 3.3, NA_real_),
  lower = c(0.8, NA_real_, 2.4, NA_real_)
)

p <- ggplot(df, aes(trt, resp, colour = group))

# Throws warning
p + geom_pointrange(aes(ymin = lower, ymax = upper), na.rm = FALSE)
#> Warning: Removed 2 rows containing missing values (`geom_segment()`).

# Stays silent
p + geom_pointrange(aes(ymin = lower, ymax = upper), na.rm = TRUE)

^{Created on 2023-04-12 with reprex v2.0.2}

[teunbrand]

Preconstructed here to avoid code duplication

[thomasp85]

LGTM