Создание двух строк для каждого элемента в легенде с верхним индексом - PullRequest
Новая
       8

Создание двух строк для каждого элемента в легенде с верхним индексом

0 голосов
/ 03 марта 2020

Я хотел бы создать график в R, и у меня есть две независимые переменные, которые я хотел бы перечислить каждый уровень факторов в легенде. Код, который у меня сейчас есть, предназначен для l oop. Мне бы хотелось, чтобы каждый элемент легенды отображался с указанием температуры и осадка в первый раз, а 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)
}

Любая помощь с благодарностью!

Спасибо!

...