删除变量名称作为表标题

Question

table在使用变量名称作为表'title'的意义上有一种特殊的行为

> table(c("A","A","B"))

A B 
2 1
> a<-c("A","A","B");table(a)
a
A B 
2 1 

如果您有一个返回列联表的函数

，则此行为不方便

> aux <- function(x) return(table(x))
> aux(a)
x
A B 
2 1 

有没有办法删除表'标题'？我可以删除表格标题而不是空白行吗？我找到了一个解决方法，但我并不完全满意。

> aux <- function(x) return(table(identity(x)))
> aux(a)

A B 
2 1 

Answer 1

您可以在deparse.level = 0中使用table()。请通过解释检查help(table)的可能值。

a <- c("A", "A", "B")

table(a)
# a
# A B 
# 2 1 
table(a, deparse.level = 0)
#
# A B 
# 2 1 

Answer 2

我们可以使用as.vector

as.vector(table(a))
#[1] 2 1

如果我们需要删除第二种情况中的'a'

tbl <- table(a)
names(dimnames(tbl)) <- NULL