On Thu, 30 Oct 2008, [EMAIL PROTECTED] wrote:
Full_Name: Bill Dunlap
Version: R version 2.9.0 Under development (unstable) (2008-10-29 r46795)
OS: Linux
Submission from: (NULL) (76.28.245.14)
When data.frame() is given a matrix with rownames, then the type of the output
row names depends on whether the first element of the input row names is "" or
not. The other elements of the input row names don't affect things. E.g.,
data.frame(matrix(1:6, nrow=3, ncol=2, dimnames=list(c("","Row 2","Row 3"),
paste("Col",1:2))))
Col.1 Col.2
1 1 4
2 2 5
3 3 6
data.frame(matrix(1:6, nrow=3, ncol=2, dimnames=list(c("Row 1","","Row 3"),
paste("Col",1:2))))
Col.1 Col.2
Row 1 1 4
2 5
Row 3 3 6
I noticed this when converting a table of word counts (by speaker) into a
data.frame and the word "" came first in the collating sequence so the words did
not become the row names of the output. If the "" was not first in the table
then the row names of the input were carried into the output.
I haven't had the time yet to make a fix for this, but the distinction between
row.names[1] != or == "" comes from code in data.frame() itself (not
as.data.frame.matrix):
81 if (missing(row.names) && nrows[i] > 0L) {
82 rowsi <- attr(xi, "row.names")
83 if (!(rowsi[[1L]] %in% ""))
84 row.names <- data.row.names(row.names, rowsi,
85 i)
86 }
Why is that check there?
Well, there is a comment in the sources,
if(missing(row.names) && nrows[i] > 0L) {
rowsi <- attr(xi, "row.names")
## old way to mark optional names
if(!(rowsi[[1L]] %in% ""))
row.names <- data.row.names(row.names, rowsi, i)
}
which was last changed in Dec 2006. However, the behaviour was much
older.
It seems we can now change it to just test for some non-empty row name.
Bill Dunlap
TIBCO Spotfire
wdunlap tibco.com
______________________________________________
R-devel@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-devel
--
Brian D. Ripley, [EMAIL PROTECTED]
Professor of Applied Statistics, http://www.stats.ox.ac.uk/~ripley/
University of Oxford, Tel: +44 1865 272861 (self)
1 South Parks Road, +44 1865 272866 (PA)
Oxford OX1 3TG, UK Fax: +44 1865 272595
______________________________________________
R-devel@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-devel
