LINK='https://docs.google.com/spreadsheets/d/e/2PACX-1vRumF4dwsEJakE174IN5PxTy1h6XM2Nz7cVE1EsM9rcKjfROKaF2PGwy2xJfJQnweOaoo0Z76ORBuAy/pub?gid=1687614986&single=true&output=csv'
cursoSPSS=read.csv(LINK,stringsAsFactors = F)
cursoSPSS
## nombre edad carrera ciudad nota_spss
## 1 Jessica 23 Gestion Lima 18
## 2 Raquel 20 Ciencia Politica Lima 9
## 3 Carlos 21 Economia Tacna 15
## 4 Manuel 19 Sociologia Huancayo 12
## 5 Alvaro 18 Antropologia Trujillo 14
## 6 Paula 22 Ciencia Politica Cusco 13
## 7 Gustavo 23 Gestion Lima 19
## 8 Edgar 25 Economia Cusco 10
## 9 Carla 28 Sociologia Cajamarca 13
names(cursoSPSS)
## [1] "nombre" "edad" "carrera" "ciudad" "nota_spss"
head(cursoSPSS)
## nombre edad carrera ciudad nota_spss
## 1 Jessica 23 Gestion Lima 18
## 2 Raquel 20 Ciencia Politica Lima 9
## 3 Carlos 21 Economia Tacna 15
## 4 Manuel 19 Sociologia Huancayo 12
## 5 Alvaro 18 Antropologia Trujillo 14
## 6 Paula 22 Ciencia Politica Cusco 13
tail(cursoSPSS)
## nombre edad carrera ciudad nota_spss
## 4 Manuel 19 Sociologia Huancayo 12
## 5 Alvaro 18 Antropologia Trujillo 14
## 6 Paula 22 Ciencia Politica Cusco 13
## 7 Gustavo 23 Gestion Lima 19
## 8 Edgar 25 Economia Cusco 10
## 9 Carla 28 Sociologia Cajamarca 13
posicionesCambiar=c(2,5)
nuevosNombres=c('años', 'nota')
names(cursoSPSS)[posicionesCambiar]=nuevosNombres
names(cursoSPSS)
## [1] "nombre" "años" "carrera" "ciudad" "nota"
posicionCambio=c(1)
nuevoNombre=c('nombre de pila')
names(cursoSPSS)[posicionCambio]=nuevoNombre
names(cursoSPSS)
## [1] "nombre de pila" "años" "carrera" "ciudad"
## [5] "nota"
str(cursoSPSS)
## 'data.frame': 9 obs. of 5 variables:
## $ nombre de pila: chr "Jessica" "Raquel" "Carlos" "Manuel" ...
## $ años : int 23 20 21 19 18 22 23 25 28
## $ carrera : chr "Gestion" "Ciencia Politica" "Economia" "Sociologia" ...
## $ ciudad : chr "Lima" "Lima" "Tacna" "Huancayo" ...
## $ nota : int 18 9 15 12 14 13 19 10 13
summary(cursoSPSS)
## nombre de pila años carrera ciudad
## Length:9 Min. :18.00 Length:9 Length:9
## Class :character 1st Qu.:20.00 Class :character Class :character
## Mode :character Median :22.00 Mode :character Mode :character
## Mean :22.11
## 3rd Qu.:23.00
## Max. :28.00
## nota
## Min. : 9.00
## 1st Qu.:12.00
## Median :13.00
## Mean :13.67
## 3rd Qu.:15.00
## Max. :19.00
cursoSPSS$`nombre de pila`=as.factor(cursoSPSS$`nombre de pila`)
summary(cursoSPSS)
## nombre de pila años carrera ciudad
## Alvaro :1 Min. :18.00 Length:9 Length:9
## Carla :1 1st Qu.:20.00 Class :character Class :character
## Carlos :1 Median :22.00 Mode :character Mode :character
## Edgar :1 Mean :22.11
## Gustavo:1 3rd Qu.:23.00
## Jessica:1 Max. :28.00
## (Other):3
## nota
## Min. : 9.00
## 1st Qu.:12.00
## Median :13.00
## Mean :13.67
## 3rd Qu.:15.00
## Max. :19.00
##
cursoSPSS[,c(3, 4)]=lapply(cursoSPSS[,c(3, 4)], as.factor)
summary(cursoSPSS)
## nombre de pila años carrera ciudad
## Alvaro :1 Min. :18.00 Antropologia :1 Cajamarca:1
## Carla :1 1st Qu.:20.00 Ciencia Politica:2 Cusco :2
## Carlos :1 Median :22.00 Economia :2 Huancayo :1
## Edgar :1 Mean :22.11 Gestion :2 Lima :3
## Gustavo:1 3rd Qu.:23.00 Sociologia :2 Tacna :1
## Jessica:1 Max. :28.00 Trujillo :1
## (Other):3
## nota
## Min. : 9.00
## 1st Qu.:12.00
## Median :13.00
## Mean :13.67
## 3rd Qu.:15.00
## Max. :19.00
##
cursoSPSS[cursoSPSS$nota==max(cursoSPSS$nota),"nota"]
## [1] 19
cursoSPSS[cursoSPSS$nota==max(cursoSPSS$nota),"carrera"]
## [1] Gestion
## Levels: Antropologia Ciencia Politica Economia Gestion Sociologia
nrow(cursoSPSS[cursoSPSS$nota<=14,])
## [1] 6
nrow(cursoSPSS[cursoSPSS$nota<=14 & cursoSPSS$carrera%in%c('Gestion','Antropologia'),])
## [1] 1
posicionesCambiar=c(2,5)
nuevosNombres=c('edad', 'nota_spss')
names(cursoSPSS)[posicionesCambiar]=nuevosNombres
posicionCambio=c(1)
nuevoNombre=c('nombre')
names(cursoSPSS)[posicionCambio]=nuevoNombre
names(cursoSPSS)
## [1] "nombre" "edad" "carrera" "ciudad" "nota_spss"
LINK2='https://docs.google.com/spreadsheets/d/e/2PACX-1vTYXaxbzf_t5d0yT8njeuWlBlpG_YYvrUISmY0iAWqGyVFHXZ1Gox7xFbz4uOZENdfBDlpmallfBSF5/pub?gid=621363260&single=true&output=csv'
cursoR=read.csv(LINK2,stringsAsFactors = F)
cursoR
## nombre edad carrera ciudad nota_r masculino
## 1 Maria Fernanda 23 Ciencia Politica Lima 20 FALSE
## 2 Antonella 20 Ciencia Politica Lima 19 FALSE
## 3 Carlos 21 Economia Tacna 15 TRUE
## 4 Manuel 19 Sociologia Huancayo 12 TRUE
## 5 Alvaro 18 Antropologia Trujillo 13 TRUE
## 6 Paula 22 Ciencia Politica Cusco 16 FALSE
## 7 Gustavo 23 Gestion Lima 15 TRUE
## 8 Edgar 25 Economia Cusco 11 TRUE
## 9 Daniela 28 Sociologia Cajamarca 14 FALSE
cursoTotal=merge(cursoR, cursoSPSS)
cursoTotal
## nombre edad carrera ciudad nota_r masculino nota_spss
## 1 Alvaro 18 Antropologia Trujillo 13 TRUE 14
## 2 Carlos 21 Economia Tacna 15 TRUE 15
## 3 Edgar 25 Economia Cusco 11 TRUE 10
## 4 Gustavo 23 Gestion Lima 15 TRUE 19
## 5 Manuel 19 Sociologia Huancayo 12 TRUE 12
## 6 Paula 22 Ciencia Politica Cusco 16 FALSE 13
cursoTotal[cursoTotal$nota_r==max(cursoTotal$nota_r),"nota_spss"]
## [1] 13
cursoTotal[(cursoTotal$nota_r==15) & (cursoTotal$nota_spss==15), "carrera"]
## [1] "Economia"
(cursoTotal[cursoTotal$nombre=='Manuel', 'nota_spss'])
## [1] 12