Вы можете установить поднабор из c(3, 4)
на основе значения Z
, например:
c(3,4)[(Z == "A") + 1]
, например, когда Z <- "A"
Z <- "A"
c(3,4)[(Z == "A") + 1]
#[1] 4
и когда Z <- "B"
Z <- "B"
c(3,4)[(Z == "A") + 1]
#[1] 3
Таким образом, код будет
plot(X, Y, pch = c(3,4)[(Z == "A") + 1])
Другой вариант - использовать ifelse
plot(X, Y, pch = ifelse(Z == "A", 4, 3))