Crosstab (contingency table) to Dataframe

Crosstab to Dataframe.r

# Read in CSV file that's formatted as a Crosstab (empty top left cell, top row contains column names and first column contains row names)
# `header = T` pulls column names from first row
# `row.names = 1` pulls row names from first column, so starts from 1, not 0
b2009 <- read.csv("20092009 Beer - CrossTab.csv", header = T, row.names = 1)

table <- as.table(as.matrix(b2009))
test <- data.frame(table)

# Add names to Columns, starting from leftmost column
colnames(test) <- c("Beer","Judge","Rating")
test[1:37,]