在基础R中单独更改轴（）标签的颜色？

Question

我想知道如何将第一个和最后一个标签的 y轴标签的颜色转换为{{1 （见下图）？

这是我尝试过的没有成功的事情：

"red"

Answer 1

col.axis未进行矢量化，因此您需要将其作为两个命令执行。首先，我用黑色完成了所有注释，然后将结尾用红色过度绘制。

plot(1:5, yaxt = "n")
axis(2, at = 1:5, labels = paste0("case ", 1:5), col.axis = 1)
axis(2, at = range(1:5), labels = paste0("case ", range(1:5)), col.axis = 2)

Answer 2

这是一个更通用的例子：

palette ( c ( "steelblue", "orange" ))

X <- 1:5
Cols <- rep ( 1, length ( X ))
Cols [ c ( 1, length ( X ))] <- 2

plot ( X, yaxt = "n" )
axis ( 2, at = X, labels = FALSE )
mtext ( paste ( "Case", X ), at = pretty ( X ),
  side = 2, line = 1, col = Cols )

我希望它有所帮助。

大卫