R语言sample函数

Question

remi是一个数据集，练习sample函数的时候发现单独使用可以显示抽样结果，放到数据集里面抽样出来的数据全是NA，是哪里出问题了吗？

Answer 1

以下回答参考 皆我百晓生、券券喵儿 等免费微信小程序相关内容作答，并由本人整理回复。

在你的例子中，你似乎遇到了一个误解。sample()函数本身并不返回任何值，它只是随机选择一组元素。当你尝试将结果放入一个变量时（例如remi[sample(remisn1,2,replace=F)]），实际上是试图对一个空的向量进行赋值。

在你的例子中，首先调用sample()函数来生成样本，然后将其赋值给remi，这导致了remi实际上包含的是NA。这是因为你没有为remi分配空间来存储这些样本。

正确的做法应该是：

# 创建一个名为remi的数据集
remi <- data.frame(id = c("A", "B", "C"), type = c("A", "B", "C"),
                   N = c(30, 40, 50),
                   treat = c("Treat A", "Treat B", "Treat C"),
                   n1 = c(10, 15, 20),
                   n2 = c(12, 18, 24),
                   event = c(1, 2, 3))

# 使用sample()函数抽样
sample_result <- sample(remi, 2, replace = FALSE)

# 将抽样结果赋值回remi
remi$event[sample_result] <- sample_result

# 打印原始数据和抽取的结果
print(remi)

这段代码会创建一个名为remi的数据集，并通过sample()函数抽取两个元素。然后，它将这两个元素分别赋值回remi中的event列。最后打印出原始数据和抽取的结果。