Math Circle: Symmetry

Symmetry

x <- c(1, 4, 3, 4, 1)
y <- c(5, 4, 3, 2, 1)
p <- ggplot() + xlim(-4,4) + 
  geom_path(aes(x, y), size = 2) + geom_point(aes(x, y), , size = 4) 
p + geom_path(aes(-x, y), size = 2) + geom_point(aes(-x, y), size = 4) + ggtitle("Symmetry: [x, y] and [-x, y]")