在可绘树状图中添加名称以下的Count

问题描述

有人可以告诉我如何制作一个可绘制的树状图以显示每个计数,以获得类似此图像的内容

enter image description here

这是我正在使用的代码

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

result

相关问答

Selenium Web驱动程序和Java。元素在(x,y)点处不可单击。其...
Python-如何使用点“。” 访问字典成员?
Java 字符串是不可变的。到底是什么意思?
Java中的“ final”关键字如何工作?(我仍然可以修改对象。...
“loop:”在Java代码中。这是什么,为什么要编译?
java.lang.ClassNotFoundException:sun.jdbc.odbc.JdbcOdbc...