El arte de programar en R Un leguaje para la estadística - page 140

CAPÍTULO 6. GRAFICACIÓN CON R
137
Los colores también se pueden especificar por sus nombres en inglés. El
lenguaje tiene registrados 657 nombres alfanuméricos de colores que se pue-
den revisar mediante la función
colors()
del lenguaje. Como un ejemplo se
muestran en seguida los primeros veinte nombres contenidos en vector que
regresa dicha función, y el segmento de colores entre los índices 455 al 458.
Además el lenguaje cuenta con funciones que permiten obtener los contenidos
de color RGB de cada uno de los colores nombrados.
# Los primeros veinte nombres de colores:
head
(
colors
(),
20
)
## [1] "white"
"aliceblue" "antiquewhite"
## [4] "antiquewhite1" "antiquewhite2" "antiquewhite3"
## [7] "antiquewhite4" "aquamarine" "aquamarine1"
## [10] "aquamarine2" "aquamarine3" "aquamarine4"
## [13] "azure"
"azure1"
"azure2"
## [16] "azure3"
"azure4"
"beige"
## [19] "bisque"
"bisque1"
# Los elementos 455 al 458
coloresPorNombre
<-
colors
()[
455
:
458
]
coloresPorNombre
## [1] "maroon" "maroon1" "maroon2" "maroon3"
# Para encontrar los contenidos de RGB:
(dd
<-
col2rgb
(coloresPorNombre))
##
[,1] [,2] [,3] [,4]
## red 176 255 238 205
## green 48 52 48 41
## blue 96 179 167 144
# Y para encontrar los hexadecimales correspondientes:
codigos
<-
rgb
(
red
= dd[
"red"
,],
green
=dd[
"green"
,],
blue
= dd[
"blue"
,],
max
=
255
)
# se puede abreviar "maxColorValue"
codigos
## [1] "#B03060" "#FF34B3" "#EE30A7" "#CD2990"
# Pero, dado que 'dd' es una matriz,
# podemos obtener el mismo resultado con su
# traspuesta así:
(codigos
<-
rgb
(
t
(dd),
max
=
255
))
## [1] "#B03060" "#FF34B3" "#EE30A7" "#CD2990"
1...,130,131,132,133,134,135,136,137,138,139 141,142,143,144,145,146,147,148,149,150,...198
Powered by FlippingBook