R 用上标为图例中的每个项目创建两行

我想在R中创建一个图，我有两个自变量，我想在图例中列出每一级的因子。我现在的代码是for循环。我想让图例中的每一项都在第一行显示温度和沉积物，第二行显示NTU

示例：

29°C, 0 mg.cm^-2 (A)

(0 NTU)

我的代码如下：

for (tr in 1:8){ 

  for (s in 0:max(Sages)){
    h[s+1,tr]<-exp(-(u[tr]*s)^v[tr])
  }

  points(ds,h[,tr], xlim=c(0,85), ylim=c(0,1),type ='l', 
         lty=l[tr],col=cl[tr])

  Agetr<-Age[Treat==Streats[tr]]
  probtr<-prob[Treat==Streats[tr]]

  legend("topright", legend=c(
    expression("29°C, 0 mg.cm"^-2*"   \n (0 NTU)  (A)"),
    expression(paste("29°C, 30 mg.cm"^-2*"\n (3-8.83 NTU)")),
    expression(paste("29°C, 60 mg.cm"^-2*"\n (5.9-14.7 NTU)")),
    expression(paste("29°C, 120 mg.cm"^-2*" \n (13.2-29.2 NTU)")),
    expression(paste("31°C, 0 mg.cm"^-2*" \n (0 NTU)")),
    expression(paste("31°C, 30 mg.cm"^-2*" \n (3-8.83 NTU)")),
    expression(paste("31°C, 60 mg.cm"^-2*" \n (5.9-14.7 NTU)")),
    expression(paste("31°C, 120 mg.cm"^-2*" \n (13.2-29.2 NTU)"))
  ), lty=c(1,1,1,1,2,2,2,2), 
  col=c('black','blue','green3','red','black','blue','green3','red'),
  cex=0.75, text.width = 15)
}

for（tr in 1:8）{
用于（0中的s:最大值（Sages））{
h[s+1，tr]你的格式化是一团糟。清理它。删除所有空白行。它们不增强可读性。如果你要使用<代码>点/代码>函数，你将首先需要一个打开的用于绘图的绘图设备。然后这个问题将变成：你想对遵循<代码>点>代码>的两个任务做什么？（我原以为图例调用在

-for的外部

循环之外。）