Мы можем заключить в stack
, чтобы создать два столбца data.frame
из кода ОП
out <- stack(summary(rt1$state))[2:1]
names(out) <- c("state", "n")
Или другой параметр в base R
это
as.data.frame(table(rt1$state))
Воспроизводимый пример
data(iris)
out <- stack(summary(iris$Species))[2:1]
Или с table
as.data.frame(table(iris$Species))
Или enframe
с tibble
library(tibble)
library(tidyr)
enframe(summary(rt1$state)) %>%
unnest(c(value))