R：指定颜色以影响绘图答案

【问题标题】：R: Specify color to factor in plotR：指定颜色以影响绘图
【发布时间】：2019-11-02 07:16:10
【问题描述】：

如何使用 plot 命令明确地将特定颜色分配给特定因素/组？我绘制了两个数据集 - 每个数据集都有两组（A3 和 A4）。它们之间的唯一区别是其中一个删除了两行（异常值）。但是，两个数据集的颜色完全不同。并且在每一组中，两组之间的颜色并不明显。请参考：

这是我的代码：

d<-read.csv("data-outlier.csv",header=T)

par(mar=c(5,5.5,4,2)+0.1)
plot(
  formula = Wealth ~ Age,
  data = d,
  pch = 20,
  col = c('blue','red2'),
  xlab = expression(Age),
  ylab = expression(Income),
  xlim=c(0,140),
  las = 1,
  cex = 1.5,
  cex.axis = 1.6, cex.lab = 1.8,
  bty = 'l'
)
A3 <- subset(d, Team=="A3")
A4 <- subset(d, Team=="A4")
rA3 <- lm(Wealth~Age, data=A3);
rA4 <- lm(Wealth~Age, data=A4);
abline(rA3, lty=3, col='blue')
abline(rA4, lty=3, col='red2')

 legend(x = 'bottomright', 
        legend = c('A3','A4'),
        col = c('blue','red2'), 
        pch = c(20,20),
        bty = 'n')

很抱歉，我不知道如何将这些数据格式化为要放在此处的向量，但这里是外部链接： 1.All data 2.2 data removed

除了单独使用“点”（以及使用 ggplot）进行绘图之外，还有其他方法可以为一组指定一种颜色吗？

提前谢谢你！

【问题讨论】：

标签： r plot colors par

【解决方案1】：

第 1 步：过滤数据并使用 plot() 为 A3 组创建图

d<-read.csv("data-outlier.csv",header=T)
A3 <- subset(d, Team=="A3")


par(mar=c(5,5.5,4,2)+0.1)
plot(A3$Age,A3$Wealth,
  pch = 20,
  col = "blue",
  xlab = expression(Age),
  ylab = expression(Income),
  xlim=c(0,140),
  las = 1,
  cex = 1.5,
  cex.axis = 1.6, cex.lab = 1.8,
  bty = 'l'
)
rA3 <- lm(Wealth~Age, data=A3)
abline(rA3, lty=3, col='blue')

第 2 步：使用 points() 将 A4 组数据添加到绘图中

A4 <- subset(d, Team=="A4")
points(A4$Age,A4$Wealth,
        pch = 20,
        col = "red",
        las = 1,
        cex = 1.5,
        bty = 'l')

rA4 <- lm(Wealth~Age, data=A4)
abline(rA4, lty=3, col='red2')

legend(x = 'bottomright', 
       legend = c('A3','A4'),
       col = c('blue','red2'), 
       pch = c(20,20),
       bty = 'n')

【讨论】：