在r中将一个数据帧的内容传递给另一个数据帧

Question

我正在学习R，以便在我的大学写论文。

在我的项目中，我有一个包含2列和6001行的数据框。在我的第一列中，我的数字从10000,9999,9998到4000，在第二列中我有数字元素。在我看来，我想做一些非常简单的事情。我想创建一个第二个数据框，其大小只有原始数据框的一半，它包含第一列的偶数和第二列的数字。

我尝试了一些没有按计划进行的脚本。我的第一个剧本是：ifelse(tkk[1] %% 2 == 0, tkal<-tkk, 0)。然后我尝试了这个： tkal <-case_when((tkk[1]%%2 ==0)~ tkk)。但是我的两个脚本都没有运行或没有我想要的结果。

你们有没有解决方案或更好的想法，所以我可以解决这个简单的任务？

先感谢您

Answer 1

试试tkk2 <- dplyr::filter(tkk, first_column %% 2 == 0)

请注意，第二列不需要任何条件，因为R假定data.frame中列的唯一类型。

Answer 2

如果tkk是您的数据帧，您可以执行以下操作

tkk[tkk[,1]%%2==0,]

这将返回第一列具有偶数值的数据框的所有列。

我使用的代码：

tkk=data.frame(1:20,rep(1,20))
tkk[tkk[,1]%%2==0,]
#2      2          1
#4      4          1
#6      6          1
#8      8          1
#10    10          1
#12    12          1
#14    14          1
#16    16          1
#18    18          1
#20    20          1

Answer 3

您正在寻找子集。如果您有NA值，我建议使用which()。

tkal <- tkk[which(tkk[[1]] %% 2 ==0),]