COMPARTE ESTE ARTÍCULO

1) Máximo y mínimo de un vector

Enunciado: dado un vector numérico, muestra su valor máximo y mínimo.

Código:

v <- c(10, 3, 25, -4, 7, 7, 18)
cat("Máximo:", max(v), "\n")
cat("Mínimo:", min(v), "\n")

2) Media, mediana y desviación estándar

Enunciado: calcula media, mediana y desviación estándar de un vector.

Código:

v <- c(5, 8, 9, 10, 12, 13, 13)
cat("Media:", mean(v), "\n")
cat("Mediana:", median(v), "\n")
cat("Desviación estándar:", sd(v), "\n")

3) Contar ocurrencias de cada valor

Enunciado: cuenta cuántas veces aparece cada valor en un vector.

Código:

v <- c("rojo","azul","rojo","verde","azul","rojo")
tabla <- table(v)
print(tabla)

4) Filtrar valores por condición

Enunciado: de un vector numérico, quédate solo con los mayores que 10.

Código:

v <- c(4, 12, 7, 15, 22, 9)
mayores_10 <- v[v > 10]
print(mayores_10)

5) Generar una secuencia y sumar elementos

Enunciado: genera una secuencia del 1 al 50 y calcula su suma total.

Código:

s <- 1:50
cat("Suma:", sum(s), "\n")

6) Función propia: factorial simple

Enunciado: escribe una función que calcule el factorial de un número entero n.

Código:

factorial_simple <- function(n) {
  if (n < 0) stop("n debe ser no negativo")
  if (n == 0) return(1)
  prod(1:n)
}

cat("Factorial de 6:", factorial_simple(6), "\n")

7) Números pares en un rango

Enunciado: dado un número n, genera los pares entre 1 y n.

Código:

n <- 20
pares <- seq(2, n, by = 2)
print(pares)

8) Reemplazar valores NA por la media

Enunciado: en un vector con NA, reemplázalos por la media de los valores existentes.

Código:

v <- c(1, NA, 3, 4, NA, 10)
media <- mean(v, na.rm = TRUE)
v[is.na(v)] <- media
print(v)

9) Crear un data frame básico y filtrarlo

Enunciado: crea un data frame con nombre y edad, y quédate con los mayores o iguales a 18.

Código:

df <- data.frame(
  nombre = c("Ana","Luis","Eva","Juan"),
  edad   = c(17, 21, 19, 15)
)

mayores <- df[df$edad >= 18, ]
print(mayores)

10) Añadir una columna calculada

Enunciado: dado un data frame de productos y precios, añade una columna con el precio con IVA (21%).

Código:

productos <- data.frame(
  producto = c("Teclado","Ratón","Monitor"),
  precio   = c(20, 15, 150)
)

productos$precio_iva <- productos$precio * 1.21
print(productos)

11) Leer un CSV y obtener resumen

Enunciado: lee un archivo CSV y muestra head() y summary().

Código: (usa un archivo local “datos.csv”)

datos <- read.csv("datos.csv", stringsAsFactors = FALSE)
head(datos)
summary(datos)

12) Ordenar un data frame por una columna

Enunciado: ordena un data frame por la columna edad de menor a mayor.

Código:

df <- data.frame(
  nombre = c("Ana","Luis","Eva","Juan"),
  edad   = c(23, 35, 20, 29)
)

ordenado <- df[order(df$edad), ]
print(ordenado)

13) Agrupar y resumir con dplyr

Enunciado: usando dplyr, agrupa por categoría y calcula el precio medio.

Código:

# install.packages("dplyr")
library(dplyr)

ventas <- data.frame(
  categoria = c("A","A","B","B","B","C"),
  precio    = c(10, 12, 8, 9, 7, 30)
)

resumen <- ventas %>%
  group_by(categoria) %>%
  summarise(precio_medio = mean(precio), .groups = "drop")

print(resumen)

14) Gráfico simple con base R

Enunciado: dibuja un gráfico de dispersión de Sepal.Length vs Sepal.Width con el conjunto iris.

Código:

plot(iris$Sepal.Length, iris$Sepal.Width,
     xlab = "Sepal Length", ylab = "Sepal Width",
     main = "Dispersión de medidas en iris")

15) Guardar un gráfico en archivo PNG

Enunciado: genera el mismo gráfico y guárdalo como grafico.png.

Código:

png("grafico.png", width = 800, height = 600)
plot(iris$Sepal.Length, iris$Sepal.Width,
     xlab = "Sepal Length", ylab = "Sepal Width",
     main = "Dispersión de medidas en iris")
