R中的交互式热图
R中的交互式热图
提问于 2017-09-13 15:36:36
我的数据看起来像：
rankA rankB V1 V2
1 0-1 w 1-2 t 8.636042 10.43002
2 0-1 w 3-5 t 6.495266 10.52126
3 0-1 w 6-10 t 5.480639 10.56230
4 0-1 w +10 t 4.897840 10.64759
5 2-3 w 1-2 t 7.677400 10.45409
6 2-3 w 3-5 t 5.420535 10.47965
7 2-3 w 6-10 t 4.499810 10.51640
8 2-3 w +10 t 3.496508 10.44883我需要一个交互式热图。我说互动是因为：
- 我需要在X轴上画A级
- 我需要在Y轴上画B级图
- 我需要用V1给方格涂颜色
- 当鼠标指针超过一个方格时，消息框必须显示V2值。
我刚刚看到了mtcars文档，但我不知道如何将热板复制到我的案例中(tidyverse库？)。
有什么想法吗？还有其他包裹吗？
回答 1
Stack Overflow用户
回答已采纳
发布于 2017-09-14 11:49:30
如果不需要在热图的两侧绘制树状图，可以选择以下选项：
选项1。创建ggplot对象&使用plotly::ggplotly进行转换
library(ggplot2)
p <- ggplot(df,
aes(x = rankA, y = rankB, fill = V1, label = V2)) +
geom_tile() +
geom_label(fill = "white") +
viridis::scale_fill_viridis() # to match other packages' default palettes
plotly::ggplotly(p)
选项2。巧妙地创建对象：
plotly::plot_ly(
data = df,
x = ~rankA, y = ~rankB, z = ~V1, text = ~paste('V2: ', V2),
hoverinfo = "text",
type = "heatmap"
)(此版本在悬停时显示"V2: /value of V2/“。但它没有被导出的屏幕截图捕获。)
如果你真的需要树状图的话，恐怕我还没有找到一种方法来把它转化为热马普的论点。但时过境迁你可以考虑以下几点..。
选项3。使用heatmaply库创建巧妙的对象&更改底层代码
# create the heatmap object hm (on hover, it will show the rankA / rankB / V1 values)
hm <- heatmaply::heatmaply(long_data = df %>%
select(rankB, rankA, V1) %>%
rename(name = rankB, variable = rankA, value = V1))
# look through hm's structure for hover text. I found it below, but I haven't
# used plotly enough to know if it's always going to be in the same place
str(hm)
> hm$x$data[4][[1]]$text
[,1] [,2]
[1,] "value: 8.636042<br />column: 0-1 w<br />row: 1-2 t" "value: 7.677400<br />column: 2-3 w<br />row: 1-2 t"
[2,] "value: 6.495266<br />column: 0-1 w<br />row: 3-5 t" "value: 5.420535<br />column: 2-3 w<br />row: 3-5 t"
[3,] "value: 5.480639<br />column: 0-1 w<br />row: 6-10 t" "value: 4.499810<br />column: 2-3 w<br />row: 6-10 t"
[4,] "value: 4.897840<br />column: 0-1 w<br />row: +10 t" "value: 3.496508<br />column: 2-3 w<br />row: +10 t"
attr(,"apiSrc")
[1] TRUE
# replace with V2's values, making sure the rows & columns are matched correctly
df %>%
select(-V1) %>%
mutate(V2 = paste("V2:", V2)) %>%
tidyr::spread(rankA, V2) %>%
arrange(factor(rankB, levels = c("1-2 t", "3-5 t", "6-10 t", "+10 t"))) %>%
select(-rankB) %>% as.matrix() -> hm$x$data[4][[1]]$text
hm(和以前一样，此版本在悬停时显示"V2: /value of V2/“。但它没有被导出的屏幕截图捕获。)
数据：
df <- read.table(header = T, stringsAsFactors = F,
text = ' rankA rankB V1 V2
1 "0-1 w" "1-2 t" 8.636042 10.43002
2 "0-1 w" "3-5 t" 6.495266 10.52126
3 "0-1 w" "6-10 t" 5.480639 10.56230
4 "0-1 w" "+10 t" 4.897840 10.64759
5 "2-3 w" "1-2 t" 7.677400 10.45409
6 "2-3 w" "3-5 t" 5.420535 10.47965
7 "2-3 w" "6-10 t" 4.499810 10.51640
8 "2-3 w" "+10 t" 3.496508 10.44883')页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/46201599
复制相关文章
相似问题
腾讯云开发者
