问题描述
有人可以告诉我如何制作一个可绘制的树状图以显示每个计数,以获得类似此图像的内容:
这是我正在使用的代码:
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