全部版块 我的主页
论坛 数据科学与人工智能 数据分析与数据科学 R语言论坛
5907 4
2016-04-29
请问我有数据是这样的:
ID Count
ABC 123
ACD 100
DEF 50

请问我如何复制第一列ID count次数呢? 比如复制ABC 123次,ACD 100次,依次类推... 先谢谢了!

二维码

扫码加我 拉你入群

请注明:姓名-公司-职位

以便审核进群资格,未注明则拒绝

全部回复
2016-4-29 06:02:42
calsunny 发表于 2016-4-29 04:45
请问我有数据是这样的:
ID Count
ABC 123
rep(c(\"ABC\" ,\"ACD\"), c (123,100)), 希望能帮到你
二维码

扫码加我 拉你入群

请注明:姓名-公司-职位

以便审核进群资格,未注明则拒绝

2016-4-29 07:54:28
A=data.frame(ID=c("ABC","ACD","DEF")
             Count=c(123, 100, 50) )

X=rep(A\$ID[1], A\$Count[1] )

X

结果为:
X
  [1] ABC ABC ABC ABC ABC ABC ABC ABC ABC ABC ABC ABC ABC ABC ABC ABC
[17] ABC ABC ABC ABC ABC ABC ABC ABC ABC ABC ABC ABC ABC ABC ABC ABC
[33] ABC ABC ABC ABC ABC ABC ABC ABC ABC ABC ABC ABC ABC ABC ABC ABC
[49] ABC ABC ABC ABC ABC ABC ABC ABC ABC ABC ABC ABC ABC ABC ABC ABC
[65] ABC ABC ABC ABC ABC ABC ABC ABC ABC ABC ABC ABC ABC ABC ABC ABC
[81] ABC ABC ABC ABC ABC ABC ABC ABC ABC ABC ABC ABC ABC ABC ABC ABC
[97] ABC ABC ABC ABC ABC ABC ABC ABC ABC ABC ABC ABC ABC ABC ABC ABC
[113] ABC ABC ABC ABC ABC ABC ABC ABC ABC ABC ABC

或者
A=data.frame(ID=c("ABC","ACD","DEF"),
             Count=c(123, 100, 50) )
attach(A)
n=sum(Count)
Y=rep("A", n)
n.row=nrow(A)
k=1
for(i in 1:(n.row) ){
  Y[k:(k+Count-1) ]=rep(as.character(ID)), Count )
  k=k+Count
}
  
Y

结果为:
[1] "ABC" "ABC" "ABC" "ABC" "ABC" "ABC" "ABC" "ABC" "ABC" "ABC" "ABC"
[12] "ABC" "ABC" "ABC" "ABC" "ABC" "ABC" "ABC" "ABC" "ABC" "ABC" "ABC"
[23] "ABC" "ABC" "ABC" "ABC" "ABC" "ABC" "ABC" "ABC" "ABC" "ABC" "ABC"
[34] "ABC" "ABC" "ABC" "ABC" "ABC" "ABC" "ABC" "ABC" "ABC" "ABC" "ABC"
[45] "ABC" "ABC" "ABC" "ABC" "ABC" "ABC" "ABC" "ABC" "ABC" "ABC" "ABC"
[56] "ABC" "ABC" "ABC" "ABC" "ABC" "ABC" "ABC" "ABC" "ABC" "ABC" "ABC"
[67] "ABC" "ABC" "ABC" "ABC" "ABC" "ABC" "ABC" "ABC" "ABC" "ABC" "ABC"
[78] "ABC" "ABC" "ABC" "ABC" "ABC" "ABC" "ABC" "ABC" "ABC" "ABC" "ABC"
[89] "ABC" "ABC" "ABC" "ABC" "ABC" "ABC" "ABC" "ABC" "ABC" "ABC" "ABC"
[100] "ABC" "ABC" "ABC" "ABC" "ABC" "ABC" "ABC" "ABC" "ABC" "ABC" "ABC"
[111] "ABC" "ABC" "ABC" "ABC" "ABC" "ABC" "ABC" "ABC" "ABC" "ABC" "ABC"
[122] "ABC" "ABC" "ACD" "ACD" "ACD" "ACD" "ACD" "ACD" "ACD" "ACD" "ACD"
[133] "ACD" "ACD" "ACD" "ACD" "ACD" "ACD" "ACD" "ACD" "ACD" "ACD" "ACD"
[144] "ACD" "ACD" "ACD" "ACD" "ACD" "ACD" "ACD" "ACD" "ACD" "ACD" "ACD"
[155] "ACD" "ACD" "ACD" "ACD" "ACD" "ACD" "ACD" "ACD" "ACD" "ACD" "ACD"
[166] "ACD" "ACD" "ACD" "ACD" "ACD" "ACD" "ACD" "ACD" "ACD" "ACD" "ACD"
[177] "ACD" "ACD" "ACD" "ACD" "ACD" "ACD" "ACD" "ACD" "ACD" "ACD" "ACD"
[188] "ACD" "ACD" "ACD" "ACD" "ACD" "ACD" "ACD" "ACD" "ACD" "ACD" "ACD"
[199] "ACD" "ACD" "ACD" "ACD" "ACD" "ACD" "ACD" "ACD" "ACD" "ACD" "ACD"
[210] "ACD" "ACD" "ACD" "ACD" "ACD" "ACD" "ACD" "ACD" "ACD" "ACD" "ACD"
[221] "ACD" "ACD" "ACD" "DEF" "DEF" "DEF" "DEF" "DEF" "DEF" "DEF" "DEF"
[232] "DEF" "DEF" "DEF" "DEF" "DEF" "DEF" "DEF" "DEF" "DEF" "DEF" "DEF"
[243] "DEF" "DEF" "DEF" "DEF" "DEF" "DEF" "DEF" "DEF" "DEF" "DEF" "DEF"
[254] "DEF" "DEF" "DEF" "DEF" "DEF" "DEF" "DEF" "DEF" "DEF" "DEF" "DEF"
[265] "DEF" "DEF" "DEF" "DEF" "DEF" "DEF" "DEF" "DEF" "DEF"

二维码

扫码加我 拉你入群

请注明:姓名-公司-职位

以便审核进群资格,未注明则拒绝

2016-4-29 07:54:58
rep(df[,1], df[,2])
二维码

扫码加我 拉你入群

请注明:姓名-公司-职位

以便审核进群资格,未注明则拒绝

2016-4-30 10:48:17
非常感谢 cheetahfly , 方法简单明了。
二维码

扫码加我 拉你入群

请注明:姓名-公司-职位

以便审核进群资格,未注明则拒绝

相关推荐
栏目导航
热门文章
推荐文章

说点什么

分享

扫码加好友,拉您进群
各岗位、行业、专业交流群