ggplot2: нанесение нестандартных фигур на диаграмму рассеяния

Question

Я хотел бы иметь возможность создавать собственные фигуры, которые я могу наносить на график рассеяния. Я мог бы сделать это в настоящее время, используя группировки, но это кажется неуклюжим решением, если я хочу построить 5 или более фигур таким образом.

library(ggplot2)
hexpoints <- data.frame(x=c(sin(pi*(0:5)/3),0), y=c(cos(pi*(0:5)/3),0))/2

ggplot(hexpoints, aes(x,y)) + geom_polygon(colour="black",fill=NA)

hexpoints2 <- data.frame(x=c(hexpoints$x,hexpoints$x+1), y=hexpoints$y, 
                    group=rep(c(1:2), each=nrow(hexpoints)))

ggplot(hexpoints2, aes(x, y, group=group)) + 
  geom_polygon(colour="black",fill=NA)

Answer 1

После предложения @ abichat:

point2pacman <- function(x, y, grp) {
  if (is.data.frame(x)) {
    y <- x$y
    x <- x$x
  }
  if (length(x) == 1L || length(y) == 1L) {
    x <- rep(x, max(length(x), length(y)))
    y <- rep(y, max(length(x), length(y)))
  }
  if (missing(grp)) grp <- seq_along(x)
  do.call("rbind.data.frame",
          Map(function(i, a, b)
            data.frame(grp = i,
                       x = a + c(sin(pi*(0:5)/3),0) / 2,
                       y = b + c(cos(pi*(0:5)/3),0) / 2),
            grp, x, y))
}

library(ggplot2)

hexpoints2 <- data.frame(x=c(0,1), y=c(0,0))
point2pacman(hexpoints2$x, hexpoints2$y)
#    grp             x     y
# 1    1  0.000000e+00  0.50
# 2    1  4.330127e-01  0.25
# 3    1  4.330127e-01 -0.25
# 4    1  6.123032e-17 -0.50
# 5    1 -4.330127e-01 -0.25
# 6    1 -4.330127e-01  0.25
# 7    1  0.000000e+00  0.00
# 8    2  1.000000e+00  0.50
# 9    2  1.433013e+00  0.25
# 10   2  1.433013e+00 -0.25
# 11   2  1.000000e+00 -0.50
# 12   2  5.669873e-01 -0.25
# 13   2  5.669873e-01  0.25
# 14   2  1.000000e+00  0.00
# similarly: point2pacman(hexpoints2)

ggplot(hexpoints2, aes(x, y)) + 
  geom_text(aes(label=label), color = "red") +
  geom_polygon(aes(group = grp), data=point2pacman(hexpoints2), color="black", fill=NA)

Я использовал hexpoints2 в качестве «основных» данных для ggplot на случай, если там произошли другие события, а затем переопределил данные, использованные только для этого geom_polygon вызова. Я добавил geom_text здесь, чтобы продемонстрировать преимущества этого метода. Следующим шагом в этом будет определение вашей собственной geom_pacman функции, которая выполняет часть этого самостоятельно; Я не так много сделал, поэтому я пошел с чем-то быстрым, хотя это не должно быть так сложно. (Устаревшие документы здесь , скорее всего, они будут включены где-то в https://ggplot2.tidyverse.org/.)