R語(yǔ)言ggplot2作圖如果文字標(biāo)簽包含羅馬數(shù)字兼贡,如何輸出pdf呢?

之前使用ggplot2作圖遇到的問題娃胆,如果圖片中的文本包含羅馬字符紧显,輸出為pdf的時(shí)候就顯示不出來

簡(jiǎn)單的代碼

library(ggplot2)
ggplot()+
  #geom_point(aes(x=1,y=1))+
  geom_text(aes(x=1,y=1),label="\u0251",size=10)+
  geom_text(aes(x=1.5,y=1.5),label="α",size=10)+
  geom_text(aes(x=1.2,y=1.2),label="Ⅰ",size=10)
image.png

Rstudio里顯示是正常的,導(dǎo)出為pdf格式的時(shí)候

image.png

羅馬數(shù)字就是顯示不出來

windows10 下的字符映射表

win+R快捷鍵 輸入 charmap

image.png

今天發(fā)現(xiàn)了解決辦法缕棵,今天的推文在這里介紹給大家

首先這個(gè)字符映射表也是分字體的

image.png

比如這個(gè)Arial字體下就找不到羅馬數(shù)字的內(nèi)容,需要到 Times New Roman字體下才能找到羅馬數(shù)字

image.png
image.png

所以使用Rstudio涉兽,用ggplot2作圖的時(shí)候如果問題標(biāo)簽里含有羅馬數(shù)字招驴,我們必須制定文本的字體是Times New Roman,R語(yǔ)言里對(duì)應(yīng)的字體代碼是serif

比如以下代碼

library(ggplot2)  

ggplot()+
  geom_point(aes(x=1,y=1),size=5)+
  geom_text(aes(x=1.1,y=1.1),label="\u2160",
            size=10)+
  geom_text(aes(x=1.2,y=1.2),label="\u216B",
            size=10,
            family="serif")

兩個(gè)文本標(biāo)簽枷畏,一個(gè)制定字體别厘,另外一個(gè)不指定

導(dǎo)出為pdf文件以后制定字體的就可以顯示正常

image.png

這個(gè)顯示不正常的也可以通過手動(dòng)修改字體的形式讓他顯示正常

image.png

你也可以試下如下的代碼

library(ggplot2)  

dat<-data.frame(label=c("\u2160","\u2161","\u2162","\u2163",
                        "\u2164","\u2165","\u2166","\u2167",
                        "\u2168","\u2169","\u216A","\u216B",
                        "\u216C","\u216D","\u216E","\u216F"),
                x=1:16,
                y=1,
                y1=2)

pdf(file = "abc.pdf",width = 8,height = 4,
    family = "serif")
ggplot(data=dat)+
  #geom_point(aes(x=1,y=1),size=5)+
  geom_text(aes(x=x,y=y,label=label),size=10)+
  geom_text(aes(x=x,y=y1,label=label),size=10,family="serif")
dev.off()

grDevices::cairo_pdf(filename = "abc2.pdf",
                     width = 8,
                     height = 4,
                     family = "serif")
ggplot(data=dat)+
  #geom_point(aes(x=1,y=1),size=5)+
  geom_text(aes(x=x,y=y,label=label),size=10)+
  geom_text(aes(x=x,y=y1,label=label),size=10,family="serif")
dev.off()

歡迎大家關(guān)注我的公眾號(hào)

小明的數(shù)據(jù)分析筆記本

小明的數(shù)據(jù)分析筆記本 公眾號(hào) 主要分享:1、R語(yǔ)言和python做數(shù)據(jù)分析和數(shù)據(jù)可視化的簡(jiǎn)單小例子拥诡;2触趴、園藝植物相關(guān)轉(zhuǎn)錄組學(xué)氮发、基因組學(xué)、群體遺傳學(xué)文獻(xiàn)閱讀筆記冗懦;3爽冕、生物信息學(xué)入門學(xué)習(xí)資料及自己的學(xué)習(xí)筆記!

