Как надстрочный и курсив в одном сюжете в R - PullRequest
Новая
       64

Как надстрочный и курсив в одном сюжете в R

0 голосов
/ 19 декабря 2018

Я пытаюсь создать следующую легенду: 

legend(x = 23, y = 40, legend = c('Col-0 Control', 'Col-0 840g ha-1', 'TOC1-ox Control', "TOC1 840g ha-1"), col = c('black', 'black','red', 'red'), lty = c(1,2,1,2 ), pch=c(15,15,15,15), pt.bg = c('white', 'white', NA,NA), cex = 1.5, bty="n", lwd=2)

, которая работает, но я пытаюсь получить ha-1 в верхнем индексе ha ^ -1, в то же время делая только TOC1 (не-окс или 840 г / га) курсивом.Я пробовал следующее: 

as.expression(bquote("Col-0 840g " ~ ha^-1 ~)

, который работал сам по себе, но, кажется, не работает, когда я объединил другие 3 метки.Я также заблудился о том, как выделить курсивом только TOC1 , и попробовал описанный здесь метод: Как сделать так, чтобы только одна легенда называлась курсивом на базовом графике R? без удачи.Любая помощь будет очень признателен !!

код до сих пор: 

windows(width=10, height=8)
windowsFonts(A = windowsFont("Times New Roman"))
plot.new()
op <- par(family="A", font=2)
plot(Exp24[1:3,12], Exp24[1:3,11], bty = "n", xaxt = "n", xlim=range(24:72), ylim=range(10:40), col = "black", type = "b", pch=15, cex=2, family = "A", xlab = "Time After Leaf Disc Extraction (h)", ylab = "Relative Electrolyte Leakage (%)", lty = 1, lwd=2, cex.lab =1.5, cex.axis=1.5, font=2, font.lab=2)
arrows(Exp24[1:3,12], Exp24[1:3,11]-Exp24[1:3,15], Exp24[1:3,12], Exp24[1:3,11]+Exp24[1:3,15], length=0.05, angle=90, code=3, col = "black", lwd=2)
axis(side=1,at=c(24,48, 72),labels=c("24","48","72"), font=2, cex.axis=1.5, family="A", lwd=2)
par(op)
legend(x = 23, y = 40, legend = c(expression('Col-0 Control'), expression('Col-0 840g ha'^'-1'), expression(italic('TOC1')*'-ox Control'), expression(italic('TOC1')*'-ox 840g ha'^'-1')), col = c('black', 'black','red', 'red'), lty = c(1,2,1,2 ), pch=c(15,15,15,15), pt.bg = c('white', 'white', NA,NA), cex = 1.5, bty="n", lwd=2)
par(op)

1 Ответ

0 голосов
/ 19 декабря 2018

Вы можете объединить надстрочный и курсивный текст в легенду следующим образом: 

# make a very simple plot
x <- c(1,3,6,9,12)
y <- c(1.5,2,7,8,15)
plot(x,y, xlab=expression('AB'^'superscript'* italic('some italic text'))))

Звездочкой * обозначено окончание форматирования надстрочного индекса.Текст, который должен быть курсивом, помещается в italic(...)

Вывод:

enter image description here

Теперь, если в легенде несколько ярлыков,просто поместите каждый ярлык в одну expression(...) функцию.Как это 

c(expression('cars'), expression('trucks'^'trucks'* italic(trucks))
...