斜体部分标题

R italic partial title

a 想从 for 循环中绘制一些图形,其中 main 应该一半是斜体,一半是正常的。代码示例应该是

 a1<-1:20
 a2<-sample(a1)
 b1<-sample(a1)
 b2<-sample(a1)
 a<-list(a1, a2)
 b<-list(b1, b2)
 v<-c("a", "b")
 for(i in 1:2){
 jpeg(file=sprintf("%s.jpg", v[i]))
 plot(a[[i]], b[[i]], main=c("sas", v[i]))
 dev.off()}

但是 v[i] 应该是斜体。我试过了

 plot(a[[i]], b[[i]], main=c("sas", expression(italic(v[i]))))

但是main的第二行不见了。感谢任何想法!

怎么样

 plot(a[[i]], b[[i]], main=bquote("sas"~italic(.(v[i]))))

产生

如果你真的想要两行,你可以这样做

plot(a[[i]], b[[i]], main=bquote(atop("sas",italic(.(v[i])))))