Как заполнить одну точку «pch» на графике двумя цветами?

Если взять приведенный ниже код, как изменить заливку третьего ромба, чтобы он будет наполовину черным, наполовину белым? Решение должно применяться с любыми цветами.

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