Question

我对data.frame进行了排序，其中一列每21行重复一次。这是V

中的df列

df就像这样;

set.seed(1)
No <- rep(seq(0,95,1),times=21)
AC <- rep(rep(c(78,110),each=1),times=length(No)/2)
AR <- rep(rep(c(256,320,384),each=2),times=length(No)/6)
AM <- rep(1,times=length(No))
DQ <- rep(rep(seq(0,15,1),each=6),times=3)
V <- rep(seq(100,2100,100),each=96)
R <- sort(replicate(3, sample(5000:6000,96)))

df <- data.frame (No,AC,AR,AM,DQ,V,R)

要整理我使用dplyr包

的数据

library(dplyr)
df_1 <- df %>% group_by(AR,AC) %>% arrange(No)

要根据V列更改拆分数据，我使用基函数;

split <- split(df_1,rep(1:96,each=21))

问题是我可以使用dplyr或tidyr执行此操作吗？分裂后如何分离奇数和偶数数据？

Answer 1

根据讨论情况，您可以立即使用filter，而且首先不需要arrange：

even <- df %>% filter(No %% 2 == 0)
odd  <- df %>% filter(No %% 2 == 1)

如何将数据框拆分为固定大小的行并使用dplyr将它们分开

1 个答案: