R italic部分标题

Question

想要从for循环绘制一些图形，其中Sub matching2() Dim myList As Range Dim mySht As Worksheet Set mySht = ThisWorkbook.Worksheets("SheetTest") '<== change "SheetTest" to actual name of your sheet With mySht Set myList = .Range("J2:J" & .Cells(.Rows.Count, 1).End(xlUp).row) With .Cells(2, "G") .Formula = "=if( vlookup($J2," & "J2:J$" & myList.Rows.Count + 1 & ",1,0) - $J2 = 0,""match"",""no match"") " .Copy .Resize(myList.Rows.Count) End With End With End Sub 应该是半斜体和半正常。代码示例应为

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]

但缺少第二条主线。感谢任何想法！

Answer 1

怎么样

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

产生

如果你真的想要两行，你可以做

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