如何使用ggplotly選擇變量在工具提示中顯示？

Question

我有一個簡單的數據幀：

seq <- 1:10 
name <- c(paste0("company",1:10)) 
value <- c(250,125,50,40,40,30,20,20,10,10) 
d <- data.frame(seq,name,value) 

，我想這種方式繪製它：

require(ggplot2) 
ggplot(data = d,aes(x=seq,y=value))+geom_line() + geom_point() 

現在我想用PLOTY，主要是爲了能夠，將鼠標放在一個點的時候，獲取除價值之外的其他信息，例如公司名稱。我試試這個：

require(plotly) 
ggplotly() 

它給我一個工具提示，但只有seq和值。我嘗試了tooltip =的選項，但是它指定你只能在審美中使用變量describe，並且我不會在我的aes中使用名稱。

任何解決方案？我看到我不是第一個有這個問題的人，但是我還沒有找到與ggplotly一起工作的答案。

Answer 1

根據@ royr2的建議，不需要修改plotly對象。只需添加label = name作爲第三審美

ggplot(data = d, aes(x = seq, y = value, label = name)) + geom_line() + geom_point() 

和工具提示會顯示除了name到seq和value。

的ggplotly幫助文件說，大約tooltip參數：

The default, "all", means show all the aesthetic mappings (including the unofficial "text" aesthetic).

所以，你可以使用label審美只要你不想使用它geom_text。

BTW：我也試過text代替label

ggplot(data = d, aes(x = seq, y = value, text = name)) + geom_line() + geom_point() 

但隨後ggplot2抱怨

geom_path: Each group consists of only one observation. Do you need to adjust the group aesthetic?

，只繪製點。我不得不添加一個虛擬組geom_line刪除的問題：（但請注意，如果你把虛擬組作爲第四審美內aes()默認情況下將同時在提示出現）

ggplot(data = d, aes(x = seq, y = value, text = name)) + geom_line(group = 1) + geom_point() 

但是，如果您想使用由geom_text繪製並顯示在工具提示中的不同字符串，我發現非官方的text美學可以與label一起使用。

編輯在評論回答一個問題： 的tooltip參數ggplotly()可以用來控制外觀。 ggplotly(tooltip = NULL)根本不會壓制工具提示。 ggplotly(tooltip = c("label"))選擇美學包含在工具提示中。

Answer 2

您必須修改plotly object才能這樣做。或者使用plot_ly()來創建圖形...

編輯： 隨着plotly 4.0的發佈，語法將會改變一點點。

seq <- 1:10 
name <- c(paste0("company",1:10)) 
value <- c(250,125,50,40,40,30,20,20,10,10) 
d <- data.frame(seq,name,value) 

require(plotly) 
gg <- ggplot(data = d,aes(x=seq,y=value))+geom_line() + geom_point() 

gg <- plotly_build(gg) 

#OLD: 
gg$data[[1]]$text <- paste("Seq:", d$seq, "<br>", 
          "Value:", d$value, "<br>", 
          "Company:", d$name) 

#UPDATED: 
#Plotly_build creates two separate traces: 
#One with mode = markers and the other with mode = lines 
#Hence modify text for the second trace 

gg$x$data[[2]]$text <- paste("Seq:", d$seq, "<br>", 
          "Value:", d$value, "<br>", 
          "Company:", d$name) 

gg 

Answer 3

建立在@ UweBlock的答案上，您還可以創建虛擬美學，以便在工具提示中顯示多個標籤。我無法找到這是記錄在案的地方，但發現它是一個非常具體的問題。虛擬變量按照您指定的順序顯示，但優先考慮默認變量（例如x和y）。爲了解決這個問題，你可以指定一個獨立的審美這些變量，如下圖所示：

library(plotly) 
p = ggplot(iris, aes(label=Species, label2=Petal.Length, label3=Petal.Width)) + 
    geom_point(aes(Sepal.Length,Sepal.Width)) 
ggplotly(p) 

Answer 4

非官方text審美允許引入所有你想要的（這裏我用name兩次變量顯示它）：

require(ggplot2) 
ggplot(data = d,aes(x = seq, 
        y = value, 
        group = 1, 
        text = paste('name: ', name, 
           '</br>name_again: ', name) 
        ))+ 
    geom_line() + 
    geom_point() 

我必須添加一個虛擬group對美感的@UweBlock建議geom_line正常工作。

最後我選擇了我想在工具提示中顯示的內容（這裏我排除了group）。

require(plotly) 
ggplotly(, tooltip = c("x", "y", "text"))