Message-ID: <1373632967.80799.YahooMailNeo@web142605.mail.bf1.yahoo.com>
Date: 2013-07-12T12:42:47Z
From: arun
Subject: Replicating Rows
Hi,
apple<- read.table(text="
Fam.name,Item,AMT.SALE.NET.PROMO,X.CY..QTY.SALE.TOT
9475,Imported Fruits,22110276001,0,436
9499,Imported Fruits,22110277001,0,236
9523,Imported Fruits,22110278001,0,71
",sep=",",header=TRUE,stringsAsFactors=FALSE)
str(apple)
#'data.frame':??? 3 obs. of? 4 variables:
# $ Fam.name????????? : chr? "Imported Fruits" "Imported Fruits" "Imported Fruits"
# $ Item????????????? : num? 2.21e+10 2.21e+10 2.21e+10
# $ AMT.SALE.NET.PROMO: int? 0 0 0
# $ X.CY..QTY.SALE.TOT: num? 436 236 71
Here, it changed the class of some of the variables.
new<-sapply(apple[,-4],rep,apple[,4])
str(as.data.frame(new,stringsAsFactors=FALSE))
#'data.frame':??? 743 obs. of? 3 variables:
# $ Fam.name????????? : chr? "Imported Fruits" "Imported Fruits" "Imported Fruits" "Imported Fruits" ...
# $ Item????????????? : chr? "22110276001" "22110276001" "22110276001" "22110276001" ...
# $ AMT.SALE.NET.PROMO: chr? "0" "0" "0" "0" ...
new1<-apple[rep(seq_len(nrow(apple)),apple[,4]),-4]
?row.names(new1)<- 1:nrow(new1)
?str(new1)
#'data.frame':??? 743 obs. of? 3 variables:
# $ Fam.name????????? : chr? "Imported Fruits" "Imported Fruits" "Imported Fruits" "Imported Fruits" ...
# $ Item????????????? : num? 2.21e+10 2.21e+10 2.21e+10 2.21e+10 2.21e+10 ...
# $ AMT.SALE.NET.PROMO: int? 0 0 0 0 0 0 0 0 0 0 ..
A.K.
I try to replicate the rows according to the number of quantity
occurred. Its row should be be sum of the quantity. is there any wrong
with my code? thanks.
apple
? ? ? ? ? ? Fam.name ? ? ? ?Item AMT.SALE.NET.PROMO X.CY..QTY.SALE.TOT
9475 Imported Fruits 22110276001 ? ? ? ? ? ? ? ? ?0 ? ? ? ? ? ? ? ?436
9499 Imported Fruits 22110277001 ? ? ? ? ? ? ? ? ?0 ? ? ? ? ? ? ? ?236
9523 Imported Fruits 22110278001 ? ? ? ? ? ? ? ? ?0 ? ? ? ? ? ? ? ? 71
9552 Imported Fruits 22110306001 ? ? ? ? ? ? ? ? ?0 ? ? ? ? ? ? ? ? 69
9571 Imported Fruits 22110314001 ? ? ? ? ? ? ? ? ?0 ? ? ? ? ? ? ? ? 20
9579 Imported Fruits 22110315001 ? ? ? ? ? ? ? ? ?0 ? ? ? ? ? ? ? ? 80
9604 Imported Fruits 22110317001 ? ? ? ? ? ? ? ? ?0 ? ? ? ? ? ? ? ? 61
9635 Imported Fruits 22110321001 ? ? ? ? ? ? ? ? ?0 ? ? ? ? ? ? ? 1026
9697 Imported Fruits 22110334001 ? ? ? ? ? ? ? ? ?0 ? ? ? ? ? ? ? ?223
9720 Imported Fruits 22110335001 ? ? ? ? ? ? ? ? ?0 ? ? ? ? ? ? ? ?214
9744 Imported Fruits 22110336001 ? ? ? ? ? ? ? ? ?0 ? ? ? ? ? ? ? ?102
9768 Imported Fruits 22110337001 ? ? ? ? ? ? ? ? ?0 ? ? ? ? ? ? ? ?146
9868 Imported Fruits 22110354001 ? ? ? ? ? ? ?118.8 ? ? ? ? ? ? ? ? 17
9893 Imported Fruits 22110360001 ? ? ? ? ? ? ? ? ?0 ? ? ? ? ? ? ? ? 43
9904 Imported Fruits 22110363001 ? ? ? ? ? ? ? ? ?0 ? ? ? ? ? ? ? ? 49
9920 Imported Fruits 22110364001 ? ? ? ? ? ? ? ? ?0 ? ? ? ? ? ? ? ? ?1
9938 Imported Fruits 22110365001 ? ? ? ? ? ? ?205.4 ? ? ? ? ? ? ? ? 33
new<-sapply(apple[,-4],rep,apple[,4])
nrow(new)
[1] 33572