Удалить имя переменной в качестве заголовка таблицы

Question

table имеет своеобразное поведение в том смысле, что он использует имя переменной в качестве таблицы «название»

> 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

Мы можем использовать as.vector

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

Если нам нужно удалить 'а' во втором случае

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

Answer 2

Вы можете использовать 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