ggplot2 圖例

p = ggplot(index, aes(x=Site, y=chao1))+

? ? geom_boxplot(alpha=1, outlier.size=0, size=0.7, width=0.5, fill="transparent") +

? ? theme(axis.text.x = element_text(angle = 45, hjust = 0.99, vjust = 0.99)) +

? ? geom_jitter( position=position_jitter(0.17), size=1, alpha=0.7)+

? ? labs(x="site", y="chao1 index")


ggplot2中的legend包括四個(gè)部分:

legend.tittle, legend.text, legend.key, legend.backgroud尸诽。

針對(duì)每一部分有四種處理方式

element_text()繪制標(biāo)簽和標(biāo)題歼疮,可控制字體的family, face, colour, size, hjust, vjust, angle, lineheight,當(dāng)改變角度時(shí)攒至,序?qū)just調(diào)整至0或1.(距離x軸的遠(yuǎn)近)

element_rect()繪制主要供背景使用的矩形鬓椭,你可以控制顏色的填充(fill)和邊界的colour, size, linetype

element_blank()表示空主題,即對(duì)元素不分配相應(yīng)的繪圖空間唉韭。該函數(shù)可以山區(qū)我們不感興趣的繪圖元素纤控。使用之前的colour=NA敌完,fill=NA,讓某些元素不可見,但仍然占繪圖空間钝荡。

element_get()可得到當(dāng)前主題的設(shè)置街立。

theme()可在一幅圖中對(duì)某些元素進(jìn)行局部性修改,theme_update()可為后面圖形的繪制進(jìn)行全局性的修改埠通。

不加Legend

p+theme(legend.position='none');

刪除legend.tittle

p+theme(legend.title=element_blank())

圖例(legend)的位置

