Настроить xtables, добавив горизонтальные линии и объединив ячейки?

Я видел подобные вопросы на SO - на большинство из них не было ответа. Те, на кого был дан ответ, обычно предлагают не использовать xtable, поскольку он не гибок в настройке. Я прикрепил две картинки: 1) моя сгенерированная таблица из xtable 2) моя идеальная таблица. Я хотел бы добавить горизонтальную линию к моему 1.png, разделив его на 3 секции и назвав секции «Школы», «Оценки», «Студенты».

1) Кто-нибудь видит какое-либо возможное решение с помощью xtable?

2) Есть ли способ прочитать вывод xtable в виде списка строк, а затем изменить его, добавив некоторый латексный код, чтобы получить желаемую таблицу? Ты пробовал это?

3) Есть ли другой пакет, который можно использовать вместо xtable?

Вот несколько смоделированных чисел для работы (предположим, это код для 1.png):

library(xtable)

desc.matrix <- matrix(rep(NA,60),ncol = 4)
colnames(desc.matrix) <- c("Grade 3","Grade 4","Grade 5","Total")
rownames(desc.matrix) <- c("TRT-#Schools","TRT(Enroll>=85%)-#Schools", 
"TRT(Prog>=50%)- #Schools", "TRT(Prog >= 50% & Enroll>=85%)-#Schools",
"Control-#Schools","TRT-#Grades","TRT(Enroll>=85%)-#Grades", 
"TRT(Prog>=50%)-#Grades", "TRT(Prog >= 50% & Enroll>=85%)-#Grades",
"CTRL-#Grades","TRT-#Students","TRT(Enroll>=85%)-#Students", 
"TRT(Prog>=50%)-#Students", "TRT(Prog >= 50% & Enroll>=85%)-#Students",
"CTRL-#Students")

for (i in 1:ncol(desc.matrix)){
   desc.matrix[,i] <- c(1:(nrow(desc.matrix)))
}

xtable(desc.matrix)

Я ценю вашу помощь.