2.4.3. Színek választása az RColorBrewer csomag segítségével
Az RColorBrewer csomag brewer.pal() függvénye szolgál az előre definiált színpaletták alapján színkódokat tartalmazó vektor létrehozására. A függvény általános alakja:
# ------
# SABLON Színpaletta létrehozása az RColorBrewer csomaggal
# ------
library(RColorBrewer)
brewer.pal(n, name)
Az n a kívánt színek számát határozza meg, amely háromnál nem lehet kevesebb. A name a színpaletta nevét tartalmazza. A választható neveket a brewer.pal.info adattábla tartalmazza, amely a palettából elérhető összes szín számát és a paletta típusát is tartalmazza. Ez utóbbi a category oszlopban olvasható, amelynek lehetséges értékei: seq, div és qual. A szekvenciális palettákat (seq) rendezett adatok ábrázolására használhatjuk: a világosabb színek a kisebb értékeket, a sötétebbek a nagyobbakat szemléltetetik. A divergens (div) paletták a középső részt világosabb színekkel, a szélső értékeket sötétebb színekkel jelenítik meg. A kvalitatív (qual) paletta kategorikus változók megjelenítésére használható.
library(RColorBrewer)
brewer.pal.info
maxcolors category
BrBG 11 div
PiYG 11 div
PRGn 11 div
PuOr 11 div
RdBu 11 div
RdGy 11 div
RdYlBu 11 div
RdYlGn 11 div
Spectral 11 div
Accent 8 qual
Dark2 8 qual
Paired 12 qual
Pastel1 9 qual
Pastel2 8 qual
Set1 9 qual
Set2 8 qual
Set3 12 qual
Blues 9 seq
BuGn 9 seq
BuPu 9 seq
GnBu 9 seq
Greens 9 seq
Greys 9 seq
Oranges 9 seq
OrRd 9 seq
PuBu 9 seq
PuBuGn 9 seq
PuRd 9 seq
Purples 9 seq
RdPu 9 seq
Reds 9 seq
YlGn 9 seq
YlGnBu 9 seq
YlOrBr 9 seq
YlOrRd 9 seq
A továbbiakban a brewer.pal() függvény használatára mutatunk példát:
# az x adatvektor beállítása
set.seed(0)
x <- rpois(n = 50, lambda = 100)
# grafikus paraméterek beállítása
par(las = 1, mgp = c(0, 0.2, 0), tcl = -0.2, mar = c(3, 2, 1, 1))
library(RColorBrewer)
par(mfrow = c(1, 2))
barplot(x[1:11], col = brewer.pal(n = 11, name = "BrBG"), names.arg = 1:11,
main = "BrBG, div")
barplot(x[1:11], col = brewer.pal(n = 11, name = "BrBG"), names.arg = 1:11,
main = "BrBG, div", border = NA)
barplot(x[1:11], col = brewer.pal(n = 11, name = "PiYG"), names.arg = 1:11,
main = "PiYG, div")
barplot(x[1:11], col = brewer.pal(n = 11, name = "PiYG"), names.arg = 1:11,
main = "PiYG, div", border = NA)
barplot(x[1:11], col = brewer.pal(n = 11, name = "PRGn"), names.arg = 1:11,
main = "PRGn, div")
barplot(x[1:11], col = brewer.pal(n = 11, name = "PRGn"), names.arg = 1:11,
main = "PRGn, div", border = NA)
barplot(x[1:11], col = brewer.pal(n = 11, name = "PuOr"), names.arg = 1:11,
main = "PuOr, div")
barplot(x[1:11], col = brewer.pal(n = 11, name = "PuOr"), names.arg = 1:11,
main = "PuOr, div", border = NA)
barplot(x[1:11], col = brewer.pal(n = 11, name = "RdBu"), names.arg = 1:11,
main = "RdBu, div")
barplot(x[1:11], col = brewer.pal(n = 11, name = "RdBu"), names.arg = 1:11,
main = "RdBu, div", border = NA)
barplot(x[1:11], col = brewer.pal(n = 11, name = "RdGy"), names.arg = 1:11,
main = "RdGy, div")
barplot(x[1:11], col = brewer.pal(n = 11, name = "RdGy"), names.arg = 1:11,
main = "RdGy, div", border = NA)
barplot(x[1:11], col = brewer.pal(n = 11, name = "RdYlBu"), names.arg = 1:11,
main = "RdYlBu, div")
barplot(x[1:11], col = brewer.pal(n = 11, name = "RdYlBu"), names.arg = 1:11,
main = "RdYlBu, div", border = NA)
barplot(x[1:11], col = brewer.pal(n = 11, name = "RdYlGn"), names.arg = 1:11,
main = "RdYlGn, div")
barplot(x[1:11], col = brewer.pal(n = 11, name = "RdYlGn"), names.arg = 1:11,
main = "RdYlGn, div", border = NA)
barplot(x[1:11], col = brewer.pal(n = 11, name = "Spectral"), names.arg = 1:11,
main = "Spectral, div")
barplot(x[1:11], col = brewer.pal(n = 11, name = "Spectral"), names.arg = 1:11,
main = "Spectral, div", border = NA)
barplot(x[1:8], col = brewer.pal(n = 8, name = "Accent"), names.arg = 1:8, main = "Accent, qual")
barplot(x[1:8], col = brewer.pal(n = 8, name = "Accent"), names.arg = 1:8, main = "Accent, qual",
border = NA)
barplot(x[1:8], col = brewer.pal(n = 8, name = "Dark2"), names.arg = 1:8, main = "Dark2, qual")
barplot(x[1:8], col = brewer.pal(n = 8, name = "Dark2"), names.arg = 1:8, main = "Dark2, qual",
border = NA)
barplot(x[1:12], col = brewer.pal(n = 12, name = "Paired"), names.arg = 1:12,
main = "Paired, qual")
barplot(x[1:12], col = brewer.pal(n = 12, name = "Paired"), names.arg = 1:12,
main = "Paired, qual", border = NA)
barplot(x[1:9], col = brewer.pal(n = 9, name = "Pastel1"), names.arg = 1:9,
main = "Pastel1, qual")
barplot(x[1:9], col = brewer.pal(n = 9, name = "Pastel1"), names.arg = 1:9,
main = "Pastel1, qual", border = NA)
barplot(x[1:8], col = brewer.pal(n = 8, name = "Pastel2"), names.arg = 1:8,
main = "Pastel2, qual")
barplot(x[1:8], col = brewer.pal(n = 8, name = "Pastel2"), names.arg = 1:8,
main = "Pastel2, qual", border = NA)
barplot(x[1:9], col = brewer.pal(n = 9, name = "Set1"), names.arg = 1:9, main = "Set1, qual")
barplot(x[1:9], col = brewer.pal(n = 9, name = "Set1"), names.arg = 1:9, main = "Set1, qual",
border = NA)
barplot(x[1:8], col = brewer.pal(n = 8, name = "Set2"), names.arg = 1:8, main = "Set2, qual")
barplot(x[1:8], col = brewer.pal(n = 8, name = "Set2"), names.arg = 1:8, main = "Set2, qual",
border = NA)
barplot(x[1:12], col = brewer.pal(n = 12, name = "Set3"), names.arg = 1:12,
main = "Set3, qual")
barplot(x[1:12], col = brewer.pal(n = 12, name = "Set3"), names.arg = 1:12,
main = "Set3, qual", border = NA)
barplot(x[1:9], col = brewer.pal(n = 9, name = "Blues"), names.arg = 1:9, main = "Blues, seq")
barplot(x[1:9], col = brewer.pal(n = 9, name = "Blues"), names.arg = 1:9, main = "Blues, seq",
border = NA)
barplot(x[1:9], col = brewer.pal(n = 9, name = "BuGn"), names.arg = 1:9, main = "BuGn, seq")
barplot(x[1:9], col = brewer.pal(n = 9, name = "BuGn"), names.arg = 1:9, main = "BuGn, seq",
border = NA)
barplot(x[1:9], col = brewer.pal(n = 9, name = "BuPu"), names.arg = 1:9, main = "BuPu, seq")
barplot(x[1:9], col = brewer.pal(n = 9, name = "BuPu"), names.arg = 1:9, main = "BuPu, seq",
border = NA)
barplot(x[1:9], col = brewer.pal(n = 9, name = "GnBu"), names.arg = 1:9, main = "GnBu, seq")
barplot(x[1:9], col = brewer.pal(n = 9, name = "GnBu"), names.arg = 1:9, main = "GnBu, seq",
border = NA)
barplot(x[1:9], col = brewer.pal(n = 9, name = "Greens"), names.arg = 1:9, main = "Greens, seq")
barplot(x[1:9], col = brewer.pal(n = 9, name = "Greens"), names.arg = 1:9, main = "Greens, seq",
border = NA)
barplot(x[1:9], col = brewer.pal(n = 9, name = "Greys"), names.arg = 1:9, main = "Greys, seq")
barplot(x[1:9], col = brewer.pal(n = 9, name = "Greys"), names.arg = 1:9, main = "Greys, seq",
border = NA)
barplot(x[1:9], col = brewer.pal(n = 9, name = "Oranges"), names.arg = 1:9,
main = "Oranges, seq")
barplot(x[1:9], col = brewer.pal(n = 9, name = "Oranges"), names.arg = 1:9,
main = "Oranges, seq", border = NA)
barplot(x[1:9], col = brewer.pal(n = 9, name = "OrRd"), names.arg = 1:9, main = "OrRd, seq")
barplot(x[1:9], col = brewer.pal(n = 9, name = "OrRd"), names.arg = 1:9, main = "OrRd, seq",
border = NA)
barplot(x[1:9], col = brewer.pal(n = 9, name = "PuBu"), names.arg = 1:9, main = "PuBu, seq")
barplot(x[1:9], col = brewer.pal(n = 9, name = "PuBu"), names.arg = 1:9, main = "PuBu, seq",
border = NA)
barplot(x[1:9], col = brewer.pal(n = 9, name = "PuBuGn"), names.arg = 1:9, main = "PuBuGn, seq")
barplot(x[1:9], col = brewer.pal(n = 9, name = "PuBuGn"), names.arg = 1:9, main = "PuBuGn, seq",
border = NA)
barplot(x[1:9], col = brewer.pal(n = 9, name = "PuRd"), names.arg = 1:9, main = "PuRd, seq")
barplot(x[1:9], col = brewer.pal(n = 9, name = "PuRd"), names.arg = 1:9, main = "PuRd, seq",
border = NA)
barplot(x[1:9], col = brewer.pal(n = 9, name = "Purples"), names.arg = 1:9,
main = "Purples, seq")
barplot(x[1:9], col = brewer.pal(n = 9, name = "Purples"), names.arg = 1:9,
main = "Purples, seq", border = NA)
barplot(x[1:9], col = brewer.pal(n = 9, name = "RdPu"), names.arg = 1:9, main = "RdPu, seq")
barplot(x[1:9], col = brewer.pal(n = 9, name = "RdPu"), names.arg = 1:9, main = "RdPu, seq",
border = NA)
barplot(x[1:9], col = brewer.pal(n = 9, name = "Reds"), names.arg = 1:9, main = "Reds, seq")
barplot(x[1:9], col = brewer.pal(n = 9, name = "Reds"), names.arg = 1:9, main = "Reds, seq",
border = NA)
barplot(x[1:9], col = brewer.pal(n = 9, name = "YlGn"), names.arg = 1:9, main = "YlGn, seq")
barplot(x[1:9], col = brewer.pal(n = 9, name = "YlGn"), names.arg = 1:9, main = "YlGn, seq",
border = NA)
barplot(x[1:9], col = brewer.pal(n = 9, name = "YlGnBu"), names.arg = 1:9, main = "YlGnBu, seq")
barplot(x[1:9], col = brewer.pal(n = 9, name = "YlGnBu"), names.arg = 1:9, main = "YlGnBu, seq",
border = NA)
barplot(x[1:9], col = brewer.pal(n = 9, name = "YlOrBr"), names.arg = 1:9, main = "YlOrBr, seq")
barplot(x[1:9], col = brewer.pal(n = 9, name = "YlOrBr"), names.arg = 1:9, main = "YlOrBr, seq",
border = NA)
barplot(x[1:9], col = brewer.pal(n = 9, name = "YlOrRd"), names.arg = 1:9, main = "YlOrRd, seq")
barplot(x[1:9], col = brewer.pal(n = 9, name = "YlOrRd"), names.arg = 1:9, main = "YlOrRd, seq",
border = NA)
