Если вы знаете латекс, вы можете использовать xtable, как описано в моем комментарии. Это даст вам латексный код для таблицы, которую вы можете скопировать и вставить в свой редактор (или отправить в текстовый файл, см. Файлы справки). Так что вы можете сделать как:
# some sample data, please give us that next time you post a question
myframe <- data.frame(
name=rep(letters[1:3],each=48),
salary=runif(48*3,1000,2000)
)
# make the matrices
mylist <- tapply(myframe$salary, myframe$name,matrix,nrow=4,byrow=T)
# make some tables. If you want to format them, see the help files
require(xtable)
lapply(mylist,xtable)