dev.off()
cat("Gráfico guardado en grafico.png\n")

    
 
 
         
   Maria Del Carmen Hernandez Herrera 
 
 
 
  Contacte con Alejandro por recomendación de una compañera de trabajo a la cuál ayudó mucho en la preparación de unos exámenes muy complicados . La física y química para mi hija en este curso estaba siendo muy complicada, tanto es así ,que suspendió la primera evaluación y ella no había suspendido nunca, desde que acude a sus clases hay un antes y un después ...... Alejandro con su manera de explicar ha conseguido que las entienda , que pueda desarrollar los problemas que tenga confianza en sí misma....tanto es así que ha aprobado todos los exámenes....Paula está súper contenta y yo más!!!! Siempre que tengo alguna duda o que necesito modificar un horario responden super pronto y buscan solución motivo por el cuál recomiendo al 100% está academia. Muchas gracias por su ayuda.
  
 
        
   Arianna Del Campo Martín 
 
 
 
  Yo soy estudiante universitaria, muy finalista y que llegó a la academia con prácticamente cero base… Finalmente aprobé mi examen! Aquí de una manera diferente a lo que convencionalmente se espera de los profes, me enseñaron, muy cercanamente lo que me proporcionó confianza para no callarme las dudas y preguntar todo el tiempo. Me sorprendió que el profe que me dio clases en particular era como una enciclopedia andante, sin necesidad de mirar los libros me decía fórmulas de memoria que son difíciles de entender hasta con ellas delante. Recomiendo 100%
  
 
        
   Ariana García Esquivel 
 
 
 
  No he dudado ni por un segundo que haber asistido a las clases con Alejandro es lo mejor que me ha pasado… No solamente te apoya académicamente, sino que apoya al alumno a pesar de sus dificultades, y a mí me ha estado ayudando muchísimo y en mis peores momentos. Mil gracias por tus consejos, por siempre darme ánimos, por ser tan simpático que alegras las clases aburridas y por ser un profe tan bueno, son de estas personas que nunca olvidas.❤️👏🏻 También he de decir que Raúl, el otro profesor que se encuentra en la academia…es una persona que se preocupa por el alumno a que haga las cosas bien, con tranquilidad, está siempre pendiente a ti, tiene mucha paciencia, dedica a dar sus clases lo más dinámico posible, tiene mucha amabilidad con las personas, en definitiva… tengo a los dos mejores profesores del mundo, se os quiere mucho💓✨.
  
 
        
   Another Weasley. 
 
 
 
  He tenido muchos profes, y muchos particulares, pero como Alejandro ninguno, de verdad, me hace pensar que de verdad no soy tan mala en lo mío 🥺 me apoya muchísimo y me ayuda en todo lo que pueda con mi carrera, es un profesor 10 y una persona sobretodo 10000 Gracias Ale por preocuparte por tus alumnos, por intentar que estén motivados, que las clases sean entretenidas, y lo bien y fácil que explicas !  Para mi, LOS MEJORES 💖 -alba
  
 
        
   yarel febles 
 
 
 
  He entrado a la carrera de enfermería gracias a Alejandro, sin duda estoy súper contento con mi paso por aquí :)
  
 
        
   Ana Carina Benta 
 
 
 
  Gracias por el ambiente familiar Gracias por la paciencia Gracias por la enseñanza Gracias por el apoyo Gracias por la Motivación!! Simplesmente Gracias!! Recomendable 1000%
  
 
        
   Yanet Palacio valdes 
 
 
 
  Desde hace un tiempo mi hijo asiste a la academia, pensabamos no sacaba la eso y hoy con orgullo se gradúa de 4to de la eso,muy agradecida por los profesores,sobre todo su profe Alejando persona entrañable,justo, para el todo nuestro agradecimiento..⭐⭐⭐👌👌
  
 
        
   Mabett Duque 
 
 
 
  ¡De lo bueno lo mejor, y de lo mejor lo superior!
  
 
  
 
  
 
   La evaluación general en Google es 4.4 de 5, en base a 27 reseñas

Photo by Pavel Danilyuk on Pexels.com
Photo by RealToughCandy.com on Pexels.com
Photo by Andrea Piacquadio on Pexels.com

¿QUÉ TE HA PARECIDO EL ARTÍCULO? Danos tu opinión al final de la página.
Deja tu comentario y ayúdanos a crecer.

¡SÍGUENOS EN TUS REDES FAVORITAS!
AYUDANOS A CRECER Y QUE LLEGUEMOS A TODAS LAS PERSONAS QUE NOS NECESITANA. SÍGUENOS EN TUS REDES.
Entra AQUÍ y elíge donde seguirnos.