Я не уверен, хотите ли вы один или несколько участков.Так как вы упомянули par
, я предполагаю несколько графиков.Независимо от того, чтобы два фактора работали вместе для получения правильного количества цветов, проще всего объединить их в новый фактор, объединив их вместе с paste()
.Вот пример с ggplot2
и data.table
:
library(data.table)
library(ggplot2)
DT <- as.data.table(mtcars)
DT[, combinedFactor := as.factor(paste(cyl, am))]
ggplot(data = DT, aes(x = mpg, y = disp, color = combinedFactor)) +
geom_point() +
facet_wrap(facets = "am")
![enter image description here](https://i.stack.imgur.com/fn2a4.png)