Какая область затенения под гистограммой ggridges (stat = binline)?

Следующее работает, если вы хотите изменить размер и переместить ячейки так, чтобы граница ячейки лежала точно на вашей демаркационной линии (здесь 10).

ggplot(t2, aes(x = t, y = year, fill = ifelse(..x..>=10, ">= 10", "< 10"))) +
  geom_density_ridges_gradient(stat = "binline", binwidth = 3,
                               center = 8.5, scale = 0.8, 
                               draw_baseline = TRUE) +
  theme_ridges() +
  scale_fill_manual(values = c("gray70", "red"), name = NULL)

Причина, по которой вы наблюдаете эффект, который вы делаете, заключается в том, что ось x изменяется между первым и вторым графиком, а диапазон оси x влияет на то, как отрисовываются интервалы. Есть два решения: вы можете либо исправить диапазон оси x, либо определить интервалы с помощью center и binwidth, а не bins. (На мой взгляд, второй вариант всегда предпочтительнее, независимо от того, как вы относитесь к оси x.)

Во-первых, исправьте диапазон оси x:

gg <- ggplot(t2, aes(x = t, y = year)) +
  geom_density_ridges(stat = "binline", bins = 10, scale = 0.8, 
                      draw_baseline = TRUE) +
  theme_ridges() +
  scale_x_continuous(limits = c(-12, 28)) # this is where the change is

# Build ggplot and extract data
d <- ggplot_build(gg)$data[[1]]

# Add geom_ribbon for shaded area
gg +
  geom_ribbon(
    data = transform(subset(d, x >= 10), year = group),
    aes(x, ymin = ymin, ymax = ymax, group = group),
    fill = "red",
    alpha = 1.0) 

Во-вторых, альтернативное определение корзины:

gg <- ggplot(t2, aes(x = t, y = year)) +
  geom_density_ridges(stat = "binline",
                      binwidth = 3, center = 8.5, # this is where the change is
                      scale = 0.8, draw_baseline = TRUE) +
  theme_ridges()

# Build ggplot and extract data
d <- ggplot_build(gg)$data[[1]]

# Add geom_ribbon for shaded area
gg +
  geom_ribbon(
    data = transform(subset(d, x >= 10), year = group),
    aes(x, ymin = ymin, ymax = ymax, group = group),
    fill = "red",
    alpha = 1.0) 

Действительно происходит что-то странное. Пожалуйста, смотрите ниже "заключение".

1. Если мы построим только gg:

    gg;
   

   

2. Если мы построим gg плюс ступеньку, которая должна соответствовать следу gg:

     gg +
         geom_step(
             data = d, 
             aes(xmax, ymax, group = group), 
             direction = "vh", col = "red",  size = 2);
   

Таким образом, добавление geom_step как-то меняет gg. Я не понимаю, как это могло быть. Вы можете видеть, что geom_step (красная кривая) действительно соответствует следу гистограммы при построении самого gg (см. Первый график).