r-RStudio中的交互式树映射d3tree-使用savewidget()时没有图例

Question

需要一些帮助，如有任何建议，我们将不胜感激。我想在R中创建一个交互式树图。到目前为止，好的，坏的。我做到了，并能够创建一个HTML小部件，但当我打开它时，传奇已经不在了。在原始绘图中，它仍然存在，但不是保存的文件。如果能给我小费，我将不胜感激！这是我的代码：

library(tidyverse) library(readr) library(lubridate) library(ggthemes) library(treemap) library(d3treeR) library(readxl) library(htmlwidgets) df <- read_excel("df.xlsx")
Tidydata <- df %>% group_by(Level1, Level2, Level3) %>% summarise(Count = n())
tree <- treemap(Tidydata, index=c("Level1", "Level2", "Level3") ,vSize="Count" ,vColor="Count", type="value", border.col=c("black","white"), palette = "Greens", title="Treemap",
fontsize.title=16, fontsize.labels = 7, title.legend = "Counts" )
int <- d3tree(tree,width = "200%", height ="600px", rootname = "Level1")
saveWidget(int, file="TreePlot.html", selfcontained = T)

Answer 1

更新：我发现了如何解决缺少图例和重叠问题。

如果你遇到同样的问题，请使用

int <- **d3tree2**(tree,width = "200%", height ="600px", rootname = "Level1")

而不是

int <- d3tree(tree,width = "200%", height ="600px", rootname = "Level1")
and you can create very nice interactive treemaps.