最后編輯于
?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請(qǐng)聯(lián)系作者
  • 序言:七十年代末披蕉,一起剝皮案震驚了整個(gè)濱河市颈畸,隨后出現(xiàn)的幾起案子,更是在濱河造成了極大的恐慌没讲,老刑警劉巖眯娱,帶你破解...
    沈念sama閱讀 218,755評(píng)論 6 507
  • 序言:濱河連續(xù)發(fā)生了三起死亡事件,死亡現(xiàn)場(chǎng)離奇詭異爬凑,居然都是意外死亡徙缴,警方通過查閱死者的電腦和手機(jī),發(fā)現(xiàn)死者居然都...
    沈念sama閱讀 93,305評(píng)論 3 395
  • 文/潘曉璐 我一進(jìn)店門嘁信,熙熙樓的掌柜王于貴愁眉苦臉地迎上來于样,“玉大人,你說我怎么就攤上這事吱抚“儆睿” “怎么了?”我有些...
    開封第一講書人閱讀 165,138評(píng)論 0 355
  • 文/不壞的土叔 我叫張陵秘豹,是天一觀的道長(zhǎng)携御。 經(jīng)常有香客問我,道長(zhǎng)既绕,這世上最難降的妖魔是什么啄刹? 我笑而不...
    開封第一講書人閱讀 58,791評(píng)論 1 295
  • 正文 為了忘掉前任,我火速辦了婚禮凄贩,結(jié)果婚禮上誓军,老公的妹妹穿的比我還像新娘。我一直安慰自己疲扎,他們只是感情好昵时,可當(dāng)我...
    茶點(diǎn)故事閱讀 67,794評(píng)論 6 392
  • 文/花漫 我一把揭開白布。 她就那樣靜靜地躺著椒丧,像睡著了一般壹甥。 火紅的嫁衣襯著肌膚如雪。 梳的紋絲不亂的頭發(fā)上壶熏,一...
    開封第一講書人閱讀 51,631評(píng)論 1 305
  • 那天句柠,我揣著相機(jī)與錄音,去河邊找鬼。 笑死溯职,一個(gè)胖子當(dāng)著我的面吹牛精盅,可吹牛的內(nèi)容都是我干的。 我是一名探鬼主播谜酒,決...
    沈念sama閱讀 40,362評(píng)論 3 418
  • 文/蒼蘭香墨 我猛地睜開眼叹俏,長(zhǎng)吁一口氣:“原來是場(chǎng)噩夢(mèng)啊……” “哼!你這毒婦竟也來了甚带?” 一聲冷哼從身側(cè)響起她肯,我...
    開封第一講書人閱讀 39,264評(píng)論 0 276
  • 序言:老撾萬榮一對(duì)情侶失蹤,失蹤者是張志新(化名)和其女友劉穎鹰贵,沒想到半個(gè)月后晴氨,有當(dāng)?shù)厝嗽跇淞掷锇l(fā)現(xiàn)了一具尸體,經(jīng)...
    沈念sama閱讀 45,724評(píng)論 1 315
  • 正文 獨(dú)居荒郊野嶺守林人離奇死亡碉输,尸身上長(zhǎng)有42處帶血的膿包…… 初始之章·張勛 以下內(nèi)容為張勛視角 年9月15日...
    茶點(diǎn)故事閱讀 37,900評(píng)論 3 336
  • 正文 我和宋清朗相戀三年籽前,在試婚紗的時(shí)候發(fā)現(xiàn)自己被綠了。 大學(xué)時(shí)的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片敷钾。...
    茶點(diǎn)故事閱讀 40,040評(píng)論 1 350
  • 序言:一個(gè)原本活蹦亂跳的男人離奇死亡枝哄,死狀恐怖,靈堂內(nèi)的尸體忽然破棺而出阻荒,到底是詐尸還是另有隱情挠锥,我是刑警寧澤,帶...
    沈念sama閱讀 35,742評(píng)論 5 346
  • 正文 年R本政府宣布侨赡,位于F島的核電站蓖租,受9級(jí)特大地震影響,放射性物質(zhì)發(fā)生泄漏羊壹。R本人自食惡果不足惜蓖宦,卻給世界環(huán)境...
    茶點(diǎn)故事閱讀 41,364評(píng)論 3 330
  • 文/蒙蒙 一、第九天 我趴在偏房一處隱蔽的房頂上張望油猫。 院中可真熱鬧稠茂,春花似錦、人聲如沸情妖。這莊子的主人今日做“春日...
    開封第一講書人閱讀 31,944評(píng)論 0 22
  • 文/蒼蘭香墨 我抬頭看了看天上的太陽(yáng)毡证。三九已至电爹,卻和暖如春,著一層夾襖步出監(jiān)牢的瞬間情竹,已是汗流浹背。 一陣腳步聲響...
    開封第一講書人閱讀 33,060評(píng)論 1 270
  • 我被黑心中介騙來泰國(guó)打工, 沒想到剛下飛機(jī)就差點(diǎn)兒被人妖公主榨干…… 1. 我叫王不留秦效,地道東北人雏蛮。 一個(gè)月前我還...
    沈念sama閱讀 48,247評(píng)論 3 371
  • 正文 我出身青樓,卻偏偏與公主長(zhǎng)得像阱州,于是被迫代替她去往敵國(guó)和親挑秉。 傳聞我的和親對(duì)象是個(gè)殘疾皇子,可洞房花燭夜當(dāng)晚...
    茶點(diǎn)故事閱讀 44,979評(píng)論 2 355

推薦閱讀更多精彩內(nèi)容