[R] expand only one of variable

[Jacques VESLOT]

 > toy.df$sign <- ifelse(toy.df$size == 0, "negative", "positive")
 > toy.df[rep(1:nrow(toy.df), ifelse(toy.df$size==0, 1, toy.df$size)),]

-------------------------------------------------------------------
Jacques VESLOT

CNRS UMR 8090
I.B.L (2ème étage)
1 rue du Professeur Calmette
B.P. 245
59019 Lille Cedex

Tel : 33 (0)3.20.87.10.44
Fax : 33 (0)3.20.87.10.31

http://www-good.ibl.fr
-------------------------------------------------------------------


Muhammad Subianto a écrit :
> Dear all,
> I want to expand only one of variable in data frame and the others
> variable will be following with the expand variable. Here my toy example:
> 
> toy.df <- data.frame(size=c(3,1,2,0,3,5,1,0), group=LETTERS[1:8],
> 
> country=c("Germany","England","Argentina","Mexico","Italy","Brazil","France","Spain"),
>                      w=rep(0,8), d=rep(0,8), l=rep(0,8))
> toy.df
> 
> The size variable is the number of expand and signed by positive but size
> with 0 (zero) must be signed by negative.
> The result something like:
> 
>   size group   country w d l      sign
>      3     A   Germany 0 0 0  positive
>      3     A   Germany 0 0 0  positive
>      3     A   Germany 0 0 0  positive
>      1     B   England 0 0 0  positive
>      2     C Argentina 0 0 0  positive
>      2     C Argentina 0 0 0  positive
>      0     D    Mexico 0 0 0  negative
>      3     E     Italy 0 0 0  positive
>      3     E     Italy 0 0 0  positive
>      3     E     Italy 0 0 0  positive
>      5     F    Brazil 0 0 0  positive
>      5     F    Brazil 0 0 0  positive
>      5     F    Brazil 0 0 0  positive
>      5     F    Brazil 0 0 0  positive
>      5     F    Brazil 0 0 0  positive
>      1     G    France 0 0 0  positive
>      0     H     Spain 0 0 0  negative
> 
> I  would be very happy if anyone could help me.
> Thank you very much in advance.
> 
> Kindly regards, Muhammad Subianto
> 
> ______________________________________________
> R-help at stat.math.ethz.ch mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide! http://www.R-project.org/posting-guide.html
>