[R从向量保留顺序，将其应用到另一个向量

Question

这与上一个问题：

Basic R, how to populate a vector with results from a function

但我想我会发布一个新的，因为我有一个额外的要求。拿这个R代码。

X <- matrix(stats::rnorm(100), ncol = 2) 
hpts <- chull(X) 
Y <- ifelse(X[,1] %in% X[hpts], 1, 0) 
c(X,Y) 
Z <- matrix(0,ncol = 1,nrow =50) 

我想添加一个额外的向量Z保留hpts的顺序。所以，如果T（T（HPTS））看起来是这样的：

[1,] 48 
[2,] 27 
[3,] 15 
[4,] 13 
[5,] 39 
[6,] 2 
[7,] 5 
[8,] 50 

那么我想第48列Z到有1，第27行有2个，第15行，从而具有3 etc.etc。我试图用for循环:: for（我在Y）{...}做到这一点，但我没有成功。任何指针将不胜感激。

Answer 1

这应做到：

Z[c(hpts),1] <- seq_along(hpts)