apply() function to only certain columns

Question

I have a data frame that looks like the following (with reproducible code):

# create the table
> name <- c("Mary", "John", "Peter&q