[R] Labelling all variables at once (using Hmisc label)

array chip arrayprofile at yahoo.com
Thu Aug 18 00:30:41 CEST 2011


Hi Frank, it's true to one of your reply to my previous post, can only be seen in Nabble.



----- Original Message -----
From: David Winsemius <dwinsemius at comcast.net>
To: Frank Harrell <f.harrell at vanderbilt.edu>
Cc: r-help at r-project.org
Sent: Wednesday, August 17, 2011 3:08 PM
Subject: Re: [R] Labelling all variables at once (using Hmisc label)


On Aug 17, 2011, at 5:49 PM, Frank Harrell wrote:

> I'm puzzled.  I provided a solution that did not require looping.
> Frank

Hi Frank;

Do you realize that some portions of your Nabble postings are not being communicated to the ordinary mail-clients? This code did not appear in my copy from Nabble. I didn't cut anything. This appears in Nabble when you look there:

> d <- data.frame(a=1:2,b=3:4)
> label(d, self=FALSE) <- c('A','B')
> contents(d)
Data frame:d    2 observations and 2 variables Maximum # NAs:0 Labels Storage a A integer
b B integer



I observed and noted that was happening in a prior message. The missing formatted Nabble studd also comes across without linefeeds when pasted, so I added some of those back in.

--David.



> 
> Monsieur Do wrote:
>> 
>> I did read the help page before posting, but didn't find the direct way...
>> My function here works fine. But just for learning purposes, I'd like to
>> be able to avoid the loop...
>> 
>> with.labels <- function(x, labels=NULL, csvfile=NULL) {
>> if(!is.null(csvfile)) labels <- read.csv(csvfile, sep="\t", header=F,
>> stringsAsFactors=F)[,1]
>> for(i in 1:length(x)) label(x[,i]) <- labels[i]
>> if(length(labels) != length(x)) cat("Warning: data and labels are not of
>> same length\n")
>> return(x)
>> }
>> 
>> Thanks
>> 
>>> Message: 11
>>>  Date: Tue, 16 Aug 2011 04:22:07 -0700 (PDT)
>>>  From:
>> Frank Harrell <f.harrell at vanderbilt.edu>
>>>  To:
>> r-help at r-project.org
>>>  Subject:
>> Re: [R] Labelling all variables at once (using Hmisc label)
>>>  Message-ID:
>> <1313493727519-3746928.post at n4.nabble.com>
>>>  Content-Type:
>> text/plain; charset=UTF-8
>>> 
>>>  Do
>> require(Hmisc); ?label to see the help file for label.  It will show you
>>>  how to
>> do this:
>>> 
>>>  Monsieur
>> Do wrote:
>>>  >
>> I have a dataset and a list of labels. I simply want
>> 
>>>  > to
>> apply the labels to the variables, all at once. The only way I was able
>>>  > to do
>> it was using a loop:
>>>  >
>>>  > for (i in 1:length(data)) label(data[,i]) <-data.labels[i]
>>>  >
>>>  > I'd like to find the non-loop way to do it, using
>> 
>>>  >
>> apply or the like... Any help appreciated.
>>>  >
>>>  -----
>> 
>>>  Frank
>> Harrell
>>>  Department
>> of Biostatistics, Vanderbilt University
>>     [[alternative HTML version deleted]]
>> 
>> 
>> ______________________________________________
>> 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.
>> 
> 
> 
> -----
> Frank Harrell
> Department of Biostatistics, Vanderbilt University
> --
> View this message in context: http://r.789695.n4.nabble.com/Labelling-all-variables-at-once-using-Hmisc-label-tp3745660p3751273.html
> Sent from the R help mailing list archive at Nabble.com.
> 
> ______________________________________________
> 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.

David Winsemius, MD
West Hartford, CT

______________________________________________
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