如何用两种颜色填充图上的单个"pch"点？

Question

如果您使用下面的代码,如何更改第三颗钻石的填充物,那么它将是半黑色,半白色？该解决方案应适用于任何颜色.

data <- c(1,2,3)
plot(data, pch=c(23,18,23), cex=c(2.5,3,2.5))

Answer 1

pch字符是实际的字体符号,因此您将受限于字体中可用的字符.另一种方法是使用原始绘图命令来制作自己的"符号".这是非常灵活的,尽管在混合两种方法时可能存在调整大小等问题.这个方法在很好的my.symbols()例子中实现:

require(TeachingDemos)

bwDiamond <- function() {
    plot.new()
    polygon(c(0, 0.5, 1, 0.5, 0), c(0.5, 0, 0.5, 1, 0.5), lty=1)
    polygon(c(0.25, 0.5, 1, 0.75, 0.25), c(0.25, 0, 0.5, 0.75, 0.25), col=1)
}

data <- c(1,2,3)

dev.new(width=4, height=4)
plot(data, type='n')
points(data[1:2], pch=c(23,18), cex=c(2.5,3))
my.symbols(data[3], data[3], symb=bwDiamond, symb.plots=TRUE, inches=0.22)

另请参见此Q/A:R中的点符号