Creación de un vector
vector <- c(1, 2, 3, 4, 5)
print(vector)
## [1] 1 2 3 4 5
Creación de un objeto
Objeto <- 5
print(Objeto)
## [1] 5
Creación de un dataframe
dataframe <- data.frame(
Nombre = c("Carlos", "Andrés", "Felipe"),
Edad = c(25, 30, 35),
Ciudad = c("Neiva", "Cali", "Florencia")
)
print(dataframe)
## Nombre Edad Ciudad
## 1 Carlos 25 Neiva
## 2 Andrés 30 Cali
## 3 Felipe 35 Florencia
Operaciones con vectores
a <- c(2, 4, 6, 8, 10, 12)
print(a)
## [1] 2 4 6 8 10 12
suma_a <- sum(a)
print(suma_a)
## [1] 42
producto_a <- prod(a)
print(producto_a)
## [1] 46080
b <- c(1, 3, 5, 7, 9)
resta_ab <- a - b
## Warning in a - b: longitud de objeto mayor no es múltiplo de la longitud de uno
## menor
print(resta_ab)
## [1] 1 1 1 1 1 11
Operaciones con dos vectores
x <- c(2, 4, 6, 8)
y <- c(1, 3, 5, 7)
suma_vectores <- x + y
print(suma_vectores)
## [1] 3 7 11 15
producto_vectores <- x * y
print(producto_vectores)
## [1] 2 12 30 56
potenciacion <- x ^ y
print(potenciacion)
## [1] 2 64 7776 2097152
radicacion <- x ^ (1 / y)
print(radicacion)
## [1] 2.000000 1.587401 1.430969 1.345900
Comparaciones
a <- 10
b <- 10
comparacion_igual <- a == b
print(comparacion_igual)
## [1] TRUE
c <- 15
d <- 20
comparacion_diferente <- c == d
print(comparacion_diferente)
## [1] FALSE
Creación y manipulación de dataframe
df2 <- data.frame(
Nombre = c("Ana", "Carlos", "Luisa", "Juan", "María", "Pedro", "Sofía", "Diego", "Valeria", "Javier", "Laura", "Fernando"),
Edad = c(25, 30, 22, 28, 35, 40, 27, 32, 29, 31, 26, 38),
Ciudad = rep("Neiva", 12)
)
print(df2)
## Nombre Edad Ciudad
## 1 Ana 25 Neiva
## 2 Carlos 30 Neiva
## 3 Luisa 22 Neiva
## 4 Juan 28 Neiva
## 5 María 35 Neiva
## 6 Pedro 40 Neiva
## 7 Sofía 27 Neiva
## 8 Diego 32 Neiva
## 9 Valeria 29 Neiva
## 10 Javier 31 Neiva
## 11 Laura 26 Neiva
## 12 Fernando 38 Neiva
conteo_ciudades <- table(df2$Ciudad)
print(conteo_ciudades)
##
## Neiva
## 12
df2$Estrato <- sample(1:6, 12, replace = TRUE)
df2$Nivel_Estudios <- sample(c("Primaria", "Secundaria", "Universitario", "Posgrado"), 12, replace = TRUE)
print(df2)
## Nombre Edad Ciudad Estrato Nivel_Estudios
## 1 Ana 25 Neiva 3 Posgrado
## 2 Carlos 30 Neiva 4 Posgrado
## 3 Luisa 22 Neiva 6 Universitario
## 4 Juan 28 Neiva 6 Universitario
## 5 María 35 Neiva 1 Secundaria
## 6 Pedro 40 Neiva 3 Secundaria
## 7 Sofía 27 Neiva 4 Posgrado
## 8 Diego 32 Neiva 5 Primaria
## 9 Valeria 29 Neiva 3 Secundaria
## 10 Javier 31 Neiva 4 Posgrado
## 11 Laura 26 Neiva 5 Universitario
## 12 Fernando 38 Neiva 5 Primaria
nuevas_filas <- data.frame(
Nombre = c("Andrés", "Camila", "Esteban", "Daniela"),
Edad = c(24, 29, 33, 21),
Ciudad = c("Neiva", "Bogotá", "Cali", "Medellín"),
Estrato = c(3, 4, 2, 5),
Nivel_Estudios = c("Universitario", "Posgrado", "Secundaria", "Primaria")
)
df2 <- rbind(df2, nuevas_filas)
print(df2)
## Nombre Edad Ciudad Estrato Nivel_Estudios
## 1 Ana 25 Neiva 3 Posgrado
## 2 Carlos 30 Neiva 4 Posgrado
## 3 Luisa 22 Neiva 6 Universitario
## 4 Juan 28 Neiva 6 Universitario
## 5 María 35 Neiva 1 Secundaria
## 6 Pedro 40 Neiva 3 Secundaria
## 7 Sofía 27 Neiva 4 Posgrado
## 8 Diego 32 Neiva 5 Primaria
## 9 Valeria 29 Neiva 3 Secundaria
## 10 Javier 31 Neiva 4 Posgrado
## 11 Laura 26 Neiva 5 Universitario
## 12 Fernando 38 Neiva 5 Primaria
## 13 Andrés 24 Neiva 3 Universitario
## 14 Camila 29 Bogotá 4 Posgrado
## 15 Esteban 33 Cali 2 Secundaria
## 16 Daniela 21 Medellín 5 Primaria