Fill in a sequence of letters based on a given order

[jauntyjjs]

Hi,

Apologies for this naïve questions

I have the following vector

group_name <- c("red", "green", "blue")

Is there a way to generate a cyclic sequence of this string based on the output length ?
Using function char_seq as example

char_seq (group_name, length = 2) 
#gives
c("red", "green")

char_seq (group_name, length = 5)
#gives
c("red", "green", "blue", "red", "green")

[GreyMerchant]

Hi Welcome to the forum. We can write a relatively simple function to achieve this. See my example below

group_name <- c("red", "green", "blue")

char_seq <- function(x,group_name) {
  
  #whole integer division
  i <- x %/% length(group_name)
  
  #remainder
  r <- x %% length(group_name)
  
  if(r > 0){t <- i + 1} else {t <- i}
  
  set <- rep(group_name,t)
  
  output <- set[1:x]
  
  return(output)
  
}


char_seq(15,group_name)
#>  [1] "red"   "green" "blue"  "red"   "green" "blue"  "red"   "green" "blue" 
#> [10] "red"   "green" "blue"  "red"   "green" "blue"

Created on 2020-11-23 by the reprex package (v0.3.0)

[jauntyjjs]

Thank you for the help.