添加列时重复数据框 n 次

Question

这是我的可重现代码:

df <- data.frame(x = c(1, 2), y = c(3, 4))

df1 <- df %>% mutate(z = 1)
df2 <- df %>% mutate(z = 2)
df3 <- df %>% mutate(z = 3)

df <- rbind(df1, df2, df3)

df

我将原始数据框 df 重复 3 次，同时添加一列，其中列中的数字表示重复。在我的用例中，我必须这样做 3 次以上。我可以使用循环，但有更简洁的方法吗？我想我不能使用 expand.grid。

Answer 1

您也可以使用 merge 来完成:

dfz <- data.frame(z = 1:3)

merge(df, dfz)

#   x y z
# 1 1 3 1
# 2 2 4 1
# 3 1 3 2
# 4 2 4 2
# 5 1 3 3
# 6 2 4 3