Skip to content
Prev 367870 / 398500 Next

Reversing table()

Or perhaps (assuming the table's name is "tbl":


dtbl <- as.data.frame(tbl)
xpd <- dtbl[ rep(row.names(dtbl), dtbl$Freq), ]
str(xpd)