Не самое элегантное решение, но создает желаемую таблицу.
library(dplyr)
# Data
R_Squared <- data.frame(Polynomial = c(283), Quadratic = c(2))
AIC <- data.frame(Polynomial = c(201), Quadratic = c(60), Linear = c(24))
BIC <- data.frame(Polynomial = c(196), Quadratic = c(62), Linear = c(27))
df <- bind_rows(AIC, BIC, R_Squared)
# add row names
row.names(df) <- c('AIC','BIK','R_Squared')
# returns the transpose of df
df <- t(df)
Выход:
AIC BIK R_Squared
Polynomial 201 196 283
Quadratic 60 62 2
Linear 24 27 NA