如何在R中使用symbols()命令更新散点图后添加图例

我来帮你搞定这个问题！你已经用symbols()画出了气泡图，接下来只需要用legend()函数就能轻松添加匹配你Type分类的图例，结合你的现有代码，具体操作如下：

1. 先确认Type的分类标签 #

首先要获取Type列的唯一类别，这样图例的标签才和数据完全对应：

# 获取Type的唯一分类（保持数据里的出现顺序）
TypeLabels <- unique(my_data_set$Type)

2. 调用legend()添加图例 #

在你执行完symbols()绘图命令后，直接运行下面的代码就行。这里我们把图例放在右上角（你可以根据图表内容换成"bottomleft"、"topleft"等位置）：

legend("topright", 
       legend = TypeLabels,  # 图例文字对应Type的分类
       fill = IScolors,      # 用你定义的颜色匹配分类
       pch = 21,             # 用带填充的圆形符号模拟气泡样式
       title = "Type",       # 给图例加个标题，更清晰
       cex = 0.8             # 调整图例大小，按需修改
)

3. 完整的代码示例 #

把你的代码和图例部分整合起来，完整版本如下（还补充了坐标轴标签和标题，让图表更直观）：

my_data_set <- read.csv("c:/Users/Person/Desktop/my_data_set.csv")
View(my_data_set)

# 定义颜色和Type的数值映射
IScolors <- c("#e6f598", "#66c2a5")
TypeLevels <- as.numeric(my_data_set$Type)

# 绘制气泡图
symbols(my_data_set$Analysis_Vs_Presentation, 
        my_data_set$Flexibility, 
        circles = sqrt(my_data_set$Easiness), 
        inches = 0.8, 
        bg = IScolors[TypeLevels], 
        fg = "black",  # 给气泡加黑色边框，区分度更高
        xlab = "Analysis Vs Presentation", 
        ylab = "Flexibility",
        main = "Bubble Plot: Flexibility vs. Analysis/Presentation")

# 添加图例
TypeLabels <- unique(my_data_set$Type)
legend("topright",
       legend = TypeLabels,
       fill = IScolors,
       pch = 21,
       title = "Type",
       cex = 0.8)

小提示 #

• 如果你的Type列是因子类型，unique()会自动保持因子的水平顺序；如果是字符型，也会按数据中的出现顺序获取唯一值，确保颜色和标签完全对应。
• 要是图例位置挡住了数据点，你可以换成坐标值来精确定位，比如legend(x = 5, y = 15, ...)，把x和y换成你图表里合适的数值就行。
• 如果之后想给气泡大小也加图例，可以用legend()的pt.cex参数设置不同大小的符号，但你的需求里主要是按Type分类，上面的方法就足够啦。

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