R语言ggplot2半圆标记点及自定义半圆图形绘制问题咨询

1. 半圆标记的实现方法 #

ggplot2默认的pch点形状没有内置半圆，两种可行方案可实现指定坐标放置填充半圆：

• 方案一：使用ggforce包的geom_arc_bar直接绘制，可灵活控制半圆朝向、大小、填充色，示例代码如下：

library(ggplot2)
library(ggforce)

# 示例数据：指定半圆坐标、朝向、半径
point_data <- data.frame(
  x = c(1, 2, 3),
  y = c(2, 1, 3),
  start_angle = c(0, pi, pi/2), # 半圆起始弧度：0=上半圆、pi=下半圆、pi/2=左半圆
  end_angle = c(pi, 2*pi, 3*pi/2),
  radius = rep(0.1, 3)
)

ggplot() +
  geom_arc_bar(
    data = point_data,
    aes(x0 = x, y0 = y, r = radius, r0 = 0, 
        start = start_angle, end = end_angle, fill = factor(x))
  ) +
  coord_fixed() # 必须固定坐标比例，避免半圆被拉伸变形

• 方案二：如果需要批量将半圆作为散点标记使用，可以自定义ggplot2的Geom层，将默认的点grob替换为半圆grob即可实现和geom_point一致的映射逻辑。

2. 复杂复合标记的实现方案 #

对半分双色圆形这类多分区复合标记，可通过以下两种路径实现：

• 方案一：用ggnewscale包叠加多层几何元素，同一个坐标位置分别绘制不同分区的形状，各自绑定独立的颜色映射规则，示例代码如下：

library(ggplot2)
library(ggforce)
library(ggnewscale)

# 示例数据：每个点对应左右两种填充色
dual_color_data <- data.frame(
  x = 1:3,
  y = 1:3,
  left_fill = c("red", "blue", "darkgreen"),
  right_fill = c("gold", "purple", "gray")
)

ggplot(dual_color_data, aes(x0 = x, y0 = y, r = 0.1)) +
  # 绘制左半圆，绑定左半部分填充色
  geom_arc_bar(aes(start = pi/2, end = 3*pi/2, fill = I(left_fill)), r0 = 0) +
  # 新增独立填充比例尺，避免和左半圆填充映射冲突
  new_scale_fill() +
  # 绘制右半圆，绑定右半部分填充色
  geom_arc_bar(aes(start = 3*pi/2, end = pi/2 + 2*pi, fill = I(right_fill)), r0 = 0) +
  coord_fixed()

• 方案二：如果需要更复杂的异形标记，可以用grid包自定义grob构造目标形状，再通过annotation_custom或者自定义Geom层批量映射到数据坐标上，支持任意自定义形状的生成和数据映射。

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