R语言 提取数据中的任意子集

# 生成数据
data <- data.frame(name = c('bob', 'tomas', 'jack'),
                   year = c(17, 18, 19),
                   score1 = c(78, 85, 90),
                   score2 = c(88, 89, 97))
# 方法一：在不知道是哪几列的情况下                   
#  想要提取的变量                   
a <- c('name', 'score1', 'score2')
# 利用逻辑变量开始提取
myvars <- names(data) %in% a
newdata <- data[a]

# 方法二：在知道是第一列，第三列和第四列的情况下：
newdata <- data[, c(1,3,4)]