[R] do.call
arun
smartpink111 at yahoo.com
Thu Dec 6 17:35:57 CET 2012
Hi Dominic,
You could also do this:
set.seed(15)
datos<-as.data.frame(matrix(sample(c(1:20,NA),30,replace=TRUE),ncol=6))
res1<-unlist(lapply(split(datos,1:nrow(datos)),function(x) paste(x[!is.na(x)],collapse=";")))
dat1<-data.frame(scan(textConnection(res1),wh="a"),stringsAsFactors=FALSE)
colnames(dat1)<-"SemicolonSep_Col"
dat1
# SemicolonSep_Col
#1 13;3;18;17;14
#2 5;18;14;10;17;3
#3 6;11;8;4
#4 14;15;15;3;2;20
#5 8;18;19;17;12;11
A.K.
----- Original Message -----
From: Dominic Roye <dominic.roye at gmail.com>
To: arun <smartpink111 at yahoo.com>
Cc:
Sent: Thursday, December 6, 2012 9:33 AM
Subject: Re: [R] do.call
Well, my aim is to get a new column that looks like this without NA
but with all of the values in the columns and rows:
200.4;608.1; ...
360.0
420.6;608.0; ...
100.1;905.0
.
.
.
in the original data, each value has its own column. Each column has
different number of values, therefore arise NA.
Thanks for your help!
2012/12/6 arun <smartpink111 at yahoo.com>:
> HI Dominic,
>
> You are right. na.omit() will delete rows containing at least 1 NAs. Suppose, a function deletes only NAs separately for each column, then the length of each column will be different.
> According to ?data.frame()
> " Objects passed to ‘data.frame’ should have the same number of
> rows, but atomic vectors, factors and character vectors protected
> by ‘I’ will be recycled a whole number of times if necessary
> (including as elements of list arguments).
> "
> Then, instead of data.frame, list would be an option.
>
>
> Could you tell me the expected output? I thought you wanted to eliminate rows which have at least 1 NA.
> If your dataset includes NA in all the rows, then it would be better to have some threshold. For e.g.
> set.seed(15)
> datos<-as.data.frame(matrix(sample(c(1:20,NA),30,replace=TRUE),ncol=6))
> do.call(paste,c(datos[apply(datos,1,function(x) !sum(is.na(x))>1),],sep=";")) #deleted rows with more than 1 NA
> #[1] "13;NA;3;18;17;14" "5;18;14;10;17;3" "14;15;15;3;2;20" "8;18;19;17;12;11"
> A.K.
>
>
>
>
>
>
> ----- Original Message -----
> From: Dominic Roye <dominic.roye at gmail.com>
> To: arun <smartpink111 at yahoo.com>
> Cc: R help <r-help at r-project.org>
> Sent: Thursday, December 6, 2012 7:40 AM
> Subject: Re: [R] do.call
>
> Hi,
>
> thanks for your answer, but in this way R delete all rows with NA. In
> all rows I have values but also NA. I don´t know why it delete all of
> them.
>
> I hope you can give me an idea.
>
> Thanks.
>
> Best regards,
>
>> str(temp)
> 'data.frame': 112598 obs. of 35 variables:
> $ Lista.de.códigos.de.diagnóstico: chr "218.0" "890.1" "998.89" "650." ...
> $ X : chr NA "E986" "780.2" "V27.0" ...
> $ X.1 : chr NA NA "780.4" NA ...
> $ X.2 : chr NA NA "381.3" NA ...
> $ X.3 : chr NA NA NA NA ...
> $ X.4 : chr NA NA NA NA ...
> $ X.5 : chr NA NA NA NA ...
> $ X.6 : chr NA NA NA NA ...
> $ X.7 : chr NA NA NA NA ...
> $ X.8 : chr NA NA NA NA ...
> $ X.9 : chr NA NA NA NA ...
> $ X.10 : chr NA NA NA NA ...
> $ X.11 : chr NA NA NA NA ...
> $ X.12 : chr NA NA NA NA ...
> $ X.13 : chr NA NA NA NA ...
> $ X.14 : chr NA NA NA NA ...
> $ X.15 : chr NA NA NA NA ...
> $ X.16 : chr NA NA NA NA ...
> $ X.17 : chr NA NA NA NA ...
> $ X.18 : chr NA NA NA NA ...
> $ X.19 : chr NA NA NA NA ...
> $ X.20 : chr NA NA NA NA ...
> $ X.21 : chr NA NA NA NA ...
> $ X.22 : chr NA NA NA NA ...
> $ X.23 : num NA NA NA NA NA NA NA NA NA NA ...
> $ X.24 : chr NA NA NA NA ...
> $ X.25 : chr NA NA NA NA ...
> $ X.26 : num NA NA NA NA NA NA NA NA NA NA ...
> $ X.27 : chr NA NA NA NA ...
> $ X.28 : chr NA NA NA NA ...
> $ X.29 : num NA NA NA NA NA NA NA NA NA NA ...
> $ X.30 : num NA NA NA NA NA NA NA NA NA NA ...
> $ X.31 : num NA NA NA NA NA NA NA NA NA NA ...
> $ X.32 : num NA NA NA NA NA NA NA NA NA NA ...
> $ X.33 : logi NA NA NA NA NA NA ...
>
>> new <- do.call(paste, c(na.omit(temp[,1:35]), sep = ";"))
>> new
> character(0)
>
>
> 2012/12/4 arun <smartpink111 at yahoo.com>:
>> Hi,
>> Try this:
>> set.seed(15)
>> datos<-as.data.frame(matrix(sample(c(1:20,NA),30,replace=TRUE),ncol=6))
>> do.call(paste,c(na.omit(datos),sep=";"))
>> #[1] "5;18;14;10;17;3" "14;15;15;3;2;20" "8;18;19;17;12;11"
>>
>> A.K.
>>
>>
>>
>> ----- Original Message -----
>> From: Dominic Roye <dominic.roye at gmail.com>
>> To: r-help at r-project.org
>> Cc:
>> Sent: Tuesday, December 4, 2012 7:38 AM
>> Subject: [R] do.call
>>
>> Hello,
>>
>> I have a problem with the "do.call-function". I would like to merge
>> the values of more than 30 columns, but not in all of the rows exist
>> values, so with this commando i get a lot of ";" or NA.
>>
>> How get i only the merge of cells with a number?
>>
>>
>> datos$NEW <- do.call(paste, c(datos[,19:53], sep = ";"))
>>
>>
>> $ NEW : chr
>> "218.0;;;;;;;;;;;;;;;;;;;;;;;;NA;;;NA;;;NA;NA;NA;NA;NA
>>
>>
>> I hope you can help me. Thanks!
>>
>> Best regards,
>>
>> Dominic
>>
>> ______________________________________________
>> R-help at r-project.org mailing list
>> 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.
>>
>
More information about the R-help
mailing list