Как мне раскрасить точки, используя 2 условия?

Question

Я хотел бы раскрасить свои точки на диаграмме рассеяния на Depo в зависимости от того, соответствуют ли они моим Cutoff критериям.Я пробовал раскрасить Depo и использовать форму для Cutoff, но это не дает мне визуального представления, которое я ищу.Я действительно хочу, чтобы точки, закрашенные Depo, только если Cutoff = Good/Maybe и все точки, где Cutoff = Bad черный.

Depth    Pj         T         Depo    Cutoff
100.69    1.095802    0.9986513    Dri    Good
97.04    1.009357    0.9624445    Pro    Good
74.74    1.039274    0.9880176    Tur    Maybe
106.46    1.054291    0.9873374    Pro    Maybe
109.37    1.117034    0.9913281    Dri    Bad
90.29    1.01166        0.9107071    Pro    Bad

Я пробовал это, но это не выделяет плохие сэмплы

ggplot(MyData, aes(x=Pj, y=T, colour = Depo, shape = Cutoff)) + geom_point()

Answer 1

Как насчет этого?

df %>%
    mutate(col = factor(ifelse(
        Cutoff %in% c("Good", "Maybe"),
        as.character(Depo),
        NA))) %>%
    ggplot(aes(x = Pj, y = T, colour = col, shape = Cutoff)) +
    geom_point()

---

Пример данных

df <- read.table(text = "Depth    Pj         T         Depo    Cutoff
100.69    1.095802    0.9986513    Dri    Good
97.04    1.009357    0.9624445    Pro    Good
74.74    1.039274    0.9880176    Tur    Maybe
106.46    1.054291    0.9873374    Pro    Maybe
109.37    1.117034    0.9913281    Dri    Bad
90.29    1.01166        0.9107071    Pro    Bad", header = T)