Manipulación de datos
Un vector del 1 al 5
a<-c(1,2,3,4,5)
a
## [1] 1 2 3 4 5
del 1 al 10
b<-c(1:10)
b
## [1] 1 2 3 4 5 6 7 8 9 10
d<-(1.5:7.5)
d
## [1] 1.5 2.5 3.5 4.5 5.5 6.5 7.5
e<-c(1:5.2,4,-3)
e
## [1] 1 2 3 4 5 4 -3
Función secuencia seq()
f<-seq(1:10)
f
## [1] 1 2 3 4 5 6 7 8 9 10
g<-seq(1,20,2)
g
## [1] 1 3 5 7 9 11 13 15 17 19
i<-seq(1,10, length=6)
i
## [1] 1.0 2.8 4.6 6.4 8.2 10.0
Función replicar rep()
j<-rep(3,10)
j
## [1] 3 3 3 3 3 3 3 3 3 3
k<-rep(a,2)
k
## [1] 1 2 3 4 5 1 2 3 4 5
Función generador de niveles o clases gl()
n<-gl(2,6)
n
## [1] 1 1 1 1 1 1 2 2 2 2 2 2
## Levels: 1 2
o<-gl(2,6,labels=c("Rojo", "Azul"))
o
## [1] Rojo Rojo Rojo Rojo Rojo Rojo Azul Azul Azul Azul Azul Azul
## Levels: Rojo Azul
Función tabla de combinaciones expand.grid()
Generar una tabla con edades (36 o 25), peso (75 o 60) y equipo
favorito (Tigres o Rayados)
p<-expand.grid(edad=c(36,25), peso=c(75,60), equipo=c("Tigres","Rayados"))
p
## edad peso equipo
## 1 36 75 Tigres
## 2 25 75 Tigres
## 3 36 60 Tigres
## 4 25 60 Tigres
## 5 36 75 Rayados
## 6 25 75 Rayados
## 7 36 60 Rayados
## 8 25 60 Rayados
Función nombrar columnas names()
names(a)<-c("Lunes","Martes","Miercoles","Jueves","Viernes")
a
## Lunes Martes Miercoles Jueves Viernes
## 1 2 3 4 5
Función modo mode()
mode(b)
## [1] "numeric"
mode(b)<-"character"
b
## [1] "1" "2" "3" "4" "5" "6" "7" "8" "9" "10"
LS0tDQp0aXRsZTogIjIuIE1hbmlwdWxhY2nDs24gZGUgRGF0b3MiDQphdXRob3I6ICJEYW5pZWwgRmFyw61hcyB8IEEwMTIzNjMyNyINCmRhdGU6ICIyMDIzLTAzLTIxIg0Kb3V0cHV0OiANCiAgaHRtbF9kb2N1bWVudDoNCiAgICB0b2M6IHRydWUNCiAgICB0b2NfZmxvYXQ6IHRydWUNCiAgICBjb2RlX2Rvd25sb2FkOiB0cnVlDQotLS0NCiMgTWFuaXB1bGFjacOzbiBkZSBkYXRvcw0KDQoNCiMgVW4gdmVjdG9yIGRlbCAxIGFsIDUNCmBgYHtyfQ0KYTwtYygxLDIsMyw0LDUpDQphDQpgYGANCg0KDQojIGRlbCAxIGFsIDEwDQpgYGB7cn0NCmI8LWMoMToxMCkNCmINCg0KZDwtKDEuNTo3LjUpDQpkDQoNCmU8LWMoMTo1LjIsNCwtMykNCmUNCmBgYA0KDQoNCg0KDQojIEZ1bmNpw7NuIHNlY3VlbmNpYSBzZXEoKQ0KYGBge3J9DQpmPC1zZXEoMToxMCkNCmYNCg0KZzwtc2VxKDEsMjAsMikNCmcNCg0KaTwtc2VxKDEsMTAsIGxlbmd0aD02KQ0KaQ0KYGBgDQoNCg0KIyBGdW5jacOzbiByZXBsaWNhciByZXAoKQ0KDQpgYGB7cn0NCmo8LXJlcCgzLDEwKQ0Kag0KDQprPC1yZXAoYSwyKQ0Kaw0KYGBgDQoNCg0KIyBGdW5jacOzbiBnZW5lcmFkb3IgZGUgbml2ZWxlcyBvIGNsYXNlcyBnbCgpDQpgYGB7cn0NCm48LWdsKDIsNikNCm4NCg0KbzwtZ2woMiw2LGxhYmVscz1jKCJSb2pvIiwgIkF6dWwiKSkNCm8NCmBgYA0KDQoNCiMgRnVuY2nDs24gdGFibGEgZGUgY29tYmluYWNpb25lcyBleHBhbmQuZ3JpZCgpDQoNCiMgR2VuZXJhciB1bmEgdGFibGEgY29uIGVkYWRlcyAoMzYgbyAyNSksIHBlc28gKDc1IG8gNjApIHkgZXF1aXBvIGZhdm9yaXRvIChUaWdyZXMgbyBSYXlhZG9zKQ0KDQpgYGB7cn0NCnA8LWV4cGFuZC5ncmlkKGVkYWQ9YygzNiwyNSksIHBlc289Yyg3NSw2MCksIGVxdWlwbz1jKCJUaWdyZXMiLCJSYXlhZG9zIikpDQpwDQpgYGANCg0KDQojIEZ1bmNpw7NuIG5vbWJyYXIgY29sdW1uYXMgbmFtZXMoKQ0KYGBge3J9DQpuYW1lcyhhKTwtYygiTHVuZXMiLCJNYXJ0ZXMiLCJNaWVyY29sZXMiLCJKdWV2ZXMiLCJWaWVybmVzIikNCmENCmBgYA0KDQoNCiMgRnVuY2nDs24gbW9kbyBtb2RlKCkNCmBgYHtyfQ0KbW9kZShiKQ0KbW9kZShiKTwtImNoYXJhY3RlciINCmINCmBgYA0KDQo=