CAPÍTULO 6. GRAFICACIÓN CON R
146
##
aereo maritimo terrestre tren
## 2012 0.25 0.1250 0.4375 0.1875
## 2014 0.12 0.1875 0.4925 0.2000
A partir de aquí, se pueden obtener gráficos de barras apareadas o agrupa-
das, para dos casos: si se toma como categoría principal el tipo de transporte
que se usó o, si se toma como categoría principal los años de los congresos. En
el primer caso, se usa directamente la matriz que se ha obtenido (
rr1
), mien-
tras que en el segundo caso, se usa traspuesta de la matriz
rr1
, usando cuatro
colores, dado que el agrupamiento es de cuatro barras, una para cada tipo de
transporte. En ambos casos, en la función
barplot()
, se especifica el argumen-
to
beside=TRUE
, para producir grupos de barras en vez de
stacks
de barras.
# El resultado mas adecuado se obtiene
# con la matriz
barplot
(rr1,
beside
=T,
col
=
c
(
1
,
2
),
las
=
2
)
legend
(
"topleft"
,
legend
=
rownames
(rr1),
col
=
c
(
1
,
2
),
pch
=
15
)
# Pero tambien se puede tener el caso de
# la traspuesta de la matriz original
barplot
(
t
(rr1),
beside
=T,
col
=
1
:
4
)
legend
(
x
=
4.1
,
y
=
0.48
,
legend
=
colnames
(rr1),
col
=
1
:
4
,
pch
=
15
)
El resultado de los dos gráficos producidos con el código anterior se pue-
de apreciar en la Fig. 6.15. Nótese que la leyenda se ha tenido que ubicar, en
ambos casos, en el sitio que el gráfico lo ha permitido, y su especificación se
ha hecho de dos maneras: por medio de un texto descriptivo y por medio de
coordenadas dentro del espacio de dibujo.
La misma información de los gráficos anteriores se podría tener con otra
apariencia mediante barras apiladas o en
stack
. En este caso sólo se debe tener
cuidado en el último gráfico de agregar espacio para colocar la leyenda. Por
omisión, en estos casos, cada grupo de barras ocupa un espacio de 1.2 unida-
des, contando el espacio entre grupos, que es de 0.2, y tomando en cuenta que
el desplegado del primer grupo empieza justamente a partir de ese espacio, es
decir 0.2. Así el código para producir los gráficos en cuestión es el que sigue, y
su resultado se muestra en la Fig. 6.16.
# Barras apiladas: matriz normal
barplot
(rr1,
beside
=F,
col
=
c
(
1
,
2
),
las
=
2
)
legend
(
"topleft"
,
legend
=
rownames
(rr1),
col
=
c
(
1
,
2
),
pch
=
15
)
# El caso de la traspuesta de la matriz
# Nótese aquí el argumento xlim para dejar
# espacio para la leyenda
barplot
(
t
(rr1),
beside
=F,
col
=
1
:
4
,
xlim
=
c
(
0.2
,
3
*
1.2
+
0.2
))
legend
(
x
=
2.5
,
y
=
0.6
,
legend
=
colnames
(rr1),
col
=
1
:
4
,
pch
=
15
)
