R语言斜体迭代化

Question

很抱歉，这个问题很愚蠢，我已经在谷歌上搜索了一段时间，没有找到解决办法。我需要迭代地创建几个情节，其标题是(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”作为下标的情节，而不是向量中相应的内容。有什么想法吗？

Answer 1

以下是实现你想要的东西的方法

# 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])))
}

其中一个情节

​

Answer 2

另一种选择是使用bquote。将对.()中的表达式进行评估：

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

​

​