3

是否有一个函数可以确定 data.frame 是否具有本机行名和列名或仅具有自动生成的 (1 2 3 4...) ？对于列名，“自动”意味着例如当您将“as.data.frame”应用于矩阵时..

对于行名，我想出了一个解决方法：

has.row.names = function(df) {
  !all(row.names(df)==seq(1, nrow(df)))
}

但是，对于列名，我不知道该怎么做。困难在于有时自动 col.names 以 V1 V2 等开头，有时以 X1.、X2..

编辑：为什么我问这个问题：我需要在一个更复杂的函数（有点类似于 PCA 的图形输出）中执行这个测试，如果存在，它将绘制行名和列名，如果不存在，它将创建更适合新名称。所以它应该适用于“任何”data.frame，没有实际名称的线索..

谢谢。

4

2 回答 2

8

简短版本：数据框唯一没有列名的情况是属性“名称”为 NULL 时。因此，检查数据框中是否存在列名的简单方法如下所示。

DFHasColNames <- function(x) {
    stopifnot(is.data.frame(x))
    Negate(is.null)(names(x))
}
DFHasColNames(mtcars)
# [1] TRUE
DFHasColNames(unname(mtcars))
# [1] FALSE

扩展版：对于行名，您可以使用.row_names_info(). 默认情况下type = 1L，负号表示行名是自动生成的。

.row_names_info(mtcars)
# [1] 32   # row names were provided 
.row_names_info(iris)
# [1] -150 # row names were generated automatically

您还可以通过更改type参数来查看其他信息。

输入整数。当前 type = 0 返回内部的“row.names”属性（可能为 NULL），type = 2 该属性隐含的行数，type = 1 后者带有负号表示“自动”行名。

.row_names_info(mtcars, type = 0)
## ... returns attr(mtcars, "row.names")
.row_names_info(iris, type = 0)
## [1]   NA -150

对于列名，这并不容易。一般来说，如果您看到NA列名称的所有值，或者names(x)返回NULL，则“名称”属性x未设置，因此x没有（列）名称。

否则，前缀X通常表示名称来自，make.names()由data.frame()and和其他人使用。read.table()read.csv()

m <- matrix(1:6, 2)
make.names(seq_len(ncol(m)))
# [1] "X1" "X2" "X3"
data.frame(m)
#   X1 X2 X3
# 1  1  3  5
# 2  2  4  6

而您通常会V从as.data.frame()

as.data.frame(m)
#   V1 V2 V3
# 1  1  3  5
# 2  2  4  6

然而，这不是一个规则。这取决于您传递给的对象的类as.data.frame()，以及您是否更改了任何默认参数。最好的办法是筛选许多methods(as.data.frame)，看看你是否能发现一种模式。

于 2015-02-28T02:22:26.697 回答
1 
#Use exists
with(mtcars,exists("cyl"))
[1] TRUE

with(mtcars,exists("cy"))
[1] FALSE
于 2015-02-28T02:02:33.943 回答