Как сделать одно слово курсивом в легенде в базе R - PullRequest
Новая
       11

Как сделать одно слово курсивом в легенде в базе R

0 голосов
/ 25 сентября 2018

У меня есть этот кусок кода, я не могу не взломать.Я хочу сделать одно слово курсивом в моей легенде и использовать это в цикле.Строка кода выделена жирным шрифтом.

legend('top', paste(italic(increase$Gene[i]), increase$Sex[i], increase$Drug[i]), bty='n', text.font=2, cex=4.0)

Это было бы чрезвычайно полезно.Пока онлайн не помогло.

См. Прикрепленный код: 

pdf(file= "/Users/cahighfi/Desktop/MaleCocaineConsumptionPlots_UbiInc.pdf", width = 30, height = 30);
par(mfrow = c(4, 4),     # 2x2 layout
      oma = c(2, 2, 0, 0), # two rows of text at the outer left and bottom margin
      mar = c(5, 5, 2, 1)+0.1, # space for one row of text at ticks and to separate plots
      mgp = c(2, 1, 0),    # axis label at 2 rows distance, tick labels at 1 row
      xpd = NA) 
x<-1:3
for (i in 1:nrow(increase)) {
  plot(x=c(1, 3), increase[i,2:3], type="o", col= "red1", ylim=c(-40,40), cex.main=3.0, ylab ="", xlab="", axes=F, lwd=8)
  axis(side=1, at=c(1,3), labels=c(1,3), cex.axis=3.0, font = 2)
  axis(side=2, cex.axis=3.0, font = 2)
  box()
  lines(x=c(1, 3), increase[i,4:5], type="o", col= "blue1", lwd=8)
  legend('top', paste(italic(increase$Gene[i]), increase$Sex[i], increase$Drug[i]), bty='n', text.font=2, cex=4.0)
  legend('bottom', paste("P", "=", increase$p.value_chng_pref[i]), text.font=4, cex=4.0, bty='n')
   mtext("Preference", side=2, line=3.25, cex=2.5, font = 2);
   mtext("Exposure", side=1, line=2, cex=2.5, font = 2);
 }
 dev.off()
 graphics.off()
...