Курсивные и не-курсивные слова в легенде в R?

Question

Мне нужно нанести на график объем найденного образца фиалки с течением времени.В легенде я хочу показать 2 наблюдаемых вида, а также их сумму.Чтобы написать научную корректность, мне также нужен курсив для «Альта» в «Спецификации суммы альта».

Я хочу на самом деле то же самое, что и вышеупомянутый технолог в его настоящей легенде, но я могу 'т воспроизвести его пример словами.Я сделал это простым способом, используя text.font(), но при этом вся строка выделена курсивом.Сокращения кода, который я использовал в main(), не помогли.Возможно ли написать часть в легенде курсивом?

vr <- sample(1:100, 10, replace = TRUE)
vo <- sample(1:100, 10, replace = TRUE)
date <- Sys.Date() + sort(sample(1:10, 10))
vs <- vr + vo
df <- data.frame(vr, vo, date, vs)

plot(
  vs ~ date,
  data = df,
  type = "o",
  ylim = c(0, max(df$vs)),
  col = "black",
  pch = 13,
  cex = 1.2,
  lwd = 2,
  main = expression(paste(italic('Viola'), " spec. [ind]")),
  ylab = "Amount"
)
lines(
  vr ~ date,
  data = df,
  type = "o",
  col = "RoyalBlue2",
  pch = 1,
  cex = 1.2
)
lines(
  vo ~ date,
  data = df,
  type = "o",
  col = "springgreen3",
  pch = 4,
  cex = 1.2
)
legend(
  "topright",
  inset = c(0.01 , 0.02),
  c("Sum of Viola spec.", "Viola odorata", "Viola reichenbachiana"),
  xpd = TRUE,
  pch = c(13, 1, 4),
  pt.cex = 1.2,
  col = c(1, "RoyalBlue2", "springgreen3"),
  cex = .9,
  y.intersp = .9,
  bty = "l",
  bg = rgb(244, 248, 249, max = 255),
  text.font = c(1, 3, 3)
)

Answer 1

Почему бы не использовать expression() и italic(), как вы использовали для своего названия?

legend(
  "topright", 
  inset=c(0.01 ,0.02), 
  c(expression(paste("Sum of ", italic('Viola'), " spec.")), 
    expression(italic("Viola odorata")), 
    expression(italic("Viola reichenbachiana"))
    ), 
  xpd = TRUE,
  pch = c(13, 1, 4), pt.cex=1.2, 
  col = c(1,"RoyalBlue2", "springgreen3"), 
  cex = .9, y.intersp=.9, bty = "l", 
  bg = rgb(244, 248, 249, max = 255), 
  text.font = c(1,3,3)
)