I'd like to plot a trapezoid, like this (expertly drawn in Paint):

When I define the corners and plot though
positions <- data.frame(
id = rep("glass", each = 4),
x = c(3.5, 6.5, 2, 8),
y = c(1, 1, 8, 8),
fill = rep("a")
)
library(ggplot2)
ggplot(positions, aes(x = x, y = y)) +
geom_polygon(aes(fill = fill, group = id))
I get this. How do I define connections between the corners?

