在R的geom_point中获取特殊形状：复现目标可视化的疑问

方法1：使用Unicode字符作为自定义形状 #

ggplot2支持直接将Unicode字符的码点作为形状值，你可以找到对应特殊形状的Unicode编码，替换到scale_shape_manual中：

# 示例：用Unicode嵌套方块（可根据实际需求调整具体编码，比如U+25AD）
ggplot(df, aes(x=x_column,y=y_column, shape=shape, color=shape)) +
  geom_point(size=4) +
  scale_shape_manual(values = c("\u25AD", 1, 2, ...)) # 把对应位置换成目标Unicode字符

注意：不同字体对Unicode的支持有差异，若显示异常，可更换支持全字符的字体，比如通过theme(text = element_text(family = "Segoe UI Symbol"))设置。

方法2：叠加图层实现复合形状 #

如果找不到合适的Unicode，直接叠加两个基础形状模拟方中方效果：

ggplot(df, aes(x=x_column,y=y_column, color=shape)) +
  # 先绘制大的空心方块（shape=0）
  geom_point(aes(shape=shape), size=6) +
  # 再绘制小的实心方块（shape=15），颜色设为背景色（比如白色）
  geom_point(aes(shape=shape), size=3, color="white") +
  # 手动指定形状映射，确保分组对应
  scale_shape_manual(values = c(0, 1, 2, ...))

这种方法可灵活组合任意基础形状，调整大小和颜色就能匹配目标样式。

方法3：使用自定义图形对象（grid包） #

如果需要更复杂的形状，用grid包创建自定义图形，再通过geom_point的shape参数传入：

library(grid)
# 创建方中方的自定义图形
square_in_square <- polygonGrob(
  x = c(0,1,1,0,0.2,0.8,0.8,0.2),
  y = c(0,0,1,1,0.2,0.2,0.8,0.8),
  id = c(1,1,1,1,2,2,2,2),
  gp = gpar(fill = c(NA, "white"), col = "black")
)

# 在ggplot中使用自定义形状
ggplot(df, aes(x=x_column,y=y_column, color=shape)) +
  geom_point(size=4) +
  scale_shape_manual(values = list(square_in_square, 1, 2, ...))

这种方式可完全自定义形状，精确匹配样本图的样式。

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