R Loops y Graficos

Loops

Usando for, while, repeat

# Ejemplo de loop con for para imprimir los números del 1 al 5
for (i in 1:5) {
  print(i)
}

[1] 1
[1] 2
[1] 3
[1] 4
[1] 5

Este loop “for” imprimirá los números del 1 al 5.

# Ejemplo de loop con while para imprimir los números del 1 al 5
j <- 1
while (j <= 5) {
  print(j)
  j <- j + 1
}

[1] 1
[1] 2
[1] 3
[1] 4
[1] 5

Este loop while también imprimirá los números del 1 al 5, utilizando una condición de control para detenerse cuando j sea mayor que 5.

# Ejemplo de loop con repeat para imprimir los números del 1 al 5
k <- 1
repeat {
  print(k)
  k <- k + 1
  if (k > 5) {
    break  # Rompe el loop cuando k es mayor que 5
  }
}

[1] 1
[1] 2
[1] 3
[1] 4
[1] 5

Este loop repeat imprimirá los números del 1 al 5 y se detendrá cuando k sea mayor que 5 mediante el uso de la declaración break.

Ejercicios 1. Enunciado para Loop con for:

Crea un programa que utilice un loop for para imprimir los primeros 10 números pares. Puedes empezar desde 2 e incrementar de 2 en 2.

2. Enunciado para Loop con while:

Escribe un programa que utilice un loop while para calcular la suma de los primeros 15 números naturales (1 + 2 + 3 + … + 15). Imprime la suma total al final.

3. Enunciado para Loop con repeat:

Desarrolla un programa que utilice un loop repeat para solicitar al usuario que ingrese un número entre 1 y 10. Si el número ingresado es 5, imprime “¡Número correcto!” y sale del loop. Si el número no es 5, imprime “Inténtalo de nuevo” y permite al usuario ingresar otro número.

Graficos

ventas=c(1,3,5,7,9,11,15,10,23)

plot(ventas,type = "o",col="blue")

visitas=c(3,6,10,20,19,15,12,15,18)

plot(ventas,type = "o",col="blue")
lines(visitas, type="o",col="red")

barplot(ventas,border ="blue",main = "comportamiento ventas")

hist(ventas,breaks = 10)

# Cargar el conjunto de datos iris
data(iris)

# Calcular las frecuencias de la variable "Species"
frecuencias <- table(iris$Species)

# Crear el diagrama de pie
pie(frecuencias, main = "Diagrama de Pie - Frecuencias de Species", col = rainbow(length(frecuencias)))

Graficos con ggplot https://r-charts.com/es/ggplot2/

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

# Datos de muestra
x <- droplevels(iris$Species)
y <- iris$Petal.Length
df <- data.frame(x = x, y = y)

# Gráfico
p <- ggplot(df, aes(x = x, y = y)) + 
      stat_boxplot(geom = "errorbar",
                   width = 0.25) +
      geom_boxplot(fill = "dodgerblue1",
                   colour = "black",
                   alpha = 0.5,
                   outlier.colour = "tomato2")
p

install.packages("rlang")
install.packages("ggplot2")

#
library(ggplot2)
library(rlang)
ggplot(df, aes(x = iris$Sepal.Length, 
               y = iris$Sepal.Width, 
               color = iris$Species)) +
  geom_point() +
  stat_ellipse()+
  labs(x = "Longitud del Sépalo",
       y = "Ancho del Sépalo",
       title = "Scatterplot con elipse para datos de iris")