用ggplot2在R中创建“组合树”

install.packages("ggplot2")

library(ggplot2)

nodes <- data.frame(id = c("A", "B", "C", "D", "E"),
                    label = c("Node A", "Node B", "Node C", "Node D", "Node E"))

edges <- data.frame(from = c("A", "A", "B", "B", "C", "C", "D"),
                    to = c("B", "C", "D", "E", "D", "E", "E"))

p <- ggplot() +
  xlim(0, 10) +
  ylim(0, 10)

p <- p + geom_segment(data = edges, aes(x = from, y = to, xend = to, yend = to))

p <- p + geom_point(data = nodes, aes(x = id, y = id))

p <- p + geom_text(data = nodes, aes(x = id, y = id, label = label))

p <- p + labs(title = "Combination Tree",
              x = "Nodes",
              y = "Nodes")

print(p)