拆分一个数据帧动态

Question

我想有一个函数来拆分数据帧是这样的：

q1 q2 q3 q4 
1 4 0 33 
8 5 33 44 
na na na na 
na na na na 
3 33 2 66 
4 2 3 88 
6 44 5 99 

我们将得到2个dataframes：

d1 
q1 q2 q3 q4 
1 4 0 33 
8 5 33 44 

和

d2 
3 33 2  66 
4 2 3  88 
6 44 5  99 

的ob1中的d1和d2不是固定的。这意味着我们不知道数据框中的obs以及有多少obs是NAs。

Answer 1

假设DF是数据帧。由于没有明确说明分割标准是什么，我们假设任何一行所有的NA都是一个分行。如果其他一些标准适当地更改第一行：

isNA <- apply(is.na(DF), 1, all) 
split(DF[ !isNA, ], cumsum(isNA)[ !isNA ]) 

Answer 2

首先，读入您的数据，以便将“na”转换为实际的NA值。

mydf <- read.table(
    header = TRUE, 
    na.strings="na", 
    text = "q1 q2 q3 q4 
      1 4 0 33 
      8 5 33 44 
      na na na na 
      3 33 2 66 
      4 2 3 88 
      6 44 5 99") 

其次，弄清楚哪里拆分您data.frame：

# Find the rows where *all* the values are `NA` 
RLE <- rle(rowSums(is.na(mydf)) == ncol(mydf))$lengths 
# Use that to create "groups" of rows 
RLE2 <- rep(seq_along(RLE), RLE) 
# Replace even numbered rows with NA -- we don't want them 
RLE2[RLE2 %% 2 == 0] <- NA 

第三，分裂您data.frame

split(mydf, RLE2) 
# $`1` 
# q1 q2 q3 q4 
# 1 1 4 0 33 
# 2 8 5 33 44 
# 
# $`3` 
# q1 q2 q3 q4 
# 4 3 33 2 66 
# 5 4 2 3 88 
# 6 6 44 5 99 

然而，这一切有些猜测，因为你的声明说：“这意味着我们不知道数据框中的obs以及NAs有多少obs“不是很清楚。在这里，我假设您想要在遇到整行NA值时分割数据。