6楼可行, 那我之前找到的方法太复杂了[s:12]:
pdfresource <- paste("/FontDescriptor",<br />
"<<",<br />
"/CapHeight 0 /Ascent 855 /Descent -140 /StemV 0",<br />
"/FontBBox [0 -140 996 855]",<br />
"/ItalicAngle 0 /Flags 6",<br />
">>",<br />
"/Subtype /CIDFontType2",<br />
"/CIDSystemInfo",<br />
"<<",<br />
"/Registry(Adobe)",<br />
"/Ordering(GB1)",<br />
"/Supplement 2",<br />
">>",<br />
"",<br />
sep="\n")</p>
<p> song <- CIDFont("SimSun", "GBK-EUC-H", "GBK", pdfresource)<br />
hei <- CIDFont("SimHei", "GBK-EUC-H", "GBK", pdfresource)<br />
kai <- CIDFont("KaiTi_GB2312", "GBK-EUC-H", "GBK", pdfresource)<br />
fang <- CIDFont("FangSong_GB2312", "GBK-EUC-H", "GBK", pdfresource)<br />
pdfFonts(song = song, hei = hei, fang = fang, kai = kai)<br />
#---------------<br />
plot(1:3,family="song",font = 2)
先是设置一下,然后在plot中加family="song",font = 2
</p>