Изменить цвета в ggplot

Question

У меня есть этот код:

  ggplot(baseline, aes(x=Group, y=Thickness, color=Group, !is.na(Thickness))) + 
  geom_boxplot(outlier.colour="black", outlier.shape=16, outlier.size=0.5, notch=FALSE) +
  geom_dotplot(binaxis='y', stackdir='center', dotsize=0.5) +
  scale_x_discrete(limits=c("HC", "Patients")) +
  scale_y_continuous(breaks = seq(0.15, 0.30, by = 0.05 ))

По умолчанию я получаю HC красным цветом и Patients синим цветом.Но я хотел бы получить коробочный сюжет: ХК в черном и Пациенты в красном.

Воспроизводимый пример:

PatientID.  Group.  Thickness
1OD         HC        0.5
1OS         HC        0.5
23OD        Patient   0.001
23OS        Patient   0.01
44OD        Patient   0.03
44OS        Patient   0.04
3OD         HC        0.7
3OS         HC        0.9

Я не могу найти код.Не могли бы вы помочь мне?

Спасибо, Лили

Answer 1

Вы можете использовать scale_color_manual для указания желаемого цвета.PS: если вы хотите получить более необычный гибридный участок, обратите внимание на this

library(tidyverse)

df <- read_table("PatientID.  Group.  Thickness
1OD         HC        0.5
1OS         HC        0.5
23OD        Patient   0.001
23OS        Patient   0.01
44OD        Patient   0.03
44OS        Patient   0.04
3OD         HC        0.7
3OS         HC        0.9")

ggplot(df, aes(x = Group., y = Thickness, color = Group.)) +
  geom_boxplot(outlier.colour = "black", 
               outlier.size = 0.5, notch = FALSE) +
  geom_dotplot(binaxis = "y", stackdir = "center", dotsize = 0.5, 
               show.legend = FALSE) +
  scale_color_manual(values = c("HC" = "black", "Patient" = "red"))
#> `stat_bindot()` using `bins = 30`. Pick better value with `binwidth`.

^{Создано в 2018-11-15 представительный пакет (v0.2.1.9000)}