Plot
2022-07-19
La función plot
La función básica para hacer un gráfico se llama plot. Lo mínimo que le necesitamos proveer a la función plot para poder es un arreglo de números.
y<-rnorm(10)
print(y)## [1] 0.29083508 0.07327846 -0.25401496 0.97843812 -2.06587170 0.32079860
## [7] -0.30380225 0.31063437 0.60333324 -0.45912759plot(y)
En el ejemplo le pasamos un arreglo de 10 números aleatorios que son generadoras por la distribución normal de media 0 y varianza 1. Cuando pensamos en un gráfico lo pensamos en dos dimensiones, al pasarle un arreglo sólo le estamos dando como información a la función plot una de estas dos dimensiones. Lo que pasa es que la función plot considera que la información del arreglo corresponde al eje “y” y considera que la información del eje “x” corresponde a un arreglo que tiene los primeros naturales, es decir, los gráfica en el orden vector. En nuestro caso considera que el arreglo que corresponde al eje “x” es el arreglo que va del 1 al 10
x<- -5:4
plot(x,y)
En este ejemplo le pasamos dos arreglos. El primer arreglo que le pasamos a la función plot lo considera el eje “x”, mientras que el segundo lo toma como el valor para el eje “y”. Notamos que realmente sólo trasladamo la gráfica anterior en un factor de 5 a la izquierda.
plot(y,x)
En este caso estas variables no tienen nombre dentro de la función plot por lo que es importante el orden. LA última gráfica es la misma que la anterior a esta pero con los ejes intercambiados.
Ahora no necesariamente tenemos que graficar una función, es decir, que los puntos que graficamos aparezcan en orden. Vamos a considerar ahora dos muestras aleatorias de 100 números
x<-rnorm(100)
y<-rnorm(100)
plot(x,y)
Vemos como ahora los valores aproximadamente se repiten. Procedamos a un ejercicio práctico para darle aterrizar un poco más esto. Consideremos que la variable “x” corresponde a la altura y pensemos que la altura tiene una media 1.60 metros y un desviación de 10 cm. Comunmente medimos en valores truncados a dos decimales.Por lo cual haremos eso, es decir, no consideramos que alguien mida 1.657 mts, si no simplemente 1.65 mts. Ahora la variable “y” diremos que nos modela el peso, consideraremos que tiene una media de 60 kg y una desviación de 15 kg. En el caso de esta variable lo usual es truncarla a un decimal.
x<-0.10*rnorm(100)+1.60
x<-trunc(x*100)/100
head(x)## [1] 1.61 1.40 1.54 1.50 1.48 1.44y<-15*rnorm(100)+60
y<-trunc(y*10)/10
head(y)## [1] 79.7 61.2 68.5 41.5 56.8 55.1plot(x,y)
LA función para truncar se llama “trunc” esta no tiene la opción de truncar a un número de decimales, lo hace hacia los enteros. Para lograr truncar a dos decimales, multiplicamos el arreglo por 100, aplicamos la función “trunc” y luego dividimos entre 100. De forma análoga, lo hacemos con 10 para el caso de truncar a 1 decimal.
Observamos que en este caso sí hay valores de “x” que les corresponden varios valores de “y”. Si pensamos en lo que estamos modelando a una altura le pueden corresponder distintos pesos.
plot(x,y,xlab='Altura(mts)',ylab='Peso(kg)')
Los comandos “xlab” y “ylab” nos permite cambiar la etiqueta de los ejes “x” y “y”, respectivamente.
plot(x,y,xlab='',ylab='')
También es posible no ponerle nombre a los ejes, la primer forma es pasarle a “xlab” y a “ylab” la cadena vacía.
plot(x,y,xlab='Altura(mts)',ylab='Peso(kg)', ann=FALSE)
Sin embargo hay una forma alternativa de no mostrar las etiquetas de los ejes es poner el parametro “ann” con el valor FALSE
plot(x,y,xlab='Altura(mts)',ylab='Peso(kg)', axes=FALSE)
Con el comando “axis” eleminamos los ejes, si le pasamos el argumento FALSE.
plot(x,y,xlab='Altura(mts)',ylab='Peso(kg)', axes=FALSE)
axis(1)
axis(2)
Sin embargo pordemos regresarlos con la función “axis”, el argumento “1” para el eje “x”, mientras que el “2” para el eje “y”.
plot(x,y,xlab='Altura(mts)',ylab='Peso(kg)', axes=FALSE)
axis(1)
axis(2,at=40:70)
Otra opción intersante es poder cambiar la escala que se muestra con el parametro “at” en la función “axis”. En este caso cambiamos la escala que se muestra en el eje “y”.
plot(x,y,xlab='Altura(mts)',ylab='Peso(kg)', axes=FALSE)
axis(1,tck=0.25)
axis(2)
El parametro “tck” nos permite cambiar el tamaño de las escalas, en caso de ser positivo lo mueve para dentro dle gráfico, mientas que para que apunte fuera del gráfico hay que ponerlo negativo.
plot(x,y,xlab='Altura(mts)',ylab='Peso(kg)',yaxt = "n", xaxt = "n")
Si ponemos los parametros “xaxt” o “yaxt” como “n”, entonces dejaran de aparcer los valores de la escala, ya sea del eje “x” con el parametro “xaxt, o del ejece”y” con el parametro “yaxt”
plot(x,y,xlab='Altura(mts)',ylab='Peso(kg)',yaxt = "n")
axis(2, at = seq(round(min(y)), round(max(y)), by = 1), labels = round(min(y)):round(max(y)))
El eliminar los valores de la escala, aparte de quere que la gráfica se vea así. Nos sirve para poder cambiar la escala del eje con más control. En este caso pusimos que la escala del eje “y” fuera de uno en uno. “R” agrupa varias escalas para no verse como una franja negra, pero al hacer zoom se ve que gráfico todas las escalas del mínimo al máximo de uno en uno. También al hacer zoom podemos ver que cada uno tiene su correspondiente valor.
plot(x,y,xlab='Altura(mts)',ylab='Peso(kg)',yaxt = "n")
axis(2, at = seq(round(min(y)), round(max(y)), by = 1), labels = (round(min(y)):round(max(y)))-100)
Sin embargo la etiquetas pueden ser modificadas para mostrar el valor deseado, en este caso la recorrimos 100 a la izquierda.
plot(x,y,xlab='Altura(mts)',ylab='Peso(kg)',main="Altura vs Peso",sub="Análisis")
Mientras tanto con el comando “main” le podemos cambiar el titulo a la grafica.En el caso del comando “sub” nos permite ponerle un subtitulo a la gráfica
plot(x,y,xlab='Altura(mts)',ylab='Peso(kg)')
title(main="Altura vs Peso",sub="Análisis")
Existe una forma alternativa que resulta ser más limpia para poner titulo y subtitulo. Es con la función “title”.
par(mfrow = c(2, 2))
plot(x,y,xlab='Altura(mts)',ylab='Peso(kg)',las = 3, main = "Vertical")
plot(x,y,xlab='Altura(mts)',ylab='Peso(kg)',las = 2, main = "Perpendicular")
plot(x,y,xlab='Altura(mts)',ylab='Peso(kg)',las = 1, main = "Horizontal")
plot(x,y,xlab='Altura(mts)',ylab='Peso(kg)',las = 0, main = "Paralelo")
Vamos a introducir una función “par” a la que le pasamos el argumento “mfrow” el argumeto que se introduce es un vector entero de dos entradas. Esto nos creará un marco, en este caso de dos por dos y los gráficas se irán generando en este marco de dos por dos.
Por otro lado usamos el argumento “las” de la función plot que nos permite cambiar la orientación del texto de las escalas. Para cada eje tenemos 2 opciones, y como son dos ejes tenemos 4 opciones en total.
plot(x,y,xlab='Altura(mts)',ylab='Peso(kg)',xlim=c(0,3),ylim=c(10,120))
Con los parametros “xlim” y “ylim” podemos modificar el rango de los ejes, en este caso los hicimos más grandes para que los puntos gráficados se vean disminuidos de forma proporcional. Aunque correctamente graficados en su lugar.
A<-cbind(x,y)
dim(A)## [1] 100 2plot(A, pch=3,xlab='Altura(mts)',ylab='Peso(kg)')
Otra forma de pasarle los datos a la función plot es con un arreglo de “n” por 2. En este caso creamos el arreglo con la función “cbind”. Ahora bien, si le pasamo el argumento “pch” a la función “plot” usará un símbolo distinto al punto. En este caso el “3” nos da cruces. Tenemos de existen 25 símbolos diferentes, y se le pasan a la función con los primeros 25 naturales
plot(A, pch=3,cex=7,xlab='Altura(mts)',ylab='Peso(kg)')
EL comando parametro “cex” cambia el tamaño del símbolo.En este caso le pusimos el 7 para exagerar el tamaño del símbolo.
plot(A, pch=3,lwd=5,xlab='Altura(mts)',ylab='Peso(kg)')
Mientras tanto el comando “lwd” cambia el ancho de las líneas de los símbolos. Excepto para los símbolos del 15 al 18.
plot(A, pch=3,col="red",xlab='Altura(mts)',ylab='Peso(kg)')
Con el comando “col” le podemos cambiar el color a los símbolos.
plot(A, pch=22,bg="red",col="blue",xlab='Altura(mts)',ylab='Peso(kg)')
Los símbolos del 21 al 25 permiten tener dos colores uno para la línea y uno para el relleno.En este caso el parametro “col” modifica el color de las lineas de contorno y el parametro “bg” modifica el relleno.
plot(A, pch=22,bg="red",col="blue",xlab='Altura(mts)',ylab='Peso(kg)',
cex.lab=2)
El parametro “cex” tiene metodos, por ejemplo “lab” que corresponde a
las etiquetas de los ejes con esto podemos modificar el tamaño de dichas
etiquetas.
plot(A, pch=22,bg="red",col="blue",xlab='Altura(mts)',ylab='Peso(kg)',
cex.axis=2)
Otro metodo de “cex” es el los ejes “axis”, en este caso se modifica el tamaño de los valores de la escala de los ejes.
plot(A, pch=22,bg="red",col="blue",xlab='',ylab='Peso(kg)',
main="Peso vs Altura", sub="Análisis", cex.main=3, cex.sub=2)
En el caso de del título y el subtitulo el parametro “cex” tiene los metodos “main” y “sub”
plot(A, pch=22,bg="red",col="blue",xlab='',ylab='Peso(kg)',
main="Peso vs Altura",font=4)
Para el la etiqueta de los ejes, los valores de la escala, el titulo y el subtitulo se le puede cambiar la forma, con el parametro “font” este te permite que le pases el valor 2 para “Negrita”, 3 para “cursiva” y 4 para “negrita y cursiva”.
plot(A, pch=22,bg="red",col="blue",xlab='',ylab='Peso(kg)',
main="Peso vs Altura",font.main=4, font.axis=3,font.lab=2)
El parametro “font” permite los mismos metodos que “cex”. De esta forma podemos tener modificar las diferentes etiquetas que aparecen en nuestra gráfica de forma independiente.
plot(A, pch=22,bg="red",col="blue",xlab='',ylab='Peso(kg)',
main="Peso vs Altura")
text(1.4,80,"Prueba")
Con la función “text” podemos poner etiquetas dentro de la gráfica. A esta función le pasamos un punto, y una variable “string” con el texto que deseamos. La función pondra el texto en el punto indicado.
names(pdfFonts())## [1] "serif" "sans" "mono"
## [4] "AvantGarde" "Bookman" "Courier"
## [7] "Helvetica" "Helvetica-Narrow" "NewCenturySchoolbook"
## [10] "Palatino" "Times" "URWGothic"
## [13] "URWBookman" "NimbusMon" "NimbusSan"
## [16] "URWHelvetica" "NimbusSanCond" "CenturySch"
## [19] "URWPalladio" "NimbusRom" "URWTimes"
## [22] "ArialMT" "Japan1" "Japan1HeiMin"
## [25] "Japan1GothicBBB" "Japan1Ryumin" "Korea1"
## [28] "Korea1deb" "CNS1" "GB1"Con el la combinación de la función “names” y “pdfFonts” ponemos ver una serie de estilos de fuentes que estan ya en R.
plot(A, pch=22,bg="red",col="blue",xlab='',ylab='Peso(kg)',
main="Peso vs Altura")
text(1.4,80,"Prueba",family="serif")
Con el parametro “family” para la función “text” podemos cambiarle la fuente al texto puesto con la función “text”.
colors()## [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" "bisque2"
## [22] "bisque3" "bisque4" "black"
## [25] "blanchedalmond" "blue" "blue1"
## [28] "blue2" "blue3" "blue4"
## [31] "blueviolet" "brown" "brown1"
## [34] "brown2" "brown3" "brown4"
## [37] "burlywood" "burlywood1" "burlywood2"
## [40] "burlywood3" "burlywood4" "cadetblue"
## [43] "cadetblue1" "cadetblue2" "cadetblue3"
## [46] "cadetblue4" "chartreuse" "chartreuse1"
## [49] "chartreuse2" "chartreuse3" "chartreuse4"
## [52] "chocolate" "chocolate1" "chocolate2"
## [55] "chocolate3" "chocolate4" "coral"
## [58] "coral1" "coral2" "coral3"
## [61] "coral4" "cornflowerblue" "cornsilk"
## [64] "cornsilk1" "cornsilk2" "cornsilk3"
## [67] "cornsilk4" "cyan" "cyan1"
## [70] "cyan2" "cyan3" "cyan4"
## [73] "darkblue" "darkcyan" "darkgoldenrod"
## [76] "darkgoldenrod1" "darkgoldenrod2" "darkgoldenrod3"
## [79] "darkgoldenrod4" "darkgray" "darkgreen"
## [82] "darkgrey" "darkkhaki" "darkmagenta"
## [85] "darkolivegreen" "darkolivegreen1" "darkolivegreen2"
## [88] "darkolivegreen3" "darkolivegreen4" "darkorange"
## [91] "darkorange1" "darkorange2" "darkorange3"
## [94] "darkorange4" "darkorchid" "darkorchid1"
## [97] "darkorchid2" "darkorchid3" "darkorchid4"
## [100] "darkred" "darksalmon" "darkseagreen"
## [103] "darkseagreen1" "darkseagreen2" "darkseagreen3"
## [106] "darkseagreen4" "darkslateblue" "darkslategray"
## [109] "darkslategray1" "darkslategray2" "darkslategray3"
## [112] "darkslategray4" "darkslategrey" "darkturquoise"
## [115] "darkviolet" "deeppink" "deeppink1"
## [118] "deeppink2" "deeppink3" "deeppink4"
## [121] "deepskyblue" "deepskyblue1" "deepskyblue2"
## [124] "deepskyblue3" "deepskyblue4" "dimgray"
## [127] "dimgrey" "dodgerblue" "dodgerblue1"
## [130] "dodgerblue2" "dodgerblue3" "dodgerblue4"
## [133] "firebrick" "firebrick1" "firebrick2"
## [136] "firebrick3" "firebrick4" "floralwhite"
## [139] "forestgreen" "gainsboro" "ghostwhite"
## [142] "gold" "gold1" "gold2"
## [145] "gold3" "gold4" "goldenrod"
## [148] "goldenrod1" "goldenrod2" "goldenrod3"
## [151] "goldenrod4" "gray" "gray0"
## [154] "gray1" "gray2" "gray3"
## [157] "gray4" "gray5" "gray6"
## [160] "gray7" "gray8" "gray9"
## [163] "gray10" "gray11" "gray12"
## [166] "gray13" "gray14" "gray15"
## [169] "gray16" "gray17" "gray18"
## [172] "gray19" "gray20" "gray21"
## [175] "gray22" "gray23" "gray24"
## [178] "gray25" "gray26" "gray27"
## [181] "gray28" "gray29" "gray30"
## [184] "gray31" "gray32" "gray33"
## [187] "gray34" "gray35" "gray36"
## [190] "gray37" "gray38" "gray39"
## [193] "gray40" "gray41" "gray42"
## [196] "gray43" "gray44" "gray45"
## [199] "gray46" "gray47" "gray48"
## [202] "gray49" "gray50" "gray51"
## [205] "gray52" "gray53" "gray54"
## [208] "gray55" "gray56" "gray57"
## [211] "gray58" "gray59" "gray60"
## [214] "gray61" "gray62" "gray63"
## [217] "gray64" "gray65" "gray66"
## [220] "gray67" "gray68" "gray69"
## [223] "gray70" "gray71" "gray72"
## [226] "gray73" "gray74" "gray75"
## [229] "gray76" "gray77" "gray78"
## [232] "gray79" "gray80" "gray81"
## [235] "gray82" "gray83" "gray84"
## [238] "gray85" "gray86" "gray87"
## [241] "gray88" "gray89" "gray90"
## [244] "gray91" "gray92" "gray93"
## [247] "gray94" "gray95" "gray96"
## [250] "gray97" "gray98" "gray99"
## [253] "gray100" "green" "green1"
## [256] "green2" "green3" "green4"
## [259] "greenyellow" "grey" "grey0"
## [262] "grey1" "grey2" "grey3"
## [265] "grey4" "grey5" "grey6"
## [268] "grey7" "grey8" "grey9"
## [271] "grey10" "grey11" "grey12"
## [274] "grey13" "grey14" "grey15"
## [277] "grey16" "grey17" "grey18"
## [280] "grey19" "grey20" "grey21"
## [283] "grey22" "grey23" "grey24"
## [286] "grey25" "grey26" "grey27"
## [289] "grey28" "grey29" "grey30"
## [292] "grey31" "grey32" "grey33"
## [295] "grey34" "grey35" "grey36"
## [298] "grey37" "grey38" "grey39"
## [301] "grey40" "grey41" "grey42"
## [304] "grey43" "grey44" "grey45"
## [307] "grey46" "grey47" "grey48"
## [310] "grey49" "grey50" "grey51"
## [313] "grey52" "grey53" "grey54"
## [316] "grey55" "grey56" "grey57"
## [319] "grey58" "grey59" "grey60"
## [322] "grey61" "grey62" "grey63"
## [325] "grey64" "grey65" "grey66"
## [328] "grey67" "grey68" "grey69"
## [331] "grey70" "grey71" "grey72"
## [334] "grey73" "grey74" "grey75"
## [337] "grey76" "grey77" "grey78"
## [340] "grey79" "grey80" "grey81"
## [343] "grey82" "grey83" "grey84"
## [346] "grey85" "grey86" "grey87"
## [349] "grey88" "grey89" "grey90"
## [352] "grey91" "grey92" "grey93"
## [355] "grey94" "grey95" "grey96"
## [358] "grey97" "grey98" "grey99"
## [361] "grey100" "honeydew" "honeydew1"
## [364] "honeydew2" "honeydew3" "honeydew4"
## [367] "hotpink" "hotpink1" "hotpink2"
## [370] "hotpink3" "hotpink4" "indianred"
## [373] "indianred1" "indianred2" "indianred3"
## [376] "indianred4" "ivory" "ivory1"
## [379] "ivory2" "ivory3" "ivory4"
## [382] "khaki" "khaki1" "khaki2"
## [385] "khaki3" "khaki4" "lavender"
## [388] "lavenderblush" "lavenderblush1" "lavenderblush2"
## [391] "lavenderblush3" "lavenderblush4" "lawngreen"
## [394] "lemonchiffon" "lemonchiffon1" "lemonchiffon2"
## [397] "lemonchiffon3" "lemonchiffon4" "lightblue"
## [400] "lightblue1" "lightblue2" "lightblue3"
## [403] "lightblue4" "lightcoral" "lightcyan"
## [406] "lightcyan1" "lightcyan2" "lightcyan3"
## [409] "lightcyan4" "lightgoldenrod" "lightgoldenrod1"
## [412] "lightgoldenrod2" "lightgoldenrod3" "lightgoldenrod4"
## [415] "lightgoldenrodyellow" "lightgray" "lightgreen"
## [418] "lightgrey" "lightpink" "lightpink1"
## [421] "lightpink2" "lightpink3" "lightpink4"
## [424] "lightsalmon" "lightsalmon1" "lightsalmon2"
## [427] "lightsalmon3" "lightsalmon4" "lightseagreen"
## [430] "lightskyblue" "lightskyblue1" "lightskyblue2"
## [433] "lightskyblue3" "lightskyblue4" "lightslateblue"
## [436] "lightslategray" "lightslategrey" "lightsteelblue"
## [439] "lightsteelblue1" "lightsteelblue2" "lightsteelblue3"
## [442] "lightsteelblue4" "lightyellow" "lightyellow1"
## [445] "lightyellow2" "lightyellow3" "lightyellow4"
## [448] "limegreen" "linen" "magenta"
## [451] "magenta1" "magenta2" "magenta3"
## [454] "magenta4" "maroon" "maroon1"
## [457] "maroon2" "maroon3" "maroon4"
## [460] "mediumaquamarine" "mediumblue" "mediumorchid"
## [463] "mediumorchid1" "mediumorchid2" "mediumorchid3"
## [466] "mediumorchid4" "mediumpurple" "mediumpurple1"
## [469] "mediumpurple2" "mediumpurple3" "mediumpurple4"
## [472] "mediumseagreen" "mediumslateblue" "mediumspringgreen"
## [475] "mediumturquoise" "mediumvioletred" "midnightblue"
## [478] "mintcream" "mistyrose" "mistyrose1"
## [481] "mistyrose2" "mistyrose3" "mistyrose4"
## [484] "moccasin" "navajowhite" "navajowhite1"
## [487] "navajowhite2" "navajowhite3" "navajowhite4"
## [490] "navy" "navyblue" "oldlace"
## [493] "olivedrab" "olivedrab1" "olivedrab2"
## [496] "olivedrab3" "olivedrab4" "orange"
## [499] "orange1" "orange2" "orange3"
## [502] "orange4" "orangered" "orangered1"
## [505] "orangered2" "orangered3" "orangered4"
## [508] "orchid" "orchid1" "orchid2"
## [511] "orchid3" "orchid4" "palegoldenrod"
## [514] "palegreen" "palegreen1" "palegreen2"
## [517] "palegreen3" "palegreen4" "paleturquoise"
## [520] "paleturquoise1" "paleturquoise2" "paleturquoise3"
## [523] "paleturquoise4" "palevioletred" "palevioletred1"
## [526] "palevioletred2" "palevioletred3" "palevioletred4"
## [529] "papayawhip" "peachpuff" "peachpuff1"
## [532] "peachpuff2" "peachpuff3" "peachpuff4"
## [535] "peru" "pink" "pink1"
## [538] "pink2" "pink3" "pink4"
## [541] "plum" "plum1" "plum2"
## [544] "plum3" "plum4" "powderblue"
## [547] "purple" "purple1" "purple2"
## [550] "purple3" "purple4" "red"
## [553] "red1" "red2" "red3"
## [556] "red4" "rosybrown" "rosybrown1"
## [559] "rosybrown2" "rosybrown3" "rosybrown4"
## [562] "royalblue" "royalblue1" "royalblue2"
## [565] "royalblue3" "royalblue4" "saddlebrown"
## [568] "salmon" "salmon1" "salmon2"
## [571] "salmon3" "salmon4" "sandybrown"
## [574] "seagreen" "seagreen1" "seagreen2"
## [577] "seagreen3" "seagreen4" "seashell"
## [580] "seashell1" "seashell2" "seashell3"
## [583] "seashell4" "sienna" "sienna1"
## [586] "sienna2" "sienna3" "sienna4"
## [589] "skyblue" "skyblue1" "skyblue2"
## [592] "skyblue3" "skyblue4" "slateblue"
## [595] "slateblue1" "slateblue2" "slateblue3"
## [598] "slateblue4" "slategray" "slategray1"
## [601] "slategray2" "slategray3" "slategray4"
## [604] "slategrey" "snow" "snow1"
## [607] "snow2" "snow3" "snow4"
## [610] "springgreen" "springgreen1" "springgreen2"
## [613] "springgreen3" "springgreen4" "steelblue"
## [616] "steelblue1" "steelblue2" "steelblue3"
## [619] "steelblue4" "tan" "tan1"
## [622] "tan2" "tan3" "tan4"
## [625] "thistle" "thistle1" "thistle2"
## [628] "thistle3" "thistle4" "tomato"
## [631] "tomato1" "tomato2" "tomato3"
## [634] "tomato4" "turquoise" "turquoise1"
## [637] "turquoise2" "turquoise3" "turquoise4"
## [640] "violet" "violetred" "violetred1"
## [643] "violetred2" "violetred3" "violetred4"
## [646] "wheat" "wheat1" "wheat2"
## [649] "wheat3" "wheat4" "whitesmoke"
## [652] "yellow" "yellow1" "yellow2"
## [655] "yellow3" "yellow4" "yellowgreen"Con la función “colors” podemos ver la paleta de colores que tenemos disponible por default en R. Como podemos ver tenemos más de 600 colores disponibles.
Colores <- colors()
Colores[grep("red", Colores)]## [1] "darkred" "indianred" "indianred1" "indianred2"
## [5] "indianred3" "indianred4" "mediumvioletred" "orangered"
## [9] "orangered1" "orangered2" "orangered3" "orangered4"
## [13] "palevioletred" "palevioletred1" "palevioletred2" "palevioletred3"
## [17] "palevioletred4" "red" "red1" "red2"
## [21] "red3" "red4" "violetred" "violetred1"
## [25] "violetred2" "violetred3" "violetred4"La función “grep” nos permite hacer busqueda en las palabras, lo que realmente estamos haciendo es buscar todas las palabras en el vector de colores que tengan la palabra “red”.
plot(A,xlab='',ylab='Peso(kg)',main="Peso vs Altura",
col = "blue")
plot(A,xlab='',ylab='Peso(kg)',main="Peso vs Altura",
col = "#0000FF")
plot(A,xlab='',ylab='Peso(kg)',main="Peso vs Altura",
col = rgb(0, 0, 1)) La función “grep” nos permite hacer busqueda en las palabras, lo que realmente estamos haciendo es buscar todas las palabras en el vector de colores que tengan la palabra “red”.