R语言用斜体字反复表示gera

很抱歉这个愚蠢的问题，我已经在谷歌搜索了一段时间，没有找到解决办法。我需要迭代地创建几个图，其中的标题1是从先前创建的向量中选取的，2必须是斜体。 我尝试了几种没有足够结果的方法，比如：

# Main titles
m <- paste(LETTERS[1:10], LETTERS[11:20])
# Plots
for(i in 1:10){
     x <- runif(10, 1, 20)
     y <- runif(10, 1, 20)
     X11()
     plot(x,y, main = expression(italic(m[i])))
}

---

但我得到的是以m为下标，I为下标的图，而不是向量中相应的内容。有什么想法吗？

这是实现你想要的目标的方法

# Main titles
m <- paste(LETTERS[1:10], LETTERS[11:20])
# Plots
for(i in 1:10){
  x <- runif(10, 1, 20)
  y <- runif(10, 1, 20)
  X11()
  plot(x,y, main = substitute(paste(italic(x)), list(x = m[i])))
}

情节之一 另一种选择是使用bquote。中的表达式。将评估：

plot(x,y, main = bquote(italic(.(m[i]))) )