Run length encoding stat

[teunbrand]

To do basically this, but then in a stat function:

library(ggplot2)

df <- data.frame(
  x = seq(0, 10, length.out = 100),
  y = sin(seq(0, 10, length.out = 100))
)

rle <- rle(df$y > 0.5)
start <- {end <- cumsum(rle$lengths)} - rle$lengths + 1

df2 <- data.frame(
  xmin = df$x[start],
  xmax = df$x[end],
  value = rle$values
)

ggplot(df) +
  geom_rect(data = df2, aes(xmin = xmin, xmax = xmax, ymin = -Inf, ymax = Inf, fill = value)) +
  geom_point(aes(x, y))

^{Created on 2020-05-22 by the reprex package (v0.3.0)}

[teunbrand]

This now works:

library(ggplot2)
library(ggh4x)

df <- data.frame(
    x = seq(0, 10, length.out = 100),
    y = sin(seq(0, 10, length.out = 100)*2)
)

ggplot(df) +
    stat_rle(aes(x, label = y > 0.5),
             align = "center") +
    geom_point(aes(x, y))

^{Created on 2020-06-02 by the reprex package (v0.3.0)}