基于r中查找函数的结果从列表打印xtable对象

我有很多不同学校的学生对教师的评价数据。每个老师对每个学生都有不同的评分。我试图创建重复的报告，每个老师一份报告。在每个报告中，我需要教师级数据和小组级数据。我已经能够创建一个显示个别教师级别数据的报告。不过，我现在需要为每位教师添加学校级别的数据。我的数据集中有每位教师所属的学校。我想做的是告诉r查看教师的唯一标识符，并根据该标识符确定教师所在学校的名称，并根据学校名称为该学校插入一个表

下面是一些示例数据，以及我如何准备表格。很抱歉代码太长（如果您有缩短代码的建议，我也会很感激您的建议）。 此代码将设置一个示例数据集

Q1<- sample(letters[1:4],100, replace=TRUE)
Q2<-sample(letters[1:4],100, replace=TRUE)
Q3<-sample(letters[1:4],100, replace=TRUE)
Q4<-sample(letters[1:4],100, replace=TRUE)
teacher<-1:20
school<-1:5
df<-data.frame(Q1,Q2, Q3,Q4,teacher,school)
df$teacher<-as.factor(df$teacher)
df$school<-as.factor(df$school)

我还想为每位教师的学校级别数据创建一个部分。然而，由于这是一份重复的报告，而且教师比学校多，我不能把学校表放在一个循环中

我已经编写了代码，可以获取教师的标识符，并告诉我他们在哪个学校教书

unique(df[df$teacher=="1",6]) 

然后，我想从上面的函数中获取结果，并在print table命令中使用它，以便能够判断要放入哪个学校级别的表。像这样的

print(school.results$"unique(df[df$teacher=="1",6])", table.placement = "H",latex.environments = "")

然而，这是行不通的。我也尝试过类似的使用cat和paste命令的方法

print(school.results$"unique(df[df$teacher=="1",6])", table.placement = "H",latex.environments = "")

打印（cat（“school.results$\”，粘贴（唯一的（df[df$teacher==“1”，6]）），“\”，sep=“”），table.placement=“H”，latex.environments=“”）

然而，这只是返回

school.results$"1"NULL

有人对我如何才能完成我想做的事有什么建议吗

---

我再次为这篇文章的篇幅道歉。我不知道如何做一个简短的示例。

所以列表是所有学校，您只需要列表中针对特定学校的元素？是的，列表中有针对每个学校的表，我只想打印对应于特定学校的一个元素。列表中的元素是命名的还是简单编号的？最简单的方法可能是根据学校命名列表元素，然后可以使用标准的列表命名逻辑（如

school.results$school1

）提取它们。我已经命名了它们。然而，由于我试图为每位教师生成一份重复的报告，标准逻辑将只适用于for循环。然而，由于每所学校都有多名教师，我不能使用for循环。因为学校编号的变化不会像教师编号那样快。如果有一个可复制的例子，我会帮上大忙。愿意提供一个吗？

print(xtable(teacher.results[[i]])) 

unique(df[df$teacher=="1",6]) 

print(school.results$"unique(df[df$teacher=="1",6])", table.placement = "H",latex.environments = "")

school.results$"1"NULL