teens <- read.csv("C:/Users/ASUS/Desktop/snsdata.csv")str(teens)interests <- teens[5:40]sapply(teens[5:40],max)文件请联系我 ,麻烦您了,谢谢