many_words <- c("apple", "banana", "Pig", "string") 
substr(many_words, 1, 1) <- toupper(substr(many_words, 1, 1))
many_words