grid.arrange создает перекрывающиеся графики - PullRequest
Новая
       25

grid.arrange создает перекрывающиеся графики

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

В настоящее время я создаю несколько пакетов для отображения данных. Одна цель состоит в том, чтобы построить три диаграммы тахометра рядом друг с другом. Однако, когда я делаю это с помощью grid.arrange, графики странным образом пересекаются. Моя измерительная функция выглядит следующим образом: 

library(grid)
library(ggplot2)

gg.gauge <- function(pos,breaks = c(0, 2.5, 5, 25)) {
  get.poly <- function(a, b, r1 = 0.5, r2 = 1.0) {
    th.start <- pi * (1 - a / 25)
    th.end   <- pi * (1 - b / 25)
    th       <- seq(th.start, th.end, length = 25)
    x        <- c(r1 * cos(th), rev(r2 * cos(th)))
    y        <- c(r1 * sin(th), rev(r2 * sin(th)))
    return(data.frame(x, y))
  }
  ggplot() +
    geom_polygon(data = get.poly(breaks[1], breaks[2]), aes(x, y), fill = "springgreen4") +
    geom_polygon(data = get.poly(breaks[2], breaks[3]), aes(x, y), fill = "khaki1") +
    geom_polygon(data = get.poly(breaks[3], breaks[4]), aes(x, y), fill = "indianred1") +
    geom_polygon(data = get.poly(pos - 0.1, pos + 0.1, 0.1), aes(x, y), fill = "navyblue") +
    geom_text(data = as.data.frame(breaks), size = 2, fontface = "bold", vjust = 0,
              aes(x = 1.1 * cos(pi * (1 - breaks / 25)), 
                  y = 1.1 * sin(pi * (1 - breaks / 25)), 
                  label = "")) +
    annotate("text", x = 0, y = 0, label = paste(pos, ""), vjust = 0, size = 4, fontface = "bold") +
    coord_fixed() +
    theme_bw() +
    theme(axis.text = element_blank(),
          axis.title = element_blank(),
          axis.ticks = element_blank(),
          panel.grid = element_blank(),
          panel.border = element_blank())
}

Вот моя упрощенная функция графика: 

myplot <- function () {
  mp <- grid.arrange(
    gg.gauge(2, breaks = c(0, 2.5, 5, 25)))
  return(mp)
}

, которая затем вызывается так: 

lay <- rbind(c(1,2,3))
gridExtra::grid.arrange(myplot(), 
                        myplot(),
                        myplot(),
                        layout_matrix = lay)

Работа с ncol, nrow вместо layout_matrix: 

gridExtra::grid.arrange(myplot(), 
                        myplot(),
                        myplot(),
                        ncol = 3,
                        nrow = 1)

дает точно такие же результаты. Это ошибка в grid.arrange или я что-то упустил?

1 Ответ

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

Может быть, двойное использование gid.arrange() не работает? Смотрите мою измененную myplot() функцию: 

library(grid)
library(ggplot2)
library(gridExtra)

get.poly <- function(a, b, r1 = 0.5, r2 = 1.0) {
  th.start <- pi * (1 - a / 25)
  th.end   <- pi * (1 - b / 25)
  th       <- seq(th.start, th.end, length = 25)
  x        <- c(r1 * cos(th), rev(r2 * cos(th)))
  y        <- c(r1 * sin(th), rev(r2 * sin(th)))
  return(data.frame(x, y))
}

gg.gauge <- function(pos,breaks = c(0, 2.5, 5, 25)) {
  ggplot() +
    geom_polygon(data = get.poly(breaks[1], breaks[2]), aes(x, y), fill = "springgreen4") +
    geom_polygon(data = get.poly(breaks[2], breaks[3]), aes(x, y), fill = "khaki1") +
    geom_polygon(data = get.poly(breaks[3], breaks[4]), aes(x, y), fill = "indianred1") +
    geom_polygon(data = get.poly(pos - 0.1, pos + 0.1, 0.1), aes(x, y), fill = "navyblue") +
    geom_text(data = as.data.frame(breaks), size = 2, fontface = "bold", vjust = 0,
              aes(x = 1.1 * cos(pi * (1 - breaks / 25)), 
                  y = 1.1 * sin(pi * (1 - breaks / 25)), 
                  label = "")) +
    annotate("text", x = 0, y = 0, label = paste(pos, ""), vjust = 0, size = 4, 
             fontface = "bold") +
    coord_fixed() +
    theme_bw() +
    theme(axis.text = element_blank(),
          axis.title = element_blank(),
          axis.ticks = element_blank(),
          panel.grid = element_blank(),
          panel.border = element_blank())
}

myplot <- function () {
  # mp <- grid.arrange(
  #   gg.gauge(2, breaks = c(0, 2.5, 5, 25)))
  mp <- gg.gauge(2, breaks = c(0, 2.5, 5, 25))
  return(mp)
}


lay <- rbind(c(1,2,3))
gridExtra::grid.arrange(myplot(), 
                        myplot(),
                        myplot(),
                        layout_matrix = lay)

gridExtra::grid.arrange(myplot(), 
                        myplot(),
                        myplot(),
                        ncol = 3,
                        nrow = 1)

Тогда обе версии создают один и тот же график:

enter image description here

...