x <- 1:10 x y <- c (9,5,7,6,4,0,3,2,8,7) y
nombres <- c(‘Hugo’, ‘Paco’, ‘Luis’, ‘Paty’, ‘Maria’,‘Ruben’,‘Gaby’) nombres
ls()
edades<- c(28,26,32,24,33,27,19) edades
sueldos<- c(12.5,13.4,56.7,14.8,7.1,50.2,44.4) sueldos
genero <- c(‘M’,‘M’,‘M’, ‘F’,‘F’,‘M’,‘F’) genero
? mean ## generar ayuda
help(‘mean’) ##generar ayuda
mean.edades <- mean(edades) mean.edades
length(nombres)
genero == ‘M’
which(genero==‘M’)
## cuales nombres son de genero F nombres[4:5] ###por que ya se conoce cuales son nombres[which(genero==‘F’)] ##cuando se desconoce la posicion
## saber que personas tienen entre 25 y 20 which(edades>=25 & edades <= 30) ##saber nombres [which(edades>=25 & edades <= 30)]
pasatiempos <- c(‘musica’,‘musica’,‘estudio’,‘videojuego’,‘musica’,‘musica’,‘videojuego’) edades pasatiempos
###saber nombres de personas que les gustan los videojuegos y el promedio de edad nombres [ which(pasatiempos==‘videojuego’)] edades [ which(pasatiempos==‘videojuego’)] mean( edades [ which(pasatiempos==‘videojuego’)]) genero[which(pasatiempos==‘videojuego’)]
### generar una tabla a partir de todos los vectores que tenemos
nombres edades sueldos genero pasatiempos
misdatos <-data.frame(nombres,edades,sueldos,genero,pasatiempos,stringsAsFactors = FALSE) misdatos
##agregando 5 registros completos a mis datos
nuevo <- c(‘Ene’,25,345.6,‘F’,‘videojuego’) ###otra manera de agregar registros uno a uno
misdatos<- rbind(misdatos,nuevo) ##agrega nuevo registro a mis datos misdatos<- rbind(misdatos,c(‘Martha’,28,35.6,‘F’,‘musica’)) misdatos <-rbind(misdatos,c(‘Abel’,37,588,‘M’,‘estudio’)) misdatos <-rbind(misdatos,c(‘Lupe’,45,898.5,‘F’,‘musica’)) misdatos <-rbind(misdatos,c(‘Juan’,22,8.7,‘M’,‘videojuegos’)) misdatos
class(misdatos) class(edades) class (nombres)
View(misdatos)
length(misdatos)
str(misdatos)
head(misdatos) tail(misdatos)
misdatos [1:5, ] ###la , es para que muestre todas las columnas
misdatos [1:5,4:5] ##muestra renglones y columnas especificos
misdatos[6,] ###muestra un renglon especifico
misdatos$nombres
vista.misdatos.nombres <- misdatos$nombres vista.misdatos.nombres
mean.sueldos<- mean(as.double(misdatos$sueldos )) ### a.double convierte a valor doble mean.sueldos
max(as.double(misdatos$sueldos))
which.max(as.double(misdatos$sueldos))
misdatos [which.max(as.double(misdatos$sueldos)),]
misdatos [which.min(as.double(misdatos$sueldos)),]