Văn bản siêu liên kết trong hình ảnh ggplot2

Question

Hiện tại nếu tôi muốn hiển thị dữ liệu trong bảng trong R, tôi có thể siêu liên kết văn bản qua markdown, html href hoặc LaTeX href. Điều này thường tốt cho việc truy cập vào thông tin thêm về một yếu tố cụ thể w/o lộn xộn bảng.

Làm cách nào để có thể cung cấp cùng một loại văn bản siêu liên kết trong một hình ảnh được tạo bằng ggplot2?

Vì vậy, ví dụ nếu tôi làm cho âm mưu này:

Với mã dưới đây, làm thế nào tôi có thể làm cho các siêu liên kết văn bản trục đến các trang wikipedia tương ứng?

library(tidyverse) 

mtcars %>% 
    rownames_to_column('car') %>% 
    slice(5:8) %>% 
    mutate(
     link = c(
      'https://de.wikipedia.org/wiki/AMC_Hornet', 
      'https://en.wikipedia.org/wiki/Plymouth_Valiant', 
      'https://en.wikipedia.org/wiki/Plymouth_Duster', 
      'https://en.wikipedia.org/wiki/Mercedes-Benz_W123' 
     ) 
    ) %>% 
    ggplot(aes(x = mpg, y = car)) + 
     geom_point(size = 2) 

Answer 1

Dưới đây là một tùy chọn mà tôi đã sử dụng.

dụ của bạn:

library(tidyverse) 
library(xml2) 
df <- mtcars %>% 
    rownames_to_column('car') %>% 
    slice(5:8) %>% 
    mutate(
    link = c(
     'https://de.wikipedia.org/wiki/AMC_Hornet', 
     'https://en.wikipedia.org/wiki/Plymouth_Valiant', 
     'https://en.wikipedia.org/wiki/Plymouth_Duster', 
     'https://en.wikipedia.org/wiki/Mercedes-Benz_W123' 
    ) 
) 
p <- df %>% 
    ggplot(aes(x = mpg, y = car)) + 
    geom_point(size = 2) 

Và sau đó:

ggsave(tf1 <- tempfile(fileext = ".svg"), p) 
links <- with(df, setNames(link, car)) 

xml <- read_xml(tf1) 
xml %>% 
    xml_find_all(xpath="//d1:text") %>% 
    keep(xml_text(.) %in% names(links)) %>% 
    xml_add_parent("a", "xlink:href" = links[xml_text(.)], target = "_blank") 
write_xml(xml, tf2 <- tempfile(fileext = ".svg")) 

Nếu bạn mở tf2 trong trình duyệt của bạn: