將圖例標題放置在水平圖例的頂部會導致ggiraph中的互動性丟失-有解無憂

當我使用 guides() 規范自定義圖例外觀時，我發現圖例中圖例的互動性丟失了。

以下代碼修改自 ggiraph 檔案中的示例。

library(ggplot2)
library(ggiraph)

dat <- data.frame(
  name = c( "Guy", "Ginette", "David", "Cedric", "Frederic" ),
  gender = c( "Male", "Female", "Male", "Male", "Male" ),
  height = c(169, 160, 171, 172, 171 ) )
p <- ggplot(dat, aes( x = name, y = height, fill = gender,
                      data_id = name ) )  
  geom_bar_interactive(stat = "identity")

p1 <- p    scale_fill_manual_interactive(
  values = c(Male = "#0072B2", Female = "#009E73"),
  data_id = function(breaks) { as.character(breaks)},
  tooltip = function(breaks) { as.character(breaks)},
  onclick = function(breaks) { paste0("alert(\"", as.character(breaks), "\")") },
  labels = function(breaks) {
    lapply(breaks, function(br) {
      label_interactive(
        as.character(br),
        data_id = as.character(br),
        onclick = paste0("alert(\"", as.character(br), "\")"),
        tooltip = as.character(br)
      )
    })
  }
)   
  guides(fill=guide_legend(title.position = "top"))  
  theme(legend.position="top")  

girafe_options(girafe(ggobj = p1),
               opts_hover_key(girafe_css("stroke:red", text="stroke:none;fill:red")))

沒有guides(fill=guide_legend(title.position = "top"))線，圖例保留其互動性。

任何幫助表示高度贊賞！

uj5u.com熱心網友回復：

guides()您可以通過以下guide引數實作您想要的結果，而不會失去互動性，而不是通過以下方式更改標題位置scale_fill_manual_interactive：

library(ggplot2)
library(ggiraph)

dat <- data.frame(
  name = c("Guy", "Ginette", "David", "Cedric", "Frederic"),
  gender = c("Male", "Female", "Male", "Male", "Male"),
  height = c(169, 160, 171, 172, 171)
)
p <- ggplot(dat, aes(
  x = name, y = height, fill = gender,
  data_id = name
))  
  geom_bar_interactive(stat = "identity")

p1 <- p   scale_fill_manual_interactive(
  values = c(Male = "#0072B2", Female = "#009E73"),
  data_id = function(breaks) {
    as.character(breaks)
  },
  tooltip = function(breaks) {
    as.character(breaks)
  },
  onclick = function(breaks) {
    paste0("alert(\"", as.character(breaks), "\")")
  },
  labels = function(breaks) {
    lapply(breaks, function(br) {
      label_interactive(
        as.character(br),
        data_id = as.character(br),
        onclick = paste0("alert(\"", as.character(br), "\")"),
        tooltip = as.character(br)
      )
    })
  },
  guide = guide_legend(title.position = "top")
)  
  theme(legend.position = "top")

girafe_options(
  girafe(ggobj = p1),
  opts_hover_key(girafe_css("stroke:red", text = "stroke:none;fill:red"))
)

將圖例標題放置在水平圖例的頂部會導致 ggiraph 中的互動性丟失

轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/358884.html

標籤：r ggplot2 长颈鹿

上一篇：將標題添加到ggplot的頂部

下一篇：洗掉啞鈴圖上的y-tick標簽以創建空間