# first way
ggplot() +
geom_ribbon(aes(
ymin = -2,
ymax = 2,
x = c(0, 1)
)) +
geom_ribbon(aes(
ymin = -1,
ymax = 1,
x = c(1, 2)
)) +
geom_ribbon(aes(
ymin = 1,
ymax = 4,
x = c(2, 3)
)) + xlab("x") + ylab("y")
# second way
t1 <- tribble(
~ymin, ~ymax, ~x,
-2, 2, 0,
-2, 2, 1,
-1, 1, 1,
-1, 1, 2,
1, 4, 2,
1, 4, 3
)
ggplot(
data = t1,
aes(
ymin = ymin,
ymax = ymax,
x = x
)
) +
geom_ribbon()+ ylab("y")