r - 采样后拆分数据

Question

data(kyphosis)
ky<- kyphosis

据此，我制作了一个由原始数据的 40% 组成的数据集。

ky_40 <- ky[sample(1:nrow(ky), nrow(ky)*0.4,replace=FALSE),] 

通过这条语句，我想制作一个数据集，其中包含原始数据的 60%，不包括

ky_40.
ky_the_others<- ???????  

如何制作最后的代码？

Answer 1

只需将采样移出您的提取，以便您可以再次引用它:

ky <- mtcars

## Here, I've moved the sampling out of your extraction
forty <- sample(1:nrow(ky), nrow(ky)*0.4,replace=FALSE)

## Now you can extract whatever you want
ky[ forty, ]    # This will be the 40% of original dataset
ky[-forty, ]    # This will be the remaining rows.