样本R索引数据框与偶然样本

Question

我在R中使用样本功能。我不知道为什么该选项没有相同的结果。

 set.seed(123)
s1<-s[sample(1:nrow(s),500,replace = FALSE),]

vs

set.seed(123)
s$r<-sample(1:nrow(s),nrows(s),replace=FALSE)
s$select<-ifelse(s$r<=500,1,0)
s2<-s[s$select==1,]

有人可以帮助吗？

谢谢！