在R中将ggballoonplot图与树状图相结合

install.packages("ggplot2")
install.packages("ggtree")
install.packages("ggballoonplot")

library(ggplot2)
library(ggtree)
library(ggballoonplot)

# 创建树状结构数据
tree <- read.tree(text = "((A:0.1,B:0.2):0.3,(C:0.4,D:0.5):0.6);")

# 创建气泡图数据
balloon_data <- data.frame(
  label = c("A", "B", "C", "D"),
  value = c(10, 20, 30, 40)
)

# 创建树状图对象
tree_plot <- ggtree(tree)

# 显示树状图
print(tree_plot)

# 创建气泡图对象
balloon_plot <- ggballoonplot(
  data = balloon_data,
  x = "label",
  y = "value"
)

# 显示气泡图
print(balloon_plot)

# 将树状图和气泡图相结合
combined_plot <- tree_plot + balloon_plot

# 显示相结合的图形
print(combined_plot)