Установка максимального размера ячейки Вороного с помощью ggplot2 - PullRequest
Новая
       29

Установка максимального размера ячейки Вороного с помощью ggplot2

0 голосов
/ 14 апреля 2020

Воспроизводимый пример: 

    set.seed(123)
    x <- sample(1:30,9)
    y <- sample(1:30,9)
    points <- data.frame(x, y,
                         distance = sample(c("apples","pears","banana"), 9, replace = T))

# Plot
    ggplot(points) +
      geom_voronoi(aes(x=x,y=y,fill=distance)) +
      stat_voronoi(aes(x=x,y=y),geom = "path") +
      geom_point(aes(x=x,y=y))

составляет:

great

Интересно, могу ли я ограничить размер ячейки Вороного, иметь максимальное расстояние от х, у он использует для построения. Я раскрасил это краской:

some

Некоторые могут назвать это искусством.

Где клетки могут быть такими большими, только если они не пересекаются с соседними клетками. Есть идеи.

Почему? Я использую данные GPS для создания ячеек, а затем раскрашиваю их по факторам. Координаты GPS не согласованы в пространстве, и я не хочу давать читателю ложное впечатление. В моих реальных данных некоторые клетки довольно большие.

1 Ответ

1 голос
/ 14 апреля 2020

Похоже, вы используете немного другую версию ggforce, но в 0.3.1 вы можете установить размер с помощью параметра max_radius: 

library(ggforce)
#> Warning: package 'ggforce' was built under R version 3.6.2
#> Loading required package: ggplot2
library(ggplot2)
set.seed(123)
x <- sample(1:30,9)
y <- sample(1:30,9)
points <- data.frame(x, y,
                     distance = sample(c("apples","pears","banana"), 9, replace = T))

# Plot
ggplot(points, aes(x, y, group = -1L)) +
  geom_voronoi_tile(aes(fill=distance),
                    max.radius = 10,
                    colour = "black") +
  geom_point(aes(x=x,y=y))

Создано в 2020-04-14 пакетом Представ (v0.3.0)

...