【R語言】--- 分組點(diǎn)圖

基本簡(jiǎn)介

分組點(diǎn)圖屁擅,與分組柱狀圖類似,當(dāng)需要在同一個(gè)軸上顯示各個(gè)分類下不同的分組時(shí),需要用到分組柱狀圖氏身。論文中常見的分組箱型圖和分組條形圖(柱狀圖)可以直觀的比較方法的效果,以一個(gè)圖顯示多個(gè)方法在多個(gè)數(shù)據(jù)集上的結(jié)果惑畴。但也有文獻(xiàn)常常使用分組點(diǎn)圖來展示結(jié)果蛋欣。本文使用ggplot2包繪制分組有誤差棒的點(diǎn)圖,這種圖中間的點(diǎn)代表均值如贷,誤差線表示上限和下限(也可以是標(biāo)準(zhǔn)差或者標(biāo)準(zhǔn)誤)陷虎。

基本用法

ggplot2包:geom_point()函數(shù)結(jié)合geom_errorbar()函數(shù)

###geom_point()
geom_point(
  mapping = NULL,
  data = NULL,
  stat = "identity",
  position = "identity",
  ...,
  na.rm = FALSE,
  show.legend = NA,
  inherit.aes = TRUE
)
###geom_errorbar()
geom_errorbar(
  mapping = NULL,
  data = NULL,
  stat = "identity",
  position = "identity",
  ...,
  na.rm = FALSE,
  orientation = NA,
  show.legend = NA,
  inherit.aes = TRUE
)
###具體幫助可以在Rstudio中加載ggplot2包后使用?geom_point()和?geom_errorbar()分別查看官方幫助文件

示例代碼

#清空環(huán)境
rm(list = ls())
#加載導(dǎo)入數(shù)據(jù)的readxl包和作圖的ggplot2包
library(readxl)
library(ggplot2)
#喜歡新羅馬字體的可以使用windowsFonts()函數(shù)查看電腦字體,進(jìn)行選擇Times New Roman
windowsFonts()
#讀入示例數(shù)據(jù)
df<-read_xlsx("D:/Users/ASUS/Desktop/test.xlsx", sheet = "test")
#查看數(shù)據(jù)
df

這里的數(shù)據(jù)是示例數(shù)據(jù)杠袱,不是真實(shí)的數(shù)據(jù)尚猿,實(shí)際作圖過程中可以替換成自己的數(shù)據(jù)。Treatment為處理(包括A楣富、B凿掂、C、D四個(gè)處理)纹蝴,Yield為產(chǎn)量數(shù)據(jù)(由于本數(shù)據(jù)為示例數(shù)據(jù)庄萎,因此這里不添加單位),Low和Up分別為上限和下限(也可以為標(biāo)準(zhǔn)誤或者標(biāo)準(zhǔn)差塘安,根據(jù)自己情況選擇)糠涛,Site為不同的的研究地點(diǎn)(包括LL和OO兩個(gè)地點(diǎn)),Type為不同的作物類型(Corn和Wheat)

##作圖
ggplot(df, aes(x = Treatment, y=Yield, color = Type))+
  geom_errorbar(aes(ymin=Low, ymax=Up), width=.3,position = position_dodge(0.8))+
  geom_point(shape = 19, size = 3,position = position_dodge(0.8))+
  theme_bw()+
  theme(legend.text=element_text(size=14))+
  theme(title=element_text(size=14))+
  theme(axis.text.x = element_text(size = 14, color = "black"))+
  theme(axis.text.y = element_text(size = 14, color = "black"))+
  facet_grid(Site~.)+ #這里根據(jù)Site進(jìn)行分面
  ylab("Yield")+
  guides(color=guide_legend(title = "Type"))+
  theme(text=element_text(size=14,  family="serif"))#這里設(shè)置字體類型(我們選擇Times New Roman)

若不設(shè)置字體的話兼犯,則默認(rèn)為Arial格式的字體


參考文獻(xiàn)

[1] https://r-graph-gallery.com/ggplot2-package.html
[2] https://cran.r-project.org/web/packages/ggplot2/index.html
[3] https://www.tutorialspoint.com/ggplot2/ggplot2_quick_guide.htm
[4] https://ggplot2.tidyverse.org/

