geom_node_image () - Изображения для узлов в ggraph

Я пытаюсь использовать изображения (например, флаги стран) в сети ggraph. Я хотел использовать geom_image от ggimage, однако считаю, что эту функцию нужно адаптировать для работы с ggraph, где мы не указываем координаты x и y.

library(tidygraph)
library(ggraph)
library(ggimage)

r <- create_notable('bull') %>%
  mutate(class = sample(letters[1:3], n(), replace = TRUE),
         image = "https://upload.wikimedia.org/wikipedia/en/7/7d/Lenna_%28test_image%29.png")

ggraph(r, 'stress') + 
  geom_node_point() +
  geom_edge_link()


r %>% 
  as_tibble() %>%
  ggplot(aes(x = runif(nrow(.)), y = runif(nrow(.)))) +
  geom_image(aes(image = image))

# I would like this to work:
ggraph(r, 'stress') + 
  geom_node_image(aes(image = image)) +
  geom_edge_link()

r ggimage ggraph
person Martin    schedule 27.12.2020    source источник

Ответы (1)


arrow_upward
4
arrow_downward

Верно, что ggraph не требует указания координат X и Y, но это удобно. Имена переменных x и y. Вы можете быть откровенным:

ggraph(r, 'stress') + 
  geom_node_point(aes(x = x, y = y))

И эти переменные доступны для всех других функций, связанных с ggplot, включая ggimage::geom_image().

ggraph(r, 'stress') + 
  geom_edge_link() + 
  geom_image(aes(x = x, y = y, image = image))

введите описание изображения здесь

person Charlie Gallagher    schedule 27.12.2020
comment
Спасибо, я не знал, что это так просто. Я не знал об этом в ggraph. - person Martin; 27.12.2020