TEMA: Tipos de graficos en R.
library(haven)
demo <- read_sav("C:/Users/MINEDUCYT/OneDrive/AÑO 2024/UNIVERSIDAD DE EL SALVADOR/programacion en R/Semana 3/demo.sav")
View(demo)
demo
# A tibble: 6,400 × 29
AGE MARITAL ADDRESS INCOME INCCAT CAR CARCAT ED EMPLOY RETIRE
<dbl> <dbl+lbl> <dbl> <dbl> <dbl+l> <dbl> <dbl+l> <dbl+l> <dbl> <dbl+>
1 55 1 [Married] 12 72 3 [$50… 36.2 3 [Lux… 1 [Did… 23 0 [No]
2 56 0 [Unmarrie… 29 153 4 [$75… 76.9 3 [Lux… 1 [Did… 35 0 [No]
3 28 1 [Married] 9 28 2 [$25… 13.7 1 [Eco… 3 [Som… 4 0 [No]
4 24 1 [Married] 4 26 2 [$25… 12.5 1 [Eco… 4 [Col… 0 0 [No]
5 25 0 [Unmarrie… 2 23 1 [Und… 11.3 1 [Eco… 2 [Hig… 5 0 [No]
6 45 1 [Married] 9 76 4 [$75… 37.2 3 [Lux… 3 [Som… 13 0 [No]
7 42 0 [Unmarrie… 19 40 2 [$25… 19.8 2 [Sta… 3 [Som… 10 0 [No]
8 35 0 [Unmarrie… 15 57 3 [$50… 28.2 2 [Sta… 2 [Hig… 1 0 [No]
9 46 0 [Unmarrie… 26 24 1 [Und… 12.2 1 [Eco… 1 [Did… 11 0 [No]
10 34 1 [Married] 0 89 4 [$75… 46.1 3 [Lux… 3 [Som… 12 0 [No]
# ℹ 6,390 more rows
# ℹ 19 more variables: EMPCAT <dbl+lbl>, JOBSAT <dbl+lbl>, GENDER <chr+lbl>,
# RESIDE <dbl>, WIRELESS <dbl+lbl>, MULTLINE <dbl+lbl>, VOICE <dbl+lbl>,
# PAGER <dbl+lbl>, INTERNET <dbl+lbl>, CALLID <dbl+lbl>, CALLWAIT <dbl+lbl>,
# OWNTV <dbl+lbl>, OWNVCR <dbl+lbl>, OWNCD <dbl+lbl>, OWNPDA <dbl+lbl>,
# OWNPC <dbl+lbl>, OWNFAX <dbl+lbl>, NEWS <dbl+lbl>, RESPONSE <dbl+lbl>
Con la funcion hist() indicando la base de datos y la variable podemos determinar el histograma.
hist(demo$AGE, breaks=5, scale='percent', col='yellow')
Warning in plot.window(xlim, ylim, "", ...): "scale" es un parámetro gráfico
inválido
Warning in title(main = main, sub = sub, xlab = xlab, ylab = ylab, ...):
"scale" es un parámetro gráfico inválido
Warning in axis(1, ...): "scale" es un parámetro gráfico inválido
Warning in axis(2, at = yt, ...): "scale" es un parámetro gráfico inválido
En el segundo grafico se observa que hemos limitado a la serie de datos a 5 intervalos con la funcion break.
hist(demo$AGE, breaks=10, main='Histograma con 10 intervalos',
xlab='Edad', ylab='Frecuencias', col='blue')
En el segundo grafico determinamos cuantos intervalos, titulo, y labels en cada eje. para presentacion se hace mas especial este codigo.
estado<-c('casado','soltero','soltero','viudo','divorciado','casado','soltero','soltero','soltero','soltero','soltero')
edad<-c(21,20,23,56,45,34,25,21,19,18,20)
tabla<-data.frame(estado,edad)
tabla
estado edad
1 casado 21
2 soltero 20
3 soltero 23
4 viudo 56
5 divorciado 45
6 casado 34
7 soltero 25
8 soltero 21
9 soltero 19
10 soltero 18
11 soltero 20
hemos creado la tabla de estado civil y edad.
hist(tabla$edad,breaks=5, main='Edad de las personas',
xlab='Edad', ylab='Frecuencias', col='pink')
casado divorciado soltero viudo
2 1 7 1
ts<- table(tabla$estado)
ns <- 'ESTADO CIVIL'
lts <- length(ts)
lns <- levels(tabla$estado)
pie(ts, main=ns, col=rainbow(lts))
pts <- round(ts*100/sum(ts), 1)
pie(ts, labels=paste(pts, '%'), main=ns, col=rainbow(lts))
