0

我有一个data.frame每人不同数量的行。如果一个人的行数少于 4 行，我想给他们 4 行。我希望额外的行是每人最后一行的复制品，例如下面的汤姆。

我知道如何使用此代码重复行：

dff <- df[rep(1:nrow(df), each=4), ]

但这里的问题是，我没有理由只为出现少于 4 次的 ID 复制行。

我试过这个：

dff <- ifelse(length(df$noms < 4), 
              df[rep(1:nrow(df), each=4), ], df) ##doesn't work

我想我可以使用do.call(rbind, ...)，但同样，我无法将我的论点整合到代码中。

这是我尝试过的东西：

df <- ifelse(length(df$noms<4), 
             do.call(rbind, by(df, df$noms, rbind, 1:nrow(df))), 
             df) ## doesn't work

而且我还没有设法包含关于要重复多少次的论点。

   noms fruits apple orange kiwi all_comb comb
1  mary  apple     1      0    0        1    1
2  mary  grape     0      0    0        0    1
3  mary orange     0      1    0        0    1
4  mary  apple     1      0    0        1    1
5  john banana     0      0    0        0    1
6  john  apple     1      0    0        1    1
7  john  apple     1      0    0        1    1
8  john  apple     1      0    0        1    1
9  lucy   kiwi     0      0    1        0    1
10 lucy orange     0      1    0        0    1
11 lucy  apple     1      0    0        1    1
12 lucy  berry     0      0    0        0    1
13  tom orange     0      1    0        0    1

期望的输出

   noms fruits apple orange kiwi all_comb comb
1  mary  apple     1      0    0        1    1
2  mary  grape     0      0    0        0    1
3  mary orange     0      1    0        0    1
4  mary  apple     1      0    0        1    1
5  john banana     0      0    0        0    1
6  john  apple     1      0    0        1    1
7  john  apple     1      0    0        1    1
8  john  apple     1      0    0        1    1
9  lucy   kiwi     0      0    1        0    1
10 lucy orange     0      1    0        0    1
11 lucy  apple     1      0    0        1    1
12 lucy  berry     0      0    0        0    1
13  tom orange     0      1    0        0    1
14  tom orange     0      1    0        0    1
15  tom orange     0      1    0        0    1
16  tom orange     0      1    0        0    1

以下是一些可重现的数据：

noms <- as.character(c('mary', 'mary','mary','mary','john','john','john',
                       'john','lucy','lucy','lucy','lucy', 'tom'))
fruits <- as.character(c('apple','grape','orange','apple','banana',
                         'apple','apple','apple','kiwi','orange',
                         'apple','berry', 'orange'))
df <- data.frame(noms,fruits)
4

2 回答 2

1

你在正确的轨道上ifelse。尝试以下操作：

noms <- as.character(c('mary', 'mary','mary','mary','john','john','john',
                       'john','lucy','lucy','lucy','lucy', 'tom'))
fruits <- as.character(c('apple','grape','orange','apple','banana',
                         'apple','apple','apple','kiwi','orange',
                         'apple','berry', 'orange'))
df <- data.frame(noms,fruits)

x <- with(df, ave(rep(1, nrow(df)), noms, FUN = length))
df[rep(rownames(df), ifelse(x >= 4, 1, 4)), ]
#      noms fruits
# 1    mary  apple
# 2    mary  grape
# 3    mary orange
# 4    mary  apple
# 5    john banana
# 6    john  apple
# 7    john  apple
# 8    john  apple
# 9    lucy   kiwi
# 10   lucy orange
# 11   lucy  apple
# 12   lucy  berry
# 13    tom orange
# 13.1  tom orange
# 13.2  tom orange
# 13.3  tom orange
于 2014-05-05T13:25:06.077 回答
0

使用上一个问题的代码；ddply 将行拆分并添加到每个组

这是答案

首先，在 df 中创建一个名为 numbers 的变量

df$numbers<-ave(df$noms,df$noms, FUN=seq_along)

然后操作前面答案中给出的代码：

AddRows <- function(df) {
  new_numbers <- seq(from = min(df$numbers), to = 4)
  new_numbers <- new_numbers[new_numbers != 0]    ##probably don't need this line
  noms <- rep(unique(df$noms), length(new_numbers))

  return(data.frame(df, new_numbers))
}

ddply(df, .(noms), AddRows)
于 2014-05-05T13:18:18.097 回答