np c координаты geom_point в ggplot2 - PullRequest
Новая
       68

np c координаты geom_point в ggplot2

10 голосов
/ 22 марта 2020

Как я могу получить x , y координаты geom_point в ggplot , где опорный кадр - весь нанесенное изображение?

Я могу создать ggplot с некоторыми geom_point s, используя: 

library(ggplot2)

my.plot <- ggplot(data.frame(x = c(0, 0.456, 1), y = c(0, 0.123, 1))) +
             geom_point(aes(x, y), color = "red")

Это дает:

enter image description here

Преобразовав это в гроб , я могу извлечь некоторую дополнительную информацию об этом ggplot , например, координаты относительно панель сюжета, обозначенная фиолетовой стрелкой. Однако это игнорирует пространство, занимаемое осями. 

my.grob <- ggplotGrob(my.plot)
my.grob$grobs[[6]]$children[[3]]$x
# [1] 0.0454545454545455native 0.46native 0.954545454545454native 
my.grob$grobs[[6]]$children[[3]]$y
# [1] 0.0454545454545455native 0.157272727272727native 0.954545454545454native

Как получить значения координат x , y , когда я начинаю измерения с нижний левый угол всего изображения, отмеченный зеленой стрелкой?

Если это возможно, я бы хотел, чтобы решение учитывало theme ggplot . Добавление theme наподобие + theme_void() влияет на оси, а также смещает расположение точек относительно всего построенного изображения.

Обновление : я понял, что Размер шрифта осей изменяется в зависимости от ширины и высоты графика, влияя на относительный размер панели . Таким образом, будет нетрудно указать местоположение в np c единиц без определения ширина графика и высота графика . Если возможно, укажите местоположение geom_points как функцию ширина графика и высота графика .

1 Ответ

5 голосов
/ 25 марта 2020

При изменении размера ggplot положение элементов на панели не фиксируется в фиксированном положении в np c. Это связано с тем, что некоторые компоненты графика имеют фиксированные размеры, а некоторые (например, панель) изменяют размеры в соответствии с размером устройства.

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

Еще одна трудность заключается в том, чтобы убедиться, что вы идентифицируете правильные помехи в пределах панели, и это Трудно понять, как это можно легко обобщить. Использование функций подмножества списков [[6]] и [[3]] в вашем примере не распространяется на другие графики.

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

library(ggplot2)
library(grid)
require(gtable)

get_x_y_values <- function(gg_plot)
{
  img_dim      <- grDevices::dev.size("cm") * 10
  gt           <- ggplot2::ggplotGrob(gg_plot)
  to_mm        <- function(x) grid::convertUnit(x, "mm", valueOnly = TRUE)
  n_panel      <- which(gt$layout$name == "panel")
  panel_pos    <- gt$layout[n_panel, ]
  panel_kids   <- gtable::gtable_filter(gt, "panel")$grobs[[1]]$children
  point_grobs  <- panel_kids[[grep("point", names(panel_kids))]]
  from_top     <- sum(to_mm(gt$heights[seq(panel_pos$t - 1)]))
  from_left    <- sum(to_mm(gt$widths[seq(panel_pos$l - 1)]))
  from_right   <- sum(to_mm(gt$widths[-seq(panel_pos$l)]))
  from_bottom  <- sum(to_mm(gt$heights[-seq(panel_pos$t)]))
  panel_height <- img_dim[2] - from_top - from_bottom
  panel_width  <- img_dim[1] - from_left - from_right
  xvals        <- as.numeric(point_grobs$x)
  yvals        <- as.numeric(point_grobs$y)
  yvals        <- yvals * panel_height + from_bottom
  xvals        <- xvals * panel_width + from_left
  data.frame(x = xvals/img_dim[1], y = yvals/img_dim[2])
}

Теперь мы можем проверить это на вашем примере: 

my.plot <- ggplot(data.frame(x = c(0, 0.456, 1), y = c(0, 0.123, 1))) +
             geom_point(aes(x, y), color = "red")

my.points <- get_x_y_values(my.plot)
my.points
#>           x         y
#> 1 0.1252647 0.1333251
#> 2 0.5004282 0.2330669
#> 3 0.9479917 0.9442339

И мы можем подтвердить, что эти значения верны, нанося некоторые точечные значения над вашими красными точками, используя наши значения в качестве координат np c: 

my.plot
grid::grid.draw(pointsGrob(x = my.points$x, y = my.points$y, default.units = "npc"))

Создано в 2020-03-25 пакетом представлений (v0.3.0)

...