如何解决在可绘树状图中添加名称以下的Count
有人可以告诉我如何制作一个可绘制的树状图以显示每个计数,以获得类似此图像的内容:
这是我正在使用的代码:
dtd1 <- structure(list(topic = c("Access control","Access management","Cipher text","Data encryption","Data protection","Data transmission","Malware","Malware analysis","Network security","Secret encoding","Secret key","Storage devices","Wireless network"),n = c(42L,36L,56L,82L,94L,24L,23L,46L,61L,43L,48L,52L,23L)),row.names = c(NA,-13L),class = "data.frame")
ramp4 <- colorRamp(c("darkblue","lightblue"))
ramp.list4 <- rgb( ramp4(seq(0,1,length = 15)),max = 255)
p <- dtd1 %>%
plot_ly(labels = ~topic,values = ~n,parents = ~NA,type = 'treemap',hovertemplate = "Cluster: %{label}<br>Count: %{value}<extra></extra>") %>%
config(modeBarButtonsToRemove = list(
"zoom2d","pan2d","zoomIn2d","zoomOut2d","autoScale2d","resetScale2d","hoverClosestCartesian","hoverCompareCartesian","sendDataToCloud","toggleHover","resetViews","toggleSpikelines","resetViewMapbox"),displaylogo = FALSE) %>%
layout(title = "Patent scape",colorway = ramp.list4)
p
plotly library中没有这些图表,因此我并不完全知道该看哪里!
解决方法
您可以按如下所示简单地修改label
:
dtd1 <- structure(list(topic = c("Access control","Access management","Cipher text","Data encryption","Data protection","Data transmission","Malware","Malware analysis","Network security","Secret encoding","Secret key","Storage devices","Wireless network"),n = c(42L,36L,56L,82L,94L,24L,23L,46L,61L,43L,48L,52L,23L)),row.names = c(NA,-13L),class = "data.frame")
ramp4 <- colorRamp(c("darkblue","lightblue"))
ramp.list4 <- rgb( ramp4(seq(0,1,length = 15)),max = 255)
p <- dtd1 %>%
plot_ly(labels = ~ paste0(topic,"<br>",n),values = ~n,parents = ~NA,type = 'treemap',hovertemplate = "Cluster: %{label}<extra></extra>") %>%
config(modeBarButtonsToRemove = list(
"zoom2d","pan2d","zoomIn2d","zoomOut2d","autoScale2d","resetScale2d","hoverClosestCartesian","hoverCompareCartesian","sendDataToCloud","toggleHover","resetViews","toggleSpikelines","resetViewMapbox"),displaylogo = FALSE) %>%
layout(title = "Patent scape",colorway = ramp.list4)
p
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。