insert character into string

# Original string
original_string <- "Hello World!"

# Character to insert
character_to_insert <- " Beautiful"

# Position to insert the character
position <- 6

# Insert the character into the string
modified_string <- paste0(substr(original_string, 1, position - 1),
                           character_to_insert,
                           substr(original_string, position, nchar(original_string)))

# View the modified string
modified_string