# Make long format symmetric data
long_df <- data.frame(rw = rep(letters[1:4], 4),
cl = rep(letters[1:4], each = 4),
val = 0)
long_df <- add_mixed_layout(long_df, rw, cl, val,
layout = c("topleft", "bottomright"))
head(long_df)
Run the code above in your browser using DataLab