Hmisc label function applied to data frame

I'm attempting to create a data frame with correlations between every pair
of variables in a data frame, so that I can then sort by the value of the
correlation coefficient and see which pairs of variables are most strongly
correlated.

The sm2vec function in the corpcor library works very nicely as shown
here:

library(Hmisc)
library(corpcor)

# Create example data
x1 = runif(50)
x2 = runif(50)
x3 = runif(50)
d = data.frame(x1=x1,x2=x2,x3=x3)
label(d$x1) = "Variable x1"
label(d$x2) = "Variable x2"
label(d$x3) = "Variable x3"
.. rest of code omitted

This has nothing to do with Hmisc and corpcor. I things get confusing,
simplify and use str(). 

What you wanted to "label" the columns is "names", or, probably better
named, "colnames". Note that your way of labeling converts the column to a
Class "labelled", which is not what function take for breakfeast.


d = data.frame(x1=runif(10),x2=runif(10))
label(d)  # This alone gives the error message
# x1 x2 
# "" "" "
# Warning message:
#In mapply(FUN = label, x = x, default = default, MoreArgs = list(self =
TRUE),  :
#  longer argument not a multiple of length of shorter
str(d)
# data.frame':   10 obs. of  2 variables:
# $ x1: num  0.1353 0.7234 0.0266 0.074 0.2391 ...
# $ x2: num  0.833 0.573 0.136 0.395 0.308 ...
label(d$x1) = "Variable x1"
str(d)

#'data.frame':   10 obs. of  2 variables:
# $ x1:Class 'labelled'  atomic [1:10] 0.1353 0.7234 0.0266 0.074 0.2391 ...
#  .. ..- attr(*, "label")= chr "Variable x1"
# $ x2: num  0.833 0.573 0.136 0.395 0.308 ...


# Labeling columns, the correct way
d = data.frame(x1=runif(10),x2=runif(10))
str(d)
names(d) = c("Var1","Var2")
str(d)

View this message in context: http://r.789695.n4.nabble.com/Hmisc-label-function-applied-to-data-frame-tp3069784p3070777.html
Sent from the R help mailing list archive at Nabble.com.

An embedded and charset-unspecified text was scrubbed...
Name: not available
URL: <https://stat.ethz.ch/pipermail/r-help/attachments/20101205/283a6bbc/attachment.pl>