CAPÍTULO 6. GRAFICACIÓN CON R
167
Ahora se procederá a graficar los datos correspondientes a una de las fun-
ciones en un primer dispositivo que se abrirá mediante
x11()
. A este primer
dispositivo le corresponde el número de identificador 2.
x11
()
# <-DISPOSITIVO GRÁFICO NUM 2
# Se grafica la función representada por 'y'
plot
(x,y,
type
=
"o"
,
pch
=
15
,
col
=
colors
()[
120
])
En seguida, se grafican los datos correspondientes a la segunda función,
pero esto se hará en un segundo dispositivo que también se abre mediante la
función
x11()
. A este segundo dispositivo le corresponde el identificador 3.
x11
()
# <-DISPOSITIVO GRÁFICO NUM 3
# Se grafica la función representada por 'y1'
plot
(x,y1,
type
=
"o"
)
Ahora, con motivos de comparación, se añadirá una función seno
limpia
a cada uno de los dos gráficos anteriores; primeramente, se añadirá una curva
’seno’ azul al gráfico correspondiente al primer dispositivo, esto es, al que tiene
identificador 2.
# Se establece el dispositivo en el que se quiere
# añadir la curva 'seno' azul.
# Se podría usar dev.set(2), pero es más conveniente
# la manera que se muestra en seguida:
dev.set
(
dev.prev
())
# Se añade la curva
curve
(sin,
add
=T,
lwd
=
2
,
col
=
"blue"
)
Después se procede a añadir una curva ’seno’ color rojo al gráfico contenido
en el dispositivo cuyo identificador es 3.
# Se establece el dispositivo en el que se quiere
# añadir la curva 'seno' roja.
dev.set
(
dev.next
())
# Se añade la curva
curve
(sin,
add
=T,
lwd
=
2
,
col
=
"red"
)
Finalmente, se quiere tener en un mismo gráfico, en otro dispositivo por
separado, una imagen que permita comparar ambas funciones. Con este pro-
pósito se abrirá un nuevo dispositivo,
x11()
, y en él se graficarán, con distintos
símbolos, los puntos correspondientes a cada una de las funciones, y éstos se
unirán por medio de la función
segments()
, que permite graficar segmentos
de línea. Para comparar, se agregará también una curva correspondiente a la
función seno sin ruido.
