> df <- data.frame(x=1:5, y=6:10, z=11:15, a=16:20) > df <- subset (df, select = -c(x:z)) > df a 1 16 2 17 3 18 4 19 5 20