?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請(qǐng)聯(lián)系作者
  • 序言:七十年代末脱羡,一起剝皮案震驚了整個(gè)濱河市,隨后出現(xiàn)的幾起案子免都,更是在濱河造成了極大的恐慌锉罐,老刑警劉巖,帶你破解...
    沈念sama閱讀 219,490評(píng)論 6 508
  • 序言:濱河連續(xù)發(fā)生了三起死亡事件绕娘,死亡現(xiàn)場(chǎng)離奇詭異脓规,居然都是意外死亡,警方通過查閱死者的電腦和手機(jī)险领,發(fā)現(xiàn)死者居然都...
    沈念sama閱讀 93,581評(píng)論 3 395
  • 文/潘曉璐 我一進(jìn)店門侨舆,熙熙樓的掌柜王于貴愁眉苦臉地迎上來,“玉大人绢陌,你說我怎么就攤上這事挨下。” “怎么了脐湾?”我有些...
    開封第一講書人閱讀 165,830評(píng)論 0 356
  • 文/不壞的土叔 我叫張陵臭笆,是天一觀的道長(zhǎng)。 經(jīng)常有香客問我,道長(zhǎng)愁铺,這世上最難降的妖魔是什么鹰霍? 我笑而不...
    開封第一講書人閱讀 58,957評(píng)論 1 295
  • 正文 為了忘掉前任,我火速辦了婚禮茵乱,結(jié)果婚禮上茂洒,老公的妹妹穿的比我還像新娘。我一直安慰自己瓶竭,他們只是感情好督勺,可當(dāng)我...
    茶點(diǎn)故事閱讀 67,974評(píng)論 6 393
  • 文/花漫 我一把揭開白布。 她就那樣靜靜地躺著斤贰,像睡著了一般玷氏。 火紅的嫁衣襯著肌膚如雪。 梳的紋絲不亂的頭發(fā)上腋舌,一...
    開封第一講書人閱讀 51,754評(píng)論 1 307
  • 那天盏触,我揣著相機(jī)與錄音,去河邊找鬼块饺。 笑死赞辩,一個(gè)胖子當(dāng)著我的面吹牛,可吹牛的內(nèi)容都是我干的授艰。 我是一名探鬼主播辨嗽,決...
    沈念sama閱讀 40,464評(píng)論 3 420
  • 文/蒼蘭香墨 我猛地睜開眼,長(zhǎng)吁一口氣:“原來是場(chǎng)噩夢(mèng)啊……” “哼淮腾!你這毒婦竟也來了糟需?” 一聲冷哼從身側(cè)響起,我...
    開封第一講書人閱讀 39,357評(píng)論 0 276
  • 序言:老撾萬榮一對(duì)情侶失蹤谷朝,失蹤者是張志新(化名)和其女友劉穎洲押,沒想到半個(gè)月后,有當(dāng)?shù)厝嗽跇淞掷锇l(fā)現(xiàn)了一具尸體圆凰,經(jīng)...
    沈念sama閱讀 45,847評(píng)論 1 317
  • 正文 獨(dú)居荒郊野嶺守林人離奇死亡杈帐,尸身上長(zhǎng)有42處帶血的膿包…… 初始之章·張勛 以下內(nèi)容為張勛視角 年9月15日...
    茶點(diǎn)故事閱讀 37,995評(píng)論 3 338
  • 正文 我和宋清朗相戀三年,在試婚紗的時(shí)候發(fā)現(xiàn)自己被綠了专钉。 大學(xué)時(shí)的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片挑童。...
    茶點(diǎn)故事閱讀 40,137評(píng)論 1 351
  • 序言:一個(gè)原本活蹦亂跳的男人離奇死亡,死狀恐怖跃须,靈堂內(nèi)的尸體忽然破棺而出站叼,到底是詐尸還是另有隱情,我是刑警寧澤菇民,帶...
    沈念sama閱讀 35,819評(píng)論 5 346
  • 正文 年R本政府宣布尽楔,位于F島的核電站投储,受9級(jí)特大地震影響,放射性物質(zhì)發(fā)生泄漏翔试。R本人自食惡果不足惜轻要,卻給世界環(huán)境...
    茶點(diǎn)故事閱讀 41,482評(píng)論 3 331
  • 文/蒙蒙 一复旬、第九天 我趴在偏房一處隱蔽的房頂上張望垦缅。 院中可真熱鬧,春花似錦驹碍、人聲如沸壁涎。這莊子的主人今日做“春日...
    開封第一講書人閱讀 32,023評(píng)論 0 22
  • 文/蒼蘭香墨 我抬頭看了看天上的太陽怔球。三九已至,卻和暖如春浮还,著一層夾襖步出監(jiān)牢的瞬間竟坛,已是汗流浹背。 一陣腳步聲響...
    開封第一講書人閱讀 33,149評(píng)論 1 272
  • 我被黑心中介騙來泰國(guó)打工钧舌, 沒想到剛下飛機(jī)就差點(diǎn)兒被人妖公主榨干…… 1. 我叫王不留担汤,地道東北人。 一個(gè)月前我還...
    沈念sama閱讀 48,409評(píng)論 3 373
  • 正文 我出身青樓洼冻,卻偏偏與公主長(zhǎng)得像崭歧,于是被迫代替她去往敵國(guó)和親。 傳聞我的和親對(duì)象是個(gè)殘疾皇子撞牢,可洞房花燭夜當(dāng)晚...
    茶點(diǎn)故事閱讀 45,086評(píng)論 2 355

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