[問題] ggplot轉plotly 自訂hovertext內容

看板R_Language作者 (Sky)時間6年前 (2017/07/29 18:44), 6年前編輯推噓0(0推 0噓 7→)
留言7則, 2人參與, 最新討論串1/2 (看更多)
[問題類型]: 程式諮詢(我想用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://www.ptt.cc/bbs/R_Language/M.1501325059.A.3A3.html
→
07/29 20:09, , 1F
看一下我之前回的 #1O6p-6pq 可能是你要的
07/29 20:09, 1F
→
07/29 20:10, , 2F
用hoverinfo, 然後text部份可以自訂
07/29 20:10, 2F
→
07/29 20:16, , 3F
那篇我看過囉，謝謝你，我有寫我的嘗試結果在內文裡
07/29 20:16, 3F
→
07/29 20:18, , 4F
主要是現在看到的例子hover中都沒有附上原類別變項
07/29 20:18, 4F
※ 編輯: 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
→
07/29 22:00, , 5F
我找到出錯的原因了，是因為traces = 1:4這個參數
07/29 22:00, 5F
→
07/29 22:01, , 6F
如此一來my.text[1]會被用在所有四條線的第一點
07/29 22:01, 6F
→
07/29 22:02, , 7F
my.text[2]則會出現在所有四條線的第二個資料點
07/29 22:02, 7F
分享一下自己的解決方案： 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
‣ 更多 parcequetoi 的文章
文章代碼(AID): #1PV6S3EZ (R_Language)
‣ 更多 parcequetoi 的文章
文章代碼(AID): #1PV6S3EZ (R_Language)