Intro Thoughts
Status Quo
library(tidyverse)
Experiment
ggplot(gapminder::gapminder) +
aes(x = year) +
aes(y = lifeExp/9) +
geom_point() +
geom_tile()
ggplot(cars) +
aes(x = speed/3) +
aes(y = dist/15) +
geom_point() +
geom_tile()
df <- data.frame(
x = rep(c(2, 5, 7, 9, 12), 2),
y = rep(c(1, 2), each = 5),
z = factor(rep(1:5, each = 2)),
w = rep(diff(c(0, 4, 6, 8, 10, 14)), 2)
)
ggplot(df, aes(x, y)) +
geom_tile(aes(fill = z), colour = "grey50")
ggplot(df, aes(x, y)) +
geom_tile(aes(fill = z), colour = "grey50")