Jak przypisać kolory według współczynnika w ggplot2 (z przykładami)

Często możesz chcieć przypisać kolory do punktów na wykresie ggplot2 w oparciu o zmienną jakościową.

Na szczęście można to łatwo zrobić, korzystając z następującej składni:

 ggplot(df, aes (x=x_variable, y=y_variable, color=color_variable)) +
  geom_point()

Ten samouczek zawiera kilka przykładów praktycznego wykorzystania tej składni przy użyciu wbudowanego zestawu danych R o nazwie iris :

 #view first six rows of iris dataset
head(iris)

  Sepal.Length Sepal.Width Petal.Length Petal.Width Species
1 5.1 3.5 1.4 0.2 setosa
2 4.9 3.0 1.4 0.2 setosa
3 4.7 3.2 1.3 0.2 setosa
4 4.6 3.1 1.5 0.2 setosa
5 5.0 3.6 1.4 0.2 setosa
6 5.4 3.9 1.7 0.4 setosa

Przykład 1: Użyj domyślnych kolorów

Poniższy kod pokazuje, jak przypisać domyślne kolory do punktów na wykresie ggplot2 w oparciu o zmienną silni Gatunek :

 library (ggplot2)

ggplot(iris, aes (x=Sepal.Length, y=Sepal.Width, color=Species)) +
  geom_point() 

Ponieważ nie określiliśmy skali kolorów ani niestandardowej listy kolorów, ggplot2 po prostu przypisał do punktów domyślną listę kolorów czerwonego, zielonego i niebieskiego.

Przykład 2: Użyj kolorów niestandardowych

Poniższy kod pokazuje, jak przypisać niestandardowe kolory do punktów na wykresie ggplot2 za pomocą funkcjiscale_color_manual() :

 library (ggplot2)

ggplot(iris, aes (x=Sepal.Length, y=Sepal.Width, color=Species)) +
  geom_point() +
  scale_color_manual( values = c(" setosa " = " purple ",
                                " versicolor =" orange ",
                                " virginica "=" steelblue ")) 

Zauważ, że do określenia kolorów mogliśmy również użyć szesnastkowych kodów kolorów.

Przykład 3: Użyj niestandardowej skali kolorów

Poniższy kod pokazuje, jak przypisać niestandardowe kolory do punktów na wykresie ggplot2 przy użyciu niestandardowej skali kolorów z pakietu RColorBrewer :

 library (ggplot2)
library (RColorBrewer)

#define custom color scale
myColors <- brewer. pal (3, " Spectral ")
names(myColors) <- levels(iris$Species)
custom_colors <- scale_color_manual(name = " Species Names ", values = myColors)

ggplot(iris, aes (x=Sepal.Length, y=Sepal.Width, color=Species)) +
  geom_point() +
  custom_colors

Dodatkowe zasoby

Jak tworzyć wykresy obok siebie w ggplot2
Jak zmienić tytuł legendy w ggplot2
Kompletny przewodnik po najlepszych motywach ggplot2