圖例(legend)的位置和對(duì)齊使用的主題設(shè)置legend.position來控制赎离,其值可為right,left,top,bottom,none(不加圖例,或是一個(gè)表示位置的數(shù)值端辱。這個(gè)數(shù)值型位置由legend.justfication給定的相對(duì)邊角位置表示(取0和1之間的值)梁剔,它是一個(gè)長度為2的數(shù)值型向量:右上角為c(1,1),左下角為c(0,0)

例如:p+theme(legend.position=”left”)

修改legend.tittle內(nèi)容

p+scale_colour_hue("what does it eat?",breaks=c("herbi","carni","omni",NA),labels=c("plants","meat","both","don't know"));

修改尺寸大小

p+theme(legend.background=element_rect(colour="purple",fill="pink",size=3,linetype="dashed"));

p+theme(legend.key.size=unit(2,'cm'));

p+theme(legend.key.width=unit(5,'cm'));

p+theme(legend.text = element_text(colour = 'red', angle = 45, size = 10, hjust = 3, vjust = 3, face = 'bold'))

報(bào)錯(cuò):could not find function "unit"

解決辦法:library(grid)

顏色的修改以及一致性:

library(RColorBrewer);

newpalette<-colorRampPalette(brewer.pal(12,"Set3"))(length(unique(eee$name)));

p+scale_fill_manual(values=newpalette);

p+geom_bar(position="stack",aes(order=desc(name)))

?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請(qǐng)聯(lián)系作者
  • 序言:七十年代末虽画,一起剝皮案震驚了整個(gè)濱河市,隨后出現(xiàn)的幾起案子憾朴,更是在濱河造成了極大的恐慌狸捕,老刑警劉巖,帶你破解...
    沈念sama閱讀 206,839評(píng)論 6 482
  • 序言:濱河連續(xù)發(fā)生了三起死亡事件众雷,死亡現(xiàn)場離奇詭異灸拍,居然都是意外死亡,警方通過查閱死者的電腦和手機(jī)砾省,發(fā)現(xiàn)死者居然都...
    沈念sama閱讀 88,543評(píng)論 2 382
  • 文/潘曉璐 我一進(jìn)店門鸡岗,熙熙樓的掌柜王于貴愁眉苦臉地迎上來,“玉大人编兄,你說我怎么就攤上這事轩性。” “怎么了狠鸳?”我有些...
    開封第一講書人閱讀 153,116評(píng)論 0 344
  • 文/不壞的土叔 我叫張陵揣苏,是天一觀的道長。 經(jīng)常有香客問我件舵,道長卸察,這世上最難降的妖魔是什么? 我笑而不...
    開封第一講書人閱讀 55,371評(píng)論 1 279
  • 正文 為了忘掉前任铅祸,我火速辦了婚禮坑质,結(jié)果婚禮上,老公的妹妹穿的比我還像新娘临梗。我一直安慰自己涡扼,他們只是感情好,可當(dāng)我...
    茶點(diǎn)故事閱讀 64,384評(píng)論 5 374
  • 文/花漫 我一把揭開白布盟庞。 她就那樣靜靜地躺著吃沪,像睡著了一般。 火紅的嫁衣襯著肌膚如雪茫经。 梳的紋絲不亂的頭發(fā)上巷波,一...
    開封第一講書人閱讀 49,111評(píng)論 1 285
  • 那天,我揣著相機(jī)與錄音卸伞,去河邊找鬼抹镊。 笑死,一個(gè)胖子當(dāng)著我的面吹牛荤傲,可吹牛的內(nèi)容都是我干的垮耳。 我是一名探鬼主播,決...
    沈念sama閱讀 38,416評(píng)論 3 400
  • 文/蒼蘭香墨 我猛地睜開眼,長吁一口氣:“原來是場噩夢(mèng)啊……” “哼终佛!你這毒婦竟也來了俊嗽?” 一聲冷哼從身側(cè)響起,我...
    開封第一講書人閱讀 37,053評(píng)論 0 259
  • 序言:老撾萬榮一對(duì)情侶失蹤铃彰,失蹤者是張志新(化名)和其女友劉穎绍豁,沒想到半個(gè)月后,有當(dāng)?shù)厝嗽跇淞掷锇l(fā)現(xiàn)了一具尸體牙捉,經(jīng)...
    沈念sama閱讀 43,558評(píng)論 1 300
  • 正文 獨(dú)居荒郊野嶺守林人離奇死亡竹揍,尸身上長有42處帶血的膿包…… 初始之章·張勛 以下內(nèi)容為張勛視角 年9月15日...
    茶點(diǎn)故事閱讀 36,007評(píng)論 2 325
  • 正文 我和宋清朗相戀三年,在試婚紗的時(shí)候發(fā)現(xiàn)自己被綠了邪铲。 大學(xué)時(shí)的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片芬位。...
    茶點(diǎn)故事閱讀 38,117評(píng)論 1 334
  • 序言:一個(gè)原本活蹦亂跳的男人離奇死亡,死狀恐怖带到,靈堂內(nèi)的尸體忽然破棺而出昧碉,到底是詐尸還是另有隱情,我是刑警寧澤揽惹,帶...
    沈念sama閱讀 33,756評(píng)論 4 324
  • 正文 年R本政府宣布被饿,位于F島的核電站,受9級(jí)特大地震影響搪搏,放射性物質(zhì)發(fā)生泄漏锹漱。R本人自食惡果不足惜,卻給世界環(huán)境...
    茶點(diǎn)故事閱讀 39,324評(píng)論 3 307
  • 文/蒙蒙 一慕嚷、第九天 我趴在偏房一處隱蔽的房頂上張望。 院中可真熱鬧毕泌,春花似錦喝检、人聲如沸。這莊子的主人今日做“春日...
    開封第一講書人閱讀 30,315評(píng)論 0 19
  • 文/蒼蘭香墨 我抬頭看了看天上的太陽。三九已至愿题,卻和暖如春损俭,著一層夾襖步出監(jiān)牢的瞬間,已是汗流浹背潘酗。 一陣腳步聲響...
    開封第一講書人閱讀 31,539評(píng)論 1 262
  • 我被黑心中介騙來泰國打工杆兵, 沒想到剛下飛機(jī)就差點(diǎn)兒被人妖公主榨干…… 1. 我叫王不留,地道東北人仔夺。 一個(gè)月前我還...
    沈念sama閱讀 45,578評(píng)論 2 355
  • 正文 我出身青樓琐脏,卻偏偏與公主長得像,于是被迫代替她去往敵國和親。 傳聞我的和親對(duì)象是個(gè)殘疾皇子日裙,可洞房花燭夜當(dāng)晚...
    茶點(diǎn)故事閱讀 42,877評(píng)論 2 345

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