Блог

Я использую следующую команду, которая возвращает этот вывод:

 > table(data$Smoke, data$Gender)
     
      female male
  no     314  334
  yes     44   33
  

Тем не менее, в руководстве, которое я смотрю, инструктор использует ту же строку кода, и они получают

       Gender
Smoke   female male
  no     314  334
  yes     44   33
  

Как я могу достичь этого результата? Из меню справки это непонятно.

Просто передайте data.frame объект с двумя столбцами в table()

 table(data[c("Smoke", "Gender")])

#      Gender
# Smoke female male
#   no      29   31
#   yes     17   23
  

или используйте xtabs() :

 xtabs( ~ Smoke   Gender, data)

#      Gender
# Smoke female male
#   no      29   31
#   yes     17   23
  

Хотя следующий вариант также работает, он выглядит несколько грубо.

 table(Smoke = data$Smoke, Gender = data$Gender)
  

Данные

 data <- data.frame(id = 1:100,
                   Smoke = sample(c("no", "yes"), 100, T),
                   Gender = sample(c("female", "male"), 100, T))
  

Вы можете назвать векторы, к которым вы переходите table .

 table(Smoke = c('no','yes'), Gender = c('male','female'))

#-----
     Gender
Smoke female male
  no       0    1
  yes      1    0