根据列号向量子集一行中的一个元素，并按行号在输出中获取正确的顺序

Question

按照以下链接中显示的示例： Subset one element of a row based on vector of column number

我试图根据带有列名的向量提取给定行的元素。问题是，当我使用以下代码时

data <- cbind(c(1,2,3),c(1,11,21))
selectcol <- c(2,1,1)
data[col(data) == selectcol]

我得到了

[1] 2 3 1

而不是

[1] 1 2 3 

这是从第一行开始的输出。有没有办法以与提取元素的行相同的“顺序”获取输出？提前致谢！