R語言與醫(yī)學(xué)統(tǒng)計(jì)圖形-【8】顏色的選取

R語言基礎(chǔ)繪圖系統(tǒng)

基礎(chǔ)繪圖包之低級(jí)繪圖函數(shù)——內(nèi)置顏色缠诅、

1.內(nèi)置顏色選取

功能657種內(nèi)置顏色枣抱。colors()

調(diào)色板函數(shù):palette(), rgb(), rainbow()

palette默認(rèn)8種顏色旬痹。

image.png
#重新配置調(diào)色板
palette(rainbow(7))

#恢復(fù)默認(rèn)的調(diào)色板
palette('default')
  • rgb(red,green,blue)函數(shù),分別加入多少紅綠藍(lán)成分,取值0-1灸拍。

  • hsv函數(shù)(hue色調(diào),saturation飽和度砾省,value純度)構(gòu)造顏色鸡岗。

  • hcl函數(shù)(hue,chroma色度,luminance色度和亮度)構(gòu)造顏色编兄。

2. RColorBrewer包

內(nèi)置了三種調(diào)色板:連續(xù)型轩性、極端值、離散型調(diào)色板狠鸳。

  • 連續(xù)型調(diào)色板
    包含18種漸變色揣苏。
library(RColorBrewer)
display.brewer.all(type = 'seq') #連續(xù)型
image.png
age <- rnorm(100,45,10)
hist(age,col = brewer.pal(9,'BuGn'))

image.png
  • 極端值調(diào)色板
display.brewer.all(type = 'div') #極端型
image.png
age <- rnorm(100,45,10)
hist(age,col=brewer.pal(11,'BrBG'))
image.png
  • 離散型調(diào)色板
    顏色間差異最大悯嗓,主要用于分類變量。
display.brewer.all(type = 'qual') #離散型
image.png
data <- data.frame(胃癌=c(3493,2454,3252),
                     肺癌=c(4632,3632,4742),
                     食管癌=c(2142,1632,2314),
                     肝癌=c(3642,2353,2932),
                     白血病=c(1934,1209,883))
barplot(as.matrix(data),beside = T,col = brewer.pal(3,'Set1'))
legend('topright',legend = c('0-49','50-64','>65'),
       col = brewer.pal(3,'Set1'),pch = 15)
  • 自定義調(diào)色板: colorRampPalette

color <- brewer.pal(4,'Dark2')
mycolor <- colorRampPalette(color)(15)
#從色系中提取4種顏色卸察,再細(xì)分成15種顏色
value <- sample(20:100,10)
barplot(value,col = mycolor)
image.png

3. colourpicker插件

功能是展示一個(gè)顏色板脯厨,自己挑選合適的顏色。插件安裝后在Rstudio中的位置如下:


image.png
library(colourpicker)
library(ggplot2)
ggplot(mtcars,aes(mpg,wt))+
  geom_point(aes(color=factor(cyl)))+
  scale_color_manual(values = CPCOLS) 
#CPCOLS在上圖中選取顏色
最后編輯于
?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請(qǐng)聯(lián)系作者
  • 序言:七十年代末坑质,一起剝皮案震驚了整個(gè)濱河市合武,隨后出現(xiàn)的幾起案子,更是在濱河造成了極大的恐慌涡扼,老刑警劉巖稼跳,帶你破解...
    沈念sama閱讀 206,839評(píng)論 6 482
  • 序言:濱河連續(xù)發(fā)生了三起死亡事件,死亡現(xiàn)場(chǎng)離奇詭異吃沪,居然都是意外死亡岂贩,警方通過查閱死者的電腦和手機(jī),發(fā)現(xiàn)死者居然都...
    沈念sama閱讀 88,543評(píng)論 2 382
  • 文/潘曉璐 我一進(jìn)店門巷波,熙熙樓的掌柜王于貴愁眉苦臉地迎上來萎津,“玉大人,你說我怎么就攤上這事抹镊★鼻” “怎么了?”我有些...
    開封第一講書人閱讀 153,116評(píng)論 0 344
  • 文/不壞的土叔 我叫張陵垮耳,是天一觀的道長(zhǎng)颈渊。 經(jīng)常有香客問我,道長(zhǎ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
  • 文/蒼蘭香墨 我猛地睜開眼,長(zhǎng)吁一口氣:“原來是場(chǎng)噩夢(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ú)居荒郊野嶺守林人離奇死亡澡谭,尸身上長(zhǎng)有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
  • 我被黑心中介騙來泰國(guó)打工, 沒想到剛下飛機(jī)就差點(diǎn)兒被人妖公主榨干…… 1. 我叫王不留廉嚼,地道東北人玫镐。 一個(gè)月前我還...
    沈念sama閱讀 45,578評(píng)論 2 355
  • 正文 我出身青樓,卻偏偏與公主長(zhǎng)得像怠噪,于是被迫代替她去往敵國(guó)和親恐似。 傳聞我的和親對(duì)象是個(gè)殘疾皇子,可洞房花燭夜當(dāng)晚...
    茶點(diǎn)故事閱讀 42,877評(píng)論 2 345