在R中编写一个函数，该函数根据字母的第一个实例选择字符串并替换该字符串

# 定义函数
replace_first_instance <- function(string, replace_with) {
  # 找到第一个实例的位置
  first_instance <- regexpr("[A-Za-z]", string)
  
  # 如果找到了字母实例
  if (first_instance != -1) {
    # 替换字符串
    new_string <- substring(string, first_instance)
    new_string <- gsub("[A-Za-z]", replace_with, new_string, fixed = TRUE)
    
    # 返回替换后的字符串
    return(paste0(substr(string, 1, first_instance - 1), new_string))
  }
  
  # 如果没有找到字母实例，则返回原始字符串
  return(string)
}

# 测试函数
string <- "123abc456"
replace_with <- "X"
new_string <- replace_first_instance(string, replace_with)
print(new_string)