计算字符串的第一个字母并显示它出现的次数，但不是按字母顺序排列在R中

count_first_letter <- function(string) {
  # 将字符串转换为小写字母
  string <- tolower(string)
  
  # 获取第一个字母
  first_letter <- substr(string, 1, 1)
  
  # 统计第一个字母出现的次数
  count <- sum(string == first_letter)
  
  # 返回结果
  return(count)
}

string <- "Hello World"
result <- count_first_letter(string)
print(result)