如何在R包ggphylomorpho中编辑进化形态空间图的点颜色？

因为ggphylomorpho是基于ggplot2构建的，哪怕包本身没暴露颜色参数，也可以用ggplot2的图层操作来修改点的颜色，下面是两种实用方法：

方法一：叠加新的点图层覆盖原有样式 #

先正常生成进化形态空间图，再用geom_point()添加自定义样式的点，完全覆盖默认点。示例代码：

library(ggphylomorpho)
library(ape)
library(ggplot2)

# 模拟示例数据（替换成你的真实数据）
tree <- rtree(10)
trait_data <- data.frame(x = rnorm(10), y = rnorm(10))
# 自定义颜色向量，长度要和物种数量一致
custom_colors <- c("red", "blue", "green", "orange", "purple", "pink", "yellow", "brown", "black", "gray")

# 生成基础图
p <- ggphylomorpho(tree, trait_data)

# 叠加自定义颜色的点
p + geom_point(color = custom_colors, size = 2) # 直接指定每个点颜色

# 如果按分组着色，比如你有分组数据
group_data <- sample(c("Group1", "Group2"), 10, replace = TRUE)
p + geom_point(aes(color = group_data), size = 2) +
  scale_color_manual(values = c("Group1" = "#FF5733", "Group2" = "#33FF57"))

方法二：直接修改绘图对象的原有图层 #

ggphylomorpho生成的是标准ggplot对象，你可以找到对应点的图层，直接修改其颜色参数：

# 生成基础图后，查看图层结构（找到点所在的图层，一般是第2个）
str(p$layers)

# 修改原有点的颜色为自定义向量
p$layers[[2]]$aes_params$color <- custom_colors

# 如果要按分组映射颜色，修改图层的aes映射
p$layers[[2]]$mapping <- aes(color = group_data)
# 再添加颜色比例尺
p + scale_color_manual(values = c("Group1" = "#FF5733", "Group2" = "#33FF57"))

两种方法都能保留ggphylomorpho的原有样式，只是替换点的颜色属性，选你觉得顺手的就行。

内容的提问来源于stack exchange，提问作者acdos