# Simulate matrix of integers
set.seed(1)
df <- matrix(sample.int(5, size = 3*5, replace = TRUE), nrow = 3, ncol = 5)
print(df)
df <- tbl_df(df)  # tabulate as dataframe
df <- rbind(df, c(3,5,4,1,4))
print(df)

plot(c(1:5),df[1,], type = "b", pch=19,
 col = "blue", xlab = "number of columns", ylab = "response format")