R绘图图例添加问题求助：新手无法正确设置图例（禁用第三方库）

别担心，你的基础绘图逻辑是对的，问题就出在图例的参数设置上——你现在把y轴数据df$tannin当成了图例标签，这肯定不对！我来帮你用基础R搞定，全程不用任何第三方库：

问题核心分析 #

你原来的legend()代码有两个关键错误：

• 图例标签用了c(df$tannin)，这是你的因变量数值，不是类别名称；
• 手动输入颜色列表既麻烦又容易出错，而且和你定义的myhash没有关联，后续修改颜色映射时还要同步改图例，效率很低。

修正后的完整代码 #

# 你的颜色映射（完全保留不变）
myhash <- c(a="green", b="pink", c="blue", d="purple", e="orange", f="brown", g="yellow", h="black", i="gray")
mycolor <- myhash[df$category]

# 绘图代码（完全保留不变）
plot(df$growth, df$tannin, col=mycolor, cex=1, pch=16, 
     xlab="Crecimiento", ylab="Taninos", 
     main = "Modelo lineal Taninos vs Crecimiento")

# 修正后的图例代码
legend("topright", 
       legend = names(myhash),  # 直接用myhash的键作为类别标签，自动匹配a-i
       fill = myhash,           # 直接用myhash的颜色值，和标签一一对应，不用手动重复输入
       title = "Categoría",     # 可选：给图例加个标题，让图表更清晰
       cex = 0.8)               # 可选：调整图例文字大小，避免占用过多绘图空间

进阶优化（适配数据中仅含部分类别的情况） #

如果你的df$category并没有包含myhash里的所有类别（比如只有a、c、e三类），可以只显示实际存在的类别，避免图例出现空的颜色块：

# 获取数据中实际存在的唯一类别
unique_cats <- unique(df$category)
# 匹配对应颜色
legend_colors <- myhash[unique_cats]

# 绘制精准匹配的图例
legend("topright", 
       legend = unique_cats, 
       fill = legend_colors, 
       title = "Categoría",
       cex = 0.8)

这样图例就会完美对应你用myhash设置的类别颜色，完全符合你的需求啦！

内容的提问来源于stack exchange，提问作者Gerardo García