作者parcequetoi (Sky)
看板R_Language
標題[問題] ggplot轉plotly 自訂hovertext內容
時間Sat Jul 29 18:44:15 2017
[問題類型]:
程式諮詢(我想用R 做某件事情，但是我不知道要怎麼用R 寫出來)
[軟體熟悉度]:
使用者(已經有用R 做過不少作品)
[問題敘述]:
下方的程式範例直接執行可出現一個互動式圖。
當滑鼠移到線上的時候，在「掛牌日期」那個項目已經從日期被自動轉成數字，
但我想要的是原本日期的樣子（例如2017/07/28）。
我查過資料，知道可以透過下列方法自訂hovertext：
p <- plotly_build(g)
my.text <- paste0("交易種類：", usd$交易種類, "\n",
"掛牌日期：", strftime(usd$掛牌日期, "%Y/%m/%d"), "\n",
"匯率：", usd$匯率)
style(p, text = my.text, hoverinfo = "text", traces = 1:4)
但是這樣畫的顏色與類別對應結果是錯的。
目前遇到的最大問題是：
我不知道我的character vector究竟要用什麼順序，
每一個elements才會順利對到正確的圖上位置。
常常hovertext是改了，但是hovertext文字顯示的交易種類卻跟線的顏色不符。
即使符合了，我也沒有把握數列的順序到底是不是正確的。
或是這種例子有直接用plotly作圖的方法？Thanks in advance!!
已參考過下列文章：
1. R_Language (
#1O6p-6pq)
2.
https://plot.ly/r/time-series/
3.
http://www.r-graph-gallery.com/2017/06/07/get-the-best-from-ggplotly/
[程式範例]:
https://gist.github.com/anonymous/c39f842543e49c5963671e333eb396ab
[環境敘述]:
R version 3.4.0 (2017-04-21)
Platform: x86_64-apple-darwin15.6.0 (64-bit)
Running under: macOS Sierra 10.12.6
Matrix products: default
BLAS: /System/Library/Frameworks/Accelerate.framework/Versions/A/Frameworks/vecLib.framework/Versions/A/libBLAS.dylib
LAPACK: /Library/Frameworks/R.framework/Versions/3.4/Resources/lib/libRlapack.dylib
locale:
[1] zh_TW.UTF-8/zh_TW.UTF-8/zh_TW.UTF-8/C/zh_TW.UTF-8/zh_TW.UTF-8
attached base packages:
[1] stats graphics grDevices utils datasets methods base
other attached packages:
[1] shiny_1.0.3 shinydashboard_0.6.1 reshape2_1.4.2
[4] plotly_4.7.0 ggplot2_2.2.1 magrittr_1.5
[7] rvest_0.3.2 xml2_1.1.1 httr_1.2.1
loaded via a namespace (and not attached):
[1] Rcpp_0.12.11 compiler_3.4.0 plyr_1.8.4
[4] bindr_0.1 tools_3.4.0 digest_0.6.12
[7] evaluate_0.10.1 jsonlite_1.5 tibble_1.3.3
[10] gtable_0.2.0 viridisLite_0.2.0 pkgconfig_2.0.1
[13] rlang_0.1.1 crosstalk_1.0.0 yaml_2.1.14
[16] curl_2.8.1 bindrcpp_0.2 knitr_1.16
[19] dplyr_0.7.2 stringr_1.2.0 htmlwidgets_0.9
[22] rprojroot_1.2 grid_3.4.0 glue_1.1.1
[25] data.table_1.10.4 R6_2.2.2 rmarkdown_1.6
[28] purrr_0.2.2.2 tidyr_0.6.3 selectr_0.3-1
[31] backports_1.1.0 scales_0.4.1 htmltools_0.3.6
[34] assertthat_0.2.0 mime_0.5 colorspace_1.3-2
[37] xtable_1.8-2 httpuv_1.3.5 labeling_0.3
[40] stringi_1.1.5 lazyeval_0.2.0 munsell_0.4.3
[關鍵字]:
ggplot2, plotly, ggplotly, hovertext
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 114.44.111.151
※ 文章網址: https://webptt.com/m.aspx?n=bbs/R_Language/M.1501325059.A.3A3.html
1F：→ abc2090614: 看一下我之前回的 #1O6p-6pq 可能是你要的 07/29 20:09
2F：→ abc2090614: 用hoverinfo, 然後text部份可以自訂 07/29 20:10
3F：→ parcequetoi: 那篇我看過囉，謝謝你，我有寫我的嘗試結果在內文裡 07/29 20:16
4F：→ parcequetoi: 主要是現在看到的例子hover中都沒有附上原類別變項 07/29 20:18
※ 編輯: parcequetoi (114.44.111.151), 07/29/2017 20:27:05
修改了內文，直接呈現我已經嘗試過的程式碼。
abc大呈現的方式是直接用plot_ly作圖；
我則是先用plotly_build，再用style修改。
（我的理解是後者應該跟ggplot2改theme的概念一樣？）
由於不知道怎麼在plot_ly作圖中自行指定色碼，目前還是比較依賴ggplot2... QQ
※ 編輯: parcequetoi (114.44.111.151), 07/29/2017 20:37:45
5F：→ parcequetoi: 我找到出錯的原因了，是因為traces = 1:4這個參數 07/29 22:00
6F：→ parcequetoi: 如此一來my.text[1]會被用在所有四條線的第一點 07/29 22:01
7F：→ parcequetoi: my.text[2]則會出現在所有四條線的第二個資料點 07/29 22:02
分享一下自己的解決方案：
my.text <- paste0("交易種類：", usd$交易種類, "\n",
"掛牌日期：", strftime(usd$掛牌日期, "%Y/%m/%d"), "\n",
"匯率：", usd$匯率)
p <- plotly_build(g) %>%
style(text = my.text[seq(1, length(my.text), by = 4)],
hoverinfo = "text", traces = 1) %>%
style(text = my.text[seq(2, length(my.text), by = 4)],
hoverinfo = "text", traces = 2) %>%
style(text = my.text[seq(3, length(my.text), by = 4)],
hoverinfo = "text", traces = 3) %>%
style(text = my.text[seq(4, length(my.text), by = 4)],
hoverinfo = "text", traces = 4)
traces = n就是改原factor編碼等於n的那條線。
最後呼叫p就是想要的圖了！
※ 編輯: parcequetoi (114.44.111.151), 07/29/2017 22:21:30