R将行分散成列

Question

This is part of my data set named table which come from the summary of my original data, and as.data.frame to get this data set. I want to spread rows into columns

table <- data_frame(summary(data1))
table_new <- spread(table, Var2, Freq)

However, I get the error. Please anyone help me explain the error and solve it. Thanks