Practica5

Conversión de listas a vectores

nombres<-c("Ruben", "Carlos","Marco","Sergio","Juan","Oscar","Miguel","Juanita","Antonio","Paulina")
edades <-c(12,23,45,23,56,23,23,66,32,22)
sueldos<-c(4222,4555,7444,23444,23444,12333,12000,2300,3000,2666)
edociviles<-c('s','s','c','s','s','s','s','c','s','s')
generos<-c('M','M','M','M','M','M','M','F','M',"F")

#CREAMOS DATA FRAME CON EL CONJUNTO DE DATOS

personas <- data.frame(nombres,edades,generos, sueldos, edociviles)
personas

##    nombres edades generos sueldos edociviles
## 1    Ruben     12       M    4222          s
## 2   Carlos     23       M    4555          s
## 3    Marco     45       M    7444          c
## 4   Sergio     23       M   23444          s
## 5     Juan     56       M   23444          s
## 6    Oscar     23       M   12333          s
## 7   Miguel     23       M   12000          s
## 8  Juanita     66       F    2300          c
## 9  Antonio     32       M    3000          s
## 10 Paulina     22       F    2666          s

# con $ eliges una variable en especifico

personas$nombres

##  [1] Ruben   Carlos  Marco   Sergio  Juan    Oscar   Miguel  Juanita Antonio
## [10] Paulina
## 10 Levels: Antonio Carlos Juan Juanita Marco Miguel Oscar Paulina ... Sergio

names(personas) #nombres de las columnas

## [1] "nombres"    "edades"     "generos"    "sueldos"    "edociviles"

names(personas)<-c("NOMBRE","EDAD","GENERO","GANANCIA","E CIVIL")
personas[3,] #se accede a todos

##   NOMBRE EDAD GENERO GANANCIA E CIVIL
## 3  Marco   45      M     7444       c

personas[3,c(1,3,5)] 

##   NOMBRE GENERO E CIVIL
## 3  Marco      M       c

personas[1:2, -5] #selecciona solo los registros 1 y 2 sin la quinta columna

##   NOMBRE EDAD GENERO GANANCIA
## 1  Ruben   12      M     4222
## 2 Carlos   23      M     4555

#estadistica descriptiva

max(personas$GANANCIA)#el que mas gana

## [1] 23444

min(personas$GANANCIA)#el que menos gana

## [1] 2300

max(personas$EDAD)#el mas grande

## [1] 66

min(personas$EDAD)#el mas joven

## [1] 12

#elige el registro del que contenga el maximo which.max

personas[which.max(personas$GANANCIA),]

##   NOMBRE EDAD GENERO GANANCIA E CIVIL
## 4 Sergio   23      M    23444       s

#compara el sueldo de todos los registros con el máximo 

personas$GANANCIA == max(personas$GANANCIA)

##  [1] FALSE FALSE FALSE  TRUE  TRUE FALSE FALSE FALSE FALSE FALSE

#plot(personas$NOMBRE, personas$GANANCIA )
personas$NOMBRE <- factor(personas$NOMBRE,levels = personas$NOMBRE)
barplot(sueldos ~ nombres, personas)