Hello,
Sorry, I forgot the output to file part.
y <- rep(df1[[1]], df1[[2]])
cat(y, file = "~/tmp/rhelp.txt", sep = "\n")
Hope this helps,
Rui Barradas
?s 09:01 de 07/07/21, Rui Barradas escreveu:> Hello,
>
> Use ?rep.
> Since you say you have a file, in the code below I will read the data
> from a connection. Then create the string.
>
>
> txtfile <- "ABC 3
> DDG 5
> ABB 2"
>
> tc <- textConnection(txtfile)
> df1 <- read.table(tc)
> close(tc)
>
> rep(df1[[1]], df1[[2]])
> #[1] "ABC" "ABC" "ABC" "DDG"
"DDG" "DDG" "DDG" "DDG" "ABB"
"ABB"
>
>
> Hope this helps,
>
> Rui Barradas
>
>
> ?s 14:27 de 06/07/21, Evan Cooch escreveu:
>> Suppose I have a file with the the following structure - call the two
>> space-separated fields 'label' and 'count':
>>
>> ABC 3
>> DDG 5
>> ABB 2
>>
>>
>> What I need to do is parse each line of the file, and then depending
>> on the value of count, write out the value of 'label' to a new
file,
>> but 'count' times. In other words, take the preceding, and
output
>>
>> ABC
>> ABC
>> ABC
>> DDG
>> DDG
>> DDG
>> DDG
>> DDG
>> ABB
>> ABB
>>
>> I was wondering if there was an elegant/simple way to do this? I can
>> do this relatively easily in perl, or awk, but am stumped by getting a
>> bit of R code to accomplish the same thing.
>>
>> Many thanks in advance...
>>
>> ______________________________________________
>> R-help at r-project.org mailing list -- To UNSUBSCRIBE and more, see
>> https://stat.ethz.ch/mailman/listinfo/r-help
>> PLEASE do read the posting guide
>> http://www.R-project.org/posting-guide.html
>> and provide commented, minimal, self-contained, reproducible code.
>
> ______________________________________________
> R-help at r-project.org mailing list -- To UNSUBSCRIBE and more, see
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide
> http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.