提取R中的一些列

我有以下示例数据框：

x<-c(1:4)
y<-c(9:12)
z<-c("a","b","c","d")
data<-data.frame(x,y,z) # as data: 

      x  y z
    1 1  9 a
    2 2 10 b
    3 3 11 c
    4 4 12 d

---

我想知道为什么R不接受我的论点，也就是这里的。我有点不安，为什么R将参数

col

解释为列的名称。非常感谢你在这方面提出的宝贵建议

这部分：

kk很高兴它起作用了。你介意把这个作为最好的答案吗？谢谢，当然！你能告诉我怎么做吗？复选标记就在我答案左边“2”的正下方。
data_frame<-function(col){
cols<-c("y","z")
# column x is already there; it is not in a vector of col.
if (col %in% cols){
kk<-data[,c("x","col")] 
return (kk)}
}

data_frame("y")
Error in `[.data.frame`(data, , c("x", "col")) : 
  undefined columns selected.