library(ggplot2)
df <- data.frame(
xmin = c(1, 2, 3),
xmax = c(2, 3, 4),
ymin = c(1, 2, 3),
ymax = c(2, 3, 4),
category = c("A", "B", "C")
)
p <- ggplot(df) +
geom_rrect(aes(xmin = xmin, xmax = xmax,
ymin = ymin, ymax = ymax, fill = category),
r = 0.4, linewidth = 1, colour = "black")
print(p)
Run the code above in your browser using DataLab