R语言中当数据只有一列时，提取数据，增加drop = FALSE保证提取后的数据仍然为数据框

001、

dat <- data.frame(a = c(666, 333, 555, 777))       ## 测试数据框， 只有一列

dat
x <- dat[c(3,1),]                                  ## 提取第3行和第1行
x
class(x)                                           ## 提取数据后， 数据变为数值型

002、增加drop = FALSE参数， 保证提取的数据仍然为数据框

dat <- data.frame(a = c(666, 333, 555, 777))

dat
x <- dat[c(3,1),,drop = FALSE]                    ## 增加参数drop = FALSE参数
x
class(x)                                          ## 数据仍然为数据框