Dibujo de patrón en R

Todos encontraron una manera fácil de imprimir patrones en otros lenguajes de programación. Pero es una tarea difícil usar el lenguaje R. Este artículo se enfoca en dibujar varios patrones utilizando el lenguaje R y sus construcciones.

Acercarse

• Iniciar el primer bucle por número de líneas
• Inicie el segundo bucle para que se muestre el elemento
• Imprimir artículo
• Incrementa el segundo bucle hasta que se alcanza una condición
• Incrementar el primer bucle hasta que la condición sea verdadera
• Continuar de esta manera

Programa 1: Dibujar un Triángulo con números

stars = c()
  
for(i in 1:5){
  for(j in 1:i+1){
     stars = c(stars, i)
  }
    
  print(stars)
  stars = c()
}

Producción:

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

Programa 2: Dibujar un triángulo con *

#creating a empty list to store
stars = c()
  
for(i in 1:5){
   for(j in 1:i+1){
      stars = c(stars, "*")
   }
  # line by line printing
  print(stars)
  stars = c()
}

Producción:

[1] "*"
[1] "*" "*"
[1] "*" "*" "*"
[1] "*" "*" "*" "*"
[1] "*" "*" "*" "*" "*"

Programa 3: Dibujar triángulo invertido

starsrev = c()
i=1
j=5
  
while(i<=5){
  for(j in 1:j){
     starsrev = c(starsrev, "*")
   }
    
  print(starsrev)
    
  starsrev = c()
  
  i=i+1
  j=j-1
}

Producción:

[1] "*" "*" "*" "*" "*"
[1] "*" "*" "*" "*"
[1] "*" "*" "*"
[1] "*" "*"
[1] "*"

Programa 4: Dibujar un patrón de triángulo normal e invertido

i=1
stars = c()
  
while(i<=5){
  for(j in 1:i+1){
     stars = c(stars, "*")
  }
  
  print(stars)
  stars = c()
  i=i+1
}
  
starsrev = c()
i=1
j=5
  
while(i<=5){
  for(j in 1:j){
    starsrev = c(starsrev, "*")
  }
    
  print(starsrev)
  starsrev = c()
  i=i+1
  j=j-1
}

Producción:

[1] "*"
[1] "*" "*"
[1] "*" "*" "*"
[1] "*" "*" "*" "*"
[1] "*" "*" "*" "*" "*"
[1] "*" "*" "*" "*" "*"
[1] "*" "*" "*" "*"
[1] "*" "*" "*"
[1] "*" "*"
[1] "*"