##Preguntas
1. Crear un vector
x<-c(1,2,3)2. Crear un objeto
t<-c("frio","Caliente","Tibio")3. Crear un dataframe
x<-c(1,2,3)
t<-c("frio","Caliente","Tibio")
data.frame(x,t)## x t
## 1 1 frio
## 2 2 Caliente
## 3 3 Tibio##EJERCICIOS
1. Crea un vector a con los valores 2, 4, 6, 8, 10, 12.
a<-c(2,4,6,8,10,12)
print(a)## [1] 2 4 6 8 10 122. Calcula la suma de los elementos del vector a.
a<-c(2,4,6,8,10,12)
sum(a)## [1] 423. Calcula el producto de los elementos del vector a.
a<-c(2,4,6,8,10,12)
prod(a)## [1] 460804. Crea un vector b con los valores 1, 3, 5, 7, 9. Calcula la diferencia entre los elementos del vector a y el vector b.
a<-c(2,4,6,8,10,12)
b<-c(1,3,5,7,9)
a-b## Warning in a - b: longitud de objeto mayor no es múltiplo de la longitud de uno
## menor## [1] 1 1 1 1 1 11#Con el vector dado inicialmente no se podrian realizar los calculos debido a que los vectores creados no tienen
#la misma dimension para arreglar este error le damos la misma dimesion para que asi se puedan operar
a<-c(2,4,6,8,10,12)
b<-c(1,3,5,7,9,11)
a-b## [1] 1 1 1 1 1 15. Crear dos vectores y calcular: Suma, producto, potenciación, radicación
a<-c(2,4,6,8,10)
b<-c(1,3,5,7,9)
a+b## [1] 3 7 11 15 19a*b## [1] 2 12 30 56 90a^2## [1] 4 16 36 64 100b^2## [1] 1 9 25 49 81sqrt(a)## [1] 1.414214 2.000000 2.449490 2.828427 3.162278sqrt(b)## [1] 1.000000 1.732051 2.236068 2.645751 3.0000006. Comparar dos cantidades que sean iguales y dos diferentes.
12==6*2## [1] TRUE6==2+2+2## [1] TRUE21==10+2## [1] FALSE31==90## [1] FALSE7. Crea un nuevo data frame df2 con las columnas nombre y edad de las personas que viven en la ciudad de “Neiva”.Agrega 12 filas con datos ficticios. De lo anterior Calcula el número de personas que viven en cada ciudad en el data frame df
Nombre<-c("camilo","Muara","camila","johan ","elkin","alejandro","yandri","nicolas","dirley","william","daniela","steven")
Edad<-c(20,21,21,18,17,19,20,19,24,18,22,20)
Ciudad = c('Neiva', 'Neiva', 'Neiva', 'Neiva', 'Neiva', 'Neiva', 'Neiva', 'Neiva', 'Bogotá', 'Bogotá', 'Cali', 'Medellín')
datos2<-data.frame(Nombre,Edad,Ciudad)
print(datos2)## Nombre Edad Ciudad
## 1 camilo 20 Neiva
## 2 Muara 21 Neiva
## 3 camila 21 Neiva
## 4 johan 18 Neiva
## 5 elkin 17 Neiva
## 6 alejandro 19 Neiva
## 7 yandri 20 Neiva
## 8 nicolas 19 Neiva
## 9 dirley 24 Bogotá
## 10 william 18 Bogotá
## 11 daniela 22 Cali
## 12 steven 20 Medellínpersonas_por_ciudad <- table(datos2$Ciudad)
personas_por_ciudad##
## Bogotá Cali Medellín Neiva
## 2 1 1 88. Agregar dos columnas: Estrato, nivel de estudios, al anterior dataframe
Nombre<-c("camilo","Muara","camila","johan ","elkin","alejandro","yandri","nicolas","dirley","william","daniela","steven")
Edad<-c(20,21,21,18,17,19,20,19,24,18,22,20)
Ciudad = c('Neiva', 'Neiva', 'Neiva', 'Neiva', 'Neiva', 'Neiva', 'Neiva', 'Neiva', 'Bogotá', 'Bogotá', 'Cali', 'Medellín')
datos2<-data.frame(Nombre,Edad,Ciudad)
datos2$Estrato<-c(1,2,3,2,4,3,6,1,5,6,10,5)
datos2$Nivel_de_estudio<-c("alto","bajo","medio","alto","bajo","medio","alto","bajo","medio","alto","bajo","medio")
print(datos2)## Nombre Edad Ciudad Estrato Nivel_de_estudio
## 1 camilo 20 Neiva 1 alto
## 2 Muara 21 Neiva 2 bajo
## 3 camila 21 Neiva 3 medio
## 4 johan 18 Neiva 2 alto
## 5 elkin 17 Neiva 4 bajo
## 6 alejandro 19 Neiva 3 medio
## 7 yandri 20 Neiva 6 alto
## 8 nicolas 19 Neiva 1 bajo
## 9 dirley 24 Bogotá 5 medio
## 10 william 18 Bogotá 6 alto
## 11 daniela 22 Cali 10 bajo
## 12 steven 20 Medellín 5 medio9. Agregar cuatro filas de datos ficticios
Nombre<-c("camilo","Muara","camila","johan ","elkin","alejandro","yandri","nicolas","dirley","william","daniela","steven")
Edad<-c(20,21,21,18,17,19,20,19,24,18,22,20)
Ciudad = c('Neiva', 'Neiva', 'Neiva', 'Neiva', 'Neiva', 'Neiva', 'Neiva', 'Neiva', 'Bogotá', 'Bogotá', 'Cali', 'Medellín')
datos2<-data.frame(Nombre,Edad,Ciudad)
datos2$Estrato<-c(1,2,3,2,4,3,6,1,5,6,10,5)
datos2$Nivel_de_estudio<-c("alto","bajo","medio","alto","bajo","medio","alto","bajo","medio","alto","bajo","medio")
NP1<-c("Maria",20,"pitalito",3,"alto")
NP2<-c("Carlos",12,"bogota",4,"bajo")
NP3<-c("luis",18,"neiva",5,"medio")
NP4<-c("pedro",21,"cali",10,"medio")
datos2<-rbind(datos2,NP1,NP2,NP3,NP4)
datos2## Nombre Edad Ciudad Estrato Nivel_de_estudio
## 1 camilo 20 Neiva 1 alto
## 2 Muara 21 Neiva 2 bajo
## 3 camila 21 Neiva 3 medio
## 4 johan 18 Neiva 2 alto
## 5 elkin 17 Neiva 4 bajo
## 6 alejandro 19 Neiva 3 medio
## 7 yandri 20 Neiva 6 alto
## 8 nicolas 19 Neiva 1 bajo
## 9 dirley 24 Bogotá 5 medio
## 10 william 18 Bogotá 6 alto
## 11 daniela 22 Cali 10 bajo
## 12 steven 20 Medellín 5 medio
## 13 Maria 20 pitalito 3 alto
## 14 Carlos 12 bogota 4 bajo
## 15 luis 18 neiva 5 medio
## 16 pedro 21 cali 10 medio10. Cargar un excel que contenga los anteriores datos
library(readxl)
trabajonn <- read_excel("trabajonn.xlsx")
View(trabajonn)
print(trabajonn)## # A tibble: 16 × 5
## Nombre Edad Ciudad Estrato `Nivel de estudio`
## <chr> <dbl> <chr> <dbl> <chr>
## 1 camilo 20 Neiva 1 alto
## 2 Muara 21 Neiva 2 bajo
## 3 camila 21 Neiva 3 medio
## 4 johan 18 Neiva 2 alto
## 5 elkin 17 Neiva 4 bajo
## 6 alejandro 19 Neiva 3 medio
## 7 yandri 20 Neiva 6 alto
## 8 nicolas 19 Neiva 1 bajo
## 9 dirley 24 Bogota 5 medio
## 10 william 18 Bogota 6 alto
## 11 daniela 22 Cali 10 bajo
## 12 steven 20 Medellin 5 medio
## 13 maria 20 Pitalito 3 alto
## 14 carlos 12 Bogota 4 bajo
## 15 luis 18 Neiva 5 medio
## 16 pedro 21 Cali 10 medio