CAPÍTULO 6. GRAFICACIÓN CON R
149
Nótese que, a pesar de tratarse de la misma información, la comunicación
visual hace énfasis en distintos aspectos de ella. Por ejemplo, en la primera grá-
fica de la Fig. 6.16, el énfasis está en los tipos de transporte que se usaron en
ambos eventos de manera global, mientras que en la segunda, está en las pro-
porciones de transporte usado con referencia al total, en cada uno de los dos
años del evento. Con la mira en este impacto visual de los tipos y el aspecto de
los gráficos, en seguida se presenta un ejemplo acerca del desempleo en Mé-
xico. Los datos se refieren a la proporción que guardan los desempleados con
educación media superior y superior, con respecto al total de desempleados en
el país, y son como sigue para cada trimestre, a partir del año 2011
2
.
# Porcentajes consecutivos por trimestre
prcnt
<-
c
(
34.6594306764
,
35.2754003647
,
35.40613204
,
35.1855137062
,
36.6282823891
,
37.3816513577
,
37.5314871844
,
36.3784124999
,
37.8949982178
,
37.9752539821
,
37.5238097329
,
38.8349502588
,
39.5894958061
,
40.4058337918
)
# Años de los trimestres
anio
<-
c
(
rep
(
2011
,
4
),
rep
(
2012
,
4
),
rep
(
2013
,
4
),
rep
(
2014
,
2
))
# Los trimestres
trim
<-
c
(
rep
(
c
(
"I"
,
"II"
,
"III"
,
"IV"
),
3
),
c
(
"I"
,
"II"
))
# Se construye un data frame comprensivo con
# la información anterior:
desempl.educ.sup
<-
data.frame
(anio,trim,prcnt)
# Se hacen los nombres de los renglones
rownames
(desempl.educ.sup)
<-
paste0
(anio,
"."
, trim)
# Se restara una cota inferior para
# producir una vista con la infomación de interés
tinf
<-
trunc
(desempl.educ.sup
$
prcnt[
1
])
# entero inferior
# la resta se agregará como una columna del data frame
desempl.educ.sup
$
d1
<-
desempl.educ.sup
$
prcnt
-
tinf
desempl.educ.sup
##
anio trim prcnt d1
## 2011.I 2011 I 34.66 0.6594
## 2011.II 2011 II 35.28 1.2754
## 2011.III 2011 III 35.41 1.4061
## 2011.IV 2011 IV 35.19 1.1855
## 2012.I 2012 I 36.63 2.6283
## 2012.II 2012 II 37.38 3.3817
## 2012.III 2012 III 37.53 3.5315
## 2012.IV 2012 IV 36.38 2.3784
2
Fuente: Sitio del INEGI en Internet:
