在ggplot2中能否指定或自定义新形状？支持导入图片作为点形状吗？

当然可以实现！不过ggplot2原生的shape参数只支持它内置的那些符号（就是用数字调用的那种），没法直接把PNG文件当shape值用，但有两个非常靠谱的方案能帮你达成目标，下面给你一步步拆解：

方案1：用ggimage包直接导入PNG图像（最省心） #

这是最快的实现方式，专门用来在ggplot里插入外部图像，完美适配你的需求。

步骤： #

• 先安装并加载ggimage包（第一次用的话）
• 用geom_image()代替geom_point()，指定你的PNG文件路径作为image参数
• 还能根据变量映射颜色、调整图像大小，和普通的geom用法几乎一致

示例代码：

# 安装包（仅第一次需要）
install.packages("ggimage")
library(ggimage)
library(ggplot2)

# 假设你的填充小人PNG路径是 "my_character.png"（确保是透明背景哦）
your_data <- data.frame(
  x = rnorm(15),  # 随便造点示例数据
  y = rnorm(15),
  variable = sample(c("Group1", "Group2"), 15, replace = TRUE)
)

ggplot(data = your_data, aes(x = x, y = y)) +
  # 用geom_image导入小人，size调整大小，color映射变量颜色
  geom_image(aes(image = "my_character.png", color = variable), size = 0.06) +
  scale_color_manual(values = c("Group1" = "#FF6B6B", "Group2" = "#4ECDC4")) +
  theme_minimal()

注意点： #

• 你的PNG最好是透明背景，不然会有白色方块遮挡其他元素
• size参数需要根据你的图的尺寸调整，0.05-0.1是比较常用的范围
• 如果你的PNG本身已经有颜色，color参数会给图像整体着色，相当于滤镜效果，透明背景的纯色小人用这个效果很好

方案2：用grid包自定义形状（更灵活） #

如果你不想依赖外部PNG文件，想自己绘制填充小人的形状，可以用grid包创建自定义图形对象（grob），再结合ggplot使用。

步骤： #

• 用grid包的函数（比如circleGrob()、polygonGrob()）绘制小人的各个部分（头部、身体等）
• 把这些部分组合成一个完整的grob
• 用annotation_custom()把自定义grob放到每个数据点的位置

示例代码：

library(ggplot2)
library(grid)

# 定义一个生成填充小人的函数，支持自定义填充色和大小
create_small_person <- function(fill_color = "black", scale = 1) {
  # 绘制头部（圆形）
  head <- circleGrob(
    x = 0.5, y = 0.8, r = 0.15 * scale,
    gp = gpar(fill = fill_color, col = NA)  # col=NA去掉边框
  )
  # 绘制身体（多边形）
  body <- polygonGrob(
    x = c(0.5, 0.6, 0.6, 0.4, 0.4) * scale,
    y = c(0.3, 0.5, 0.7, 0.7, 0.5) * scale,
    gp = gpar(fill = fill_color, col = NA)
  )
  # 把头部和身体组合成一个grob
  grobTree(head, body)
}

# 示例数据
your_data <- data.frame(
  x = rnorm(10),
  y = rnorm(10),
  variable = sample(c("Control", "Treatment"), 10, replace = TRUE)
)

# 初始化ggplot
p <- ggplot(your_data, aes(x, y)) +
  theme_minimal() +
  labs(x = "X轴", y = "Y轴")

# 遍历每个数据点，添加自定义小人grob
for (i in seq(nrow(your_data))) {
  # 根据变量选择填充色
  fill <- ifelse(your_data$variable[i] == "Control", "#1A535C", "#F7FFF7")
  # 添加自定义形状
  p <- p + annotation_custom(
    create_small_person(fill_color = fill, scale = 0.5),
    xmin = your_data$x[i] - 0.15, xmax = your_data$x[i] + 0.15,
    ymin = your_data$y[i] - 0.15, ymax = your_data$y[i] + 0.15
  )
}

# 显示图形
print(p)

优势： #

• 完全自定义形状的细节，不需要外部文件
• 可以灵活调整形状的各个部分（比如加个胳膊、腿都可以）
• 颜色控制更精准，不会受PNG本身颜色的影响

总结 #

如果你已经有现成的小人PNG，优先选方案1，省心又快捷；如果想自己掌控形状的每一个细节，方案2更适合你。

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