ggplot2ビジュアライゼーションのハイパーリンクテキスト

Question

現在、Rのテーブルにデータを表示したい場合は、markdown、html href、LaTeX hrefでハイパーリンクできます。これは、テーブルを乱雑にしないで、特定の要素についての詳細情報にアクセスするのに適しています。

同じ種類のハイパーリンクテキストをggplot2で作成したビジュアライゼーションでどのように表示できますか？どのように私は、対応Wikipediaのページへの軸のテキストのハイパーリンクを作ることができ、以下のコードで

：

だから例えば私は、このプロットを作成する場合は？

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

これは私が使用した1つのオプションです。

あなたの例：

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) 

そして：

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")) 

ブラウザでtf2を開く場合：どのようなデバイスで保存