绘制文件中存在的散点图颜色特定值答案

【问题标题】：Plot scatterplot colour specific values present in file绘制文件中存在的散点图颜色特定值
【发布时间】：2020-06-16 18:09:36
【问题描述】：

我正在尝试使用包含值的文件突出显示散点图中的值，如果值名称存在于绘图和文件中，它应该突出显示散点图中的数据值如何实现我的输出

输入包含：

Model    HP      Av.
Integra  140    15.9
Legend   200    33.9
Century  90     172 
LeSabre  100    172
535i     208    30
Century2 110    15.7
LeSabre2    170 20.8
Roadmaster  180 23.7

我的代码：

konA.temp <- log(dat$HP)

konB.temp <- log(dat$Av.)

plot(konA.temp, konB.temp, pch=16, cex=0.4, 
     xlim=c(min(konA.temp, konB.temp), max(konA.temp, konB.temp)), 
     ylim=c(min(konA.temp, konB.temp), max(konA.temp, konB.temp)),
     xlab='log(konA)', ylab='log(konB)')

model-file.txt 没有标题

  Integra
  Legend
  90
  100
  535i
  Century
  Century2
  LeSabre
  Roadmaster
  Riviera
  DeVille
  Seville
  Cavalier

我想用散点图中的任何颜色突出显示文件中存在的通用模型名称的散点图

【问题讨论】：

我不明白你的问题/问题。你能换个说法吗？或者举例说明您的预期输出？
@jay.sf 好的，我想要一个针对 Hp 和 av 的散点图，并在文件中的散点图中突出显示模型名称。例如只是从互联网上拍摄的图片 (vrzkj25a871bpq7t1ugcgmn9-wpengine.netdna-ssl.com/wp-content/…)

标签： r plot

【解决方案1】：

我会检查文件中的模型是否为%in%，并创建一个highlight 虚拟对象，即1 表示不匹配，2 表示匹配。然后使用颜色向量clr 并将其与虚拟对象进行子集化。

dat <- transform(dat, highlight=1+(dat$Model %in% unlist(m.names)))
clr <- c("red", "green")

只需使用with 进行绘图，以便可以识别highlight dummy。

with(dat,
     plot(log(HP), log(Av.), pch=16, cex=1, 
          xlim=c(min(konA.temp, konB.temp), max(konA.temp, konB.temp)),
          ylim=c(min(konA.temp, konB.temp), max(konA.temp, konB.temp)),
          xlab='log(konA)', ylab='log(konB)', col=clr[highlight]))

看起来像这样：

数据：

dat <- read.table(header=T,  text="Model    HP      Av.
Integra  140    15.9
Legend   200    33.9
Century  90     172 
LeSabre  100    172
535i     208    30
Century2 110    15.7
LeSabre2    170 20.8
Roadmaster  180 23.7")

m.names <- read.table(text="Integra
Legend
90
100
535i
Century
Century2
LeSabre
Roadmaster
Riviera
DeVille
Seville
Cavalier")

【讨论】：