R 如何绘制ggplot树形图？

我希望在地图上得到这种渐变颜色：

ramp <- colorRamp(c("royalblue4", "white"))
ramp.list <- rgb( ramp(seq(0, 1, length = 15)), max = 255)

这就是我尝试过的：

library(ggplot2)
library(plotly)

ramp <- colorRamp(c("royalblue4", "white"))
ramp.list <- rgb( ramp(seq(0, 1, length = 15)), max = 255)
g <- ggplot(dtd7, aes(area = n, fill = topic, label = as.character(topic))) +
  geom_treemap()+
  geom_treemap_text(fontface = "italic", colour = "white", place = "centre")  +
  theme(legend.position = "none") 

ggplotly(p)

---

使用树映射跟踪可以显示分层数据集

因此，注释plot_lydtd7，ids=~topic，values=~n，parents=~topic，type='treemap'中的代码片段存在的问题是，您正在将相同的数据分配给ids和parents

请检查以下内容：

library(plotly)

dtd7 <- structure(
  list(
    topic = structure(
      c(9L, 8L, 4L, 7L, 2L, 6L, 1L, 3L,
        5L, 10L, 13L, 11L, 12L),
      .Label = c("Apple", "Avocado", "Banana", "Carrot", "Mango","Mushroom", "Onion", "Orange", "Pineapple", "Strawberry", "Sweet-lemon", "Watermelon", "Wildberry"),
      class = "factor"
    ),
    n = structure(
      c(4L, 3L, 9L, 11L, 12L, 2L, 1L, 6L, 10L, 5L,
        7L, 8L, 1L),
      .Label = c("23", "24", "36", "42", "43", "46", "48", "52", "56", "61", "82", "94"),
      class = "factor"
    )
  ),
  class = "data.frame",
  row.names = c(NA,-13L)
)

p <- plot_ly(
  dtd7,
  labels = ~ topic,
  parents = NA,
  values = ~ n,
  type = 'treemap',
  hovertemplate = "Ingredient: %{label}<br>Count: %{value}<extra></extra>"
)

p

---

使用树映射跟踪可以显示分层数据集

因此，注释plot_lydtd7，ids=~topic，values=~n，parents=~topic，type='treemap'中的代码片段存在的问题是，您正在将相同的数据分配给ids和parents

请检查以下内容：

library(plotly)

dtd7 <- structure(
  list(
    topic = structure(
      c(9L, 8L, 4L, 7L, 2L, 6L, 1L, 3L,
        5L, 10L, 13L, 11L, 12L),
      .Label = c("Apple", "Avocado", "Banana", "Carrot", "Mango","Mushroom", "Onion", "Orange", "Pineapple", "Strawberry", "Sweet-lemon", "Watermelon", "Wildberry"),
      class = "factor"
    ),
    n = structure(
      c(4L, 3L, 9L, 11L, 12L, 2L, 1L, 6L, 10L, 5L,
        7L, 8L, 1L),
      .Label = c("23", "24", "36", "42", "43", "46", "48", "52", "56", "61", "82", "94"),
      class = "factor"
    )
  ),
  class = "data.frame",
  row.names = c(NA,-13L)
)

p <- plot_ly(
  dtd7,
  labels = ~ topic,
  parents = NA,
  values = ~ n,
  type = 'treemap',
  hovertemplate = "Ingredient: %{label}<br>Count: %{value}<extra></extra>"
)

p

---

---

在R的plotly api中还不支持树映射。请查看完成后他们将关闭此问题。Treemap跟踪现在在dev版本中可用：devtools:：install\u githubropensci/plotly。要测试它们，只需复制一个并将type='sunburst'替换为type='treemap'。我不知道。您可能需要重新安装该软件包。请检查。R的plotly api中还不支持树映射。请查看完成后他们将关闭此问题。Treemap跟踪现在在dev版本中可用：devtools:：install\u githubropensci/plotly。要测试它们，只需复制一个并将type='sunburst'替换为type='treemap'。我不知道。您可能需要重新安装软件包。请检查。工作正常，谢谢！您是否知道如何将悬停弹出窗口编辑为：配料：~topic，Count=~n？我尝试过使用add_trace，但在不了解任何JavaScript的情况下，我无法完全理解如何做到这一点，抱歉。我刚刚更新了答案。您应该尝试运行schema并导航：object► 踪迹► 树形图► 属性► hovertemplate-了解更多信息。非常好，非常感谢！再次您好-您能给我一个建议，让我在下面显示count教组名，而不必在上面悬停吗？当然：-我刚刚留下了一个答案-干杯很好，谢谢！您是否知道如何将悬停弹出窗口编辑为：配料：~topic，Count=~n？我尝试过使用add_trace，但在不了解任何JavaScript的情况下，我无法完全理解如何做到这一点，抱歉。我刚刚更新了答案。您应该尝试运行schema并导航：object► 踪迹► 树形图► 属性► hovertemplate-了解更多信息。非常好，非常感谢！再次您好-您能给我一个建议，让我在“教学组名称”下方显示“计数”，而不必在上面悬停吗？当然可以：-我刚刚留下了一个答案-干杯