0

您好我正在尝试复制一个数据框，然后根据复制数更改我的一个名为“i”的列进行迭代。

例如，我的起始数据框是：

dataframex <- data.frame(i = c(1, 1, 1),
                         x = c(1, 3, 5),
                         y = c(2, 4, 6))
dataframex 
#   i x y
# 1 1 1 2
# 2 1 3 4
# 3 1 5 6

我使用了命令代码

dataframex[rep(1:nrow(dataframex), times=3), ]
#     i x y
# 1   1 1 2
# 2   1 3 4
# 3   1 5 6
# 1.1 1 1 2
# 2.1 1 3 4
# 3.1 1 5 6
# 1.2 1 1 2
# 2.2 1 3 4
# 3.2 1 5 6

但我真正想要的是：

#     i x y
# 1   1 1 2
# 2   1 3 4
# 3   1 5 6
# 1.1 2 1 2
# 2.1 2 3 4
# 3.1 2 5 6
# 1.2 3 1 2
# 2.2 3 3 4
# 3.2 3 5 6

即迭代列表示我拥有的复制数据集的数量。然后我想使用迭代列将此数据框与另一个合并。

Ps 抱歉，这是我第一次使用 stackoverflow，我不知道如何制作表格，所以我希望你能理解我的临时列分隔符。

4

2 回答 2

1

设置数据：

test <- read.table(textConnection("i x y
1 1 2
1 3 4
1 5 6"),header=TRUE)

> test
  i x y
1 1 1 2
2 1 3 4
3 1 5 6

lapply从1:number_of_repeats_wanted得到结果：

result <- do.call(rbind,lapply(1:3,function(i) data.frame(i,test[-1])))

> result
  i x y
1 1 1 2
2 1 3 4
3 1 5 6
4 2 1 2
5 2 3 4
6 2 5 6
7 3 1 2
8 3 3 4
9 3 5 6
于 2012-09-11T02:41:53.353 回答
1

三种可能的方法：

你的数据

DF <- data.frame(i=1,x=1:3,y=4:6)
# create a list with your data replicated three times
df_list <- replicate(n = 3, DF, simplify = F)
# go along this list and add a replicate column as `i`
df_list <- mapply(function(x,value,i) {x[,i] <- value;x}, value = seq_along(df_list), x = df_list, MoreArgs = list(i='i'), SIMPLIFY = F)
# combine into a data.frame
do.call(rbind,df_list)

更简单

# don't have `i` defined yet
DF <- data.frame(x=1:3,y=1:4)
# add and combine into a data.frame
do.call(rbind,lapply(1:3, function(i,data) {data$i <- i;data}, data = DF))

两者都会导致

##  i x y
## 1 1 1 4
## 2 1 2 5
## 3 1 3 6
## 4 2 1 4
## 5 2 2 5
## 6 2 3 6
## 7 3 1 4
## 8 3 2 5
## 9 3 3 6

使用您的初始方法

new_DF <- DF[rep(1:nrow(DF), times=3), ]
new_DF$i <- rep(1:nrow(DF), times = 3)
new_DF
##     i x y
## 1   1 1 4
## 2   2 2 5
## 3   3 3 6
## 1.1 1 1 4
## 2.1 2 2 5
## 3.1 3 3 6
## 1.2 1 1 4
## 2.2 2 2 5
## 3.2 3 3 6
于 2012-09-11T02:42:38.027 回答