Используйте аргументы col
и pch
, чтобы указать цвет и форму для каждой точки данных.
a <- data.frame(x = rep(1:10,6), y = rep(1:6, each = 10))
WhRd <- colorRampPalette(c("white", "red"))
WhYl <- colorRampPalette(c("white", "yellow"))
WhBl <- colorRampPalette(c("white", "blue"))
plot(a,
col = rep(c(WhRd(10),
WhYl(10),
WhBl(10)),2),
pch = c(rep(15,30),
rep(16,30)))
Чтобы добавить границу, просто нанесите дополнительные точки поверх исходных
points(a,
col = 'black',
pch = c(rep(0,30),
rep(1,30)))