R 用多种颜色打印轴标签

我绘制的图与使用以下代码生成的图相似：

var1 <- sort(runif(10, 0, 1), decreasing = TRUE)
var2 <- sort(runif(10, 0, 1))
plot(var1, pch = 20, ylab = c("Var 1", "Var 2"))
points(var2, pch = 20, col = "grey")

---

var1您喜欢这项工作吗？在左轴上有点忙，但我认为它显示了你在问什么

> var1 <- sort(runif(10, 0, 1), decreasing = TRUE)
> var2 <- sort(runif(10, 0, 1))
> plot(var1, ylim = range(c(var1, var2)), pch = 20, ylab = "", axes = FALSE)
> points(var2, pch = 20, col = "grey")
> labs <- round(sort(c(var1, var2)), 1)
> axis(1)
> axis(2, at = sort(c(var1, var2)), labels = labs)
> sapply(var1, function(x) points(-0.1, x, pch = 20))
> sapply(var2, function(x) points(-0.1, x, pch = 20, col = "grey"))
> box()

>var1-var2绘图（var1，ylim=range（c（var1，var2）），pch=20，ylab=“”，axes=FALSE）
>点数（var2，pch=20，col=“灰色”）
>实验室轴（1）
>轴（2，at=sort（c（var1，var2）），标签=labs）
>sapply（var1，函数（x）点（-0.1，x，pch=20））
>sapply（var2，函数（x）点（-0.1，x，pch=20，col=“grey”））
>框（）

我不确定如何将点添加到标签上，但可以通过以下方式轻松使用颜色进行标签：

var1 <- sort(runif(10, 0, 1), decreasing = TRUE)
var2 <- sort(runif(10, 0, 1))
plot(var1, pch = 20, ylab = "")
points(var2, pch = 20, col = "grey")
mtext("Var 1", side=2, line=2)
mtext("Var 2", side=2, line=3, col="grey")

var1