如何在ggplot中手动调整geom_point点大小？求类似scale_color_manual()的方法

可以使用**scale_size_manual()**函数——它和scale_color_manual()逻辑完全一致，能手动指定每个因子对应的点大小，刚好满足你的需求。

先修正数据集创建（避免类型问题） #

你的原代码用cbind生成矩阵再转数据框，会导致x和y变成字符型，建议直接用data.frame()创建，省去后续类型转换步骤：

frame <- 1:50
x <- runif(50, min=0, max=500)
y <- runif(50, min=0, max=500)
behaviorsmini <- c("NA", "B", "L", "C", "E")
behaviors <- sample(behaviorsmini, size=50, replace=TRUE)
df <- data.frame(frame, x, y, behaviors) # 直接生成数值型的x、y列

手动控制点大小的完整代码 #

通过scale_size_manual()指定每个行为对应的点尺寸，把"NA"组设为小尺寸（比如1），其余组统一设为大尺寸（比如3）：

library(ggplot2)

ggplot(df, aes(x=x, y=y, color=behaviors, size=behaviors)) +
  geom_point() +
  scale_size_manual(values = c("NA" = 1, "B" = 3, "L" = 3, "C" = 3, "E" = 3)) +
  theme_classic()

简化写法（适用于因子数量多的场景） #

如果除了"NA"之外还有很多因子，不想逐个指定，可以用条件判断批量生成尺寸规则：

# 基于因子水平生成尺寸向量
size_values <- ifelse(levels(df$behaviors) == "NA", 1, 3)
names(size_values) <- levels(df$behaviors)

ggplot(df, aes(x=x, y=y, color=behaviors, size=behaviors)) +
  geom_point() +
  scale_size_manual(values = size_values) +
  theme_classic()

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