将树状图转换为ggplot的最好方法？

install.packages("ggplot2")
library(ggplot2)

install.packages("dplyr")
library(dplyr)

# 假设树状图数据保存在df数据框中，包含两列：node和parent
df <- data.frame(
  node = c("A", "B", "C", "D", "E", "F"),
  parent = c(NA, "A", "A", "B", "B", "C")
)

# 将树状图数据转换为适用于ggplot的数据格式
df_ggplot <- df %>%
  mutate(level = ifelse(is.na(parent), 0, 1)) %>%
  left_join(df %>% mutate(level = ifelse(is.na(parent), 0, 1)), by = c("parent" = "node")) %>%
  mutate(level = level.x + level.y) %>%
  select(node, parent, level)

# 查看转换后的数据格式
print(df_ggplot)

  node parent level
1    A   <NA>     0
2    B      A     1
3    C      A     1
4    D      B     2
5    E      B     2
6    F      C     2

# 创建树状图
ggplot(df_ggplot, aes(x = level, y = node, group = parent)) +
  geom_tree() +
  theme_minimal()