R語(yǔ)言基礎(chǔ)學(xué)習(xí)系列四-用ggplot2 畫小提琴圖

數(shù)據(jù)下載來(lái)源于:
https://raw.githubusercontent.com/holtzy/data_to_viz/master/Example_dataset/10_OneNumSevCatSubgroupsSevObs.csv

參考代碼來(lái)自于:Violin plot with ggstatsplot – the R Graph Gallery (r-graph-gallery.com)
大家可以一起共同學(xué)習(xí)
此次用的包是ggstatsplot

install.packages(c("ggstatsplot","palmerpenguins","tidyverse"))
library(ggstatsplot)
library(palmerpenguins)
library(tidyverse)
library(rstantools)
#上傳數(shù)據(jù)
getwd()
y <- read.table("D:/biolearning/Rcourse/happy.txt", header=T, sep=",")
x <- data.frame(y)#轉(zhuǎn)換數(shù)據(jù)類型
class(x)#確認(rèn)數(shù)據(jù)類型是否轉(zhuǎn)換成功
#先刪除缺失值
x <- drop_na(x)
x
view(x)#查看輸入的數(shù)據(jù)類型
colnames(x)#查看列名
#基礎(chǔ)繪圖
plt <- ggbetweenstats(
  data = x,
  x = sex,
  y = total_bill
)
plt

基礎(chǔ)圖繪制結(jié)果


Rplot01.png
#添加標(biāo)題和標(biāo)簽
plt <- plt + 
  # Add labels and title
  labs(
    x = "sex",
    y = "total_bill",
    title = "the money"#加標(biāo)題
  ) + 
  # Customizations
  theme(
    # This is the new default font in the plot
    text = element_text(family = "Roboto", size = 8, color = "black"),
    plot.title = element_text(
      family = "Lobster Two", 
      size = 20,
      face = "bold",
      color = "#2a475e"
    ),
    # Statistical annotations below the main title
    plot.subtitle = element_text(
      family = "Roboto", 
      size = 15, 
      face = "bold",
      color="#1b2838"
    ),
    plot.title.position = "plot", # slightly different from default
    axis.text = element_text(size = 10, color = "black"),
    axis.title = element_text(size = 12)
  )
plt

添加標(biāo)簽后的圖


Rplot02-lab.png
# 1. 刪除軸刻度
# 2. 用較淺的顏色更改軸線的默認(rèn)顏色
# 3. 刪除大部分參考線溢吻,只保留主要的水平線
# 4. 將面板和背景填充設(shè)置為相同的淺色

plt <- plt  +
  theme(
    axis.ticks = element_blank(),
    axis.line = element_line(colour = "grey50"),
    panel.grid = element_line(color = "#b4aea9"),
    panel.grid.minor = element_blank(),
    panel.grid.major.x = element_blank(),
    panel.grid.major.y = element_line(linetype = "dashed"),
    panel.background = element_rect(fill = "#fbf9f4", color = "#fbf9f4"),
    plot.background = element_rect(fill = "#fbf9f4", color = "#fbf9f4")
  )

保存照片

#使用ggsave儲(chǔ)存照片格式為png
ggsave("happy.png", plot = plt,width = 8,height = 8)

image.png

happy.png
?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請(qǐng)聯(lián)系作者
  • 序言:七十年代末困介,一起剝皮案震驚了整個(gè)濱河市颅悉,隨后出現(xiàn)的幾起案子,更是在濱河造成了極大的恐慌栗竖,老刑警劉巖,帶你破解...
    沈念sama閱讀 222,729評(píng)論 6 517
  • 序言:濱河連續(xù)發(fā)生了三起死亡事件,死亡現(xiàn)場(chǎng)離奇詭異晦攒,居然都是意外死亡,警方通過(guò)查閱死者的電腦和手機(jī)得哆,發(fā)現(xiàn)死者居然都...
    沈念sama閱讀 95,226評(píng)論 3 399
  • 文/潘曉璐 我一進(jìn)店門脯颜,熙熙樓的掌柜王于貴愁眉苦臉地迎上來(lái),“玉大人贩据,你說(shuō)我怎么就攤上這事栋操。” “怎么了饱亮?”我有些...
    開(kāi)封第一講書人閱讀 169,461評(píng)論 0 362
  • 文/不壞的土叔 我叫張陵矾芙,是天一觀的道長(zhǎng)。 經(jīng)常有香客問(wèn)我近上,道長(zhǎng)剔宪,這世上最難降的妖魔是什么? 我笑而不...
    開(kāi)封第一講書人閱讀 60,135評(píng)論 1 300
  • 正文 為了忘掉前任壹无,我火速辦了婚禮歼跟,結(jié)果婚禮上,老公的妹妹穿的比我還像新娘格遭。我一直安慰自己哈街,他們只是感情好,可當(dāng)我...
    茶點(diǎn)故事閱讀 69,130評(píng)論 6 398
  • 文/花漫 我一把揭開(kāi)白布拒迅。 她就那樣靜靜地躺著骚秦,像睡著了一般。 火紅的嫁衣襯著肌膚如雪璧微。 梳的紋絲不亂的頭發(fā)上作箍,一...
    開(kāi)封第一講書人閱讀 52,736評(píng)論 1 312
  • 那天,我揣著相機(jī)與錄音前硫,去河邊找鬼胞得。 笑死,一個(gè)胖子當(dāng)著我的面吹牛屹电,可吹牛的內(nèi)容都是我干的阶剑。 我是一名探鬼主播跃巡,決...
    沈念sama閱讀 41,179評(píng)論 3 422
  • 文/蒼蘭香墨 我猛地睜開(kāi)眼,長(zhǎng)吁一口氣:“原來(lái)是場(chǎng)噩夢(mèng)啊……” “哼牧愁!你這毒婦竟也來(lái)了素邪?” 一聲冷哼從身側(cè)響起,我...
    開(kāi)封第一講書人閱讀 40,124評(píng)論 0 277
  • 序言:老撾萬(wàn)榮一對(duì)情侶失蹤猪半,失蹤者是張志新(化名)和其女友劉穎兔朦,沒(méi)想到半個(gè)月后,有當(dāng)?shù)厝嗽跇?shù)林里發(fā)現(xiàn)了一具尸體磨确,經(jīng)...
    沈念sama閱讀 46,657評(píng)論 1 320
  • 正文 獨(dú)居荒郊野嶺守林人離奇死亡沽甥,尸身上長(zhǎng)有42處帶血的膿包…… 初始之章·張勛 以下內(nèi)容為張勛視角 年9月15日...
    茶點(diǎn)故事閱讀 38,723評(píng)論 3 342
  • 正文 我和宋清朗相戀三年,在試婚紗的時(shí)候發(fā)現(xiàn)自己被綠了乏奥。 大學(xué)時(shí)的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片摆舟。...
    茶點(diǎn)故事閱讀 40,872評(píng)論 1 353
  • 序言:一個(gè)原本活蹦亂跳的男人離奇死亡,死狀恐怖英融,靈堂內(nèi)的尸體忽然破棺而出盏檐,到底是詐尸還是另有隱情,我是刑警寧澤驶悟,帶...
    沈念sama閱讀 36,533評(píng)論 5 351
  • 正文 年R本政府宣布胡野,位于F島的核電站,受9級(jí)特大地震影響痕鳍,放射性物質(zhì)發(fā)生泄漏硫豆。R本人自食惡果不足惜,卻給世界環(huán)境...
    茶點(diǎn)故事閱讀 42,213評(píng)論 3 336
  • 文/蒙蒙 一笼呆、第九天 我趴在偏房一處隱蔽的房頂上張望熊响。 院中可真熱鬧,春花似錦诗赌、人聲如沸汗茄。這莊子的主人今日做“春日...
    開(kāi)封第一講書人閱讀 32,700評(píng)論 0 25
  • 文/蒼蘭香墨 我抬頭看了看天上的太陽(yáng)洪碳。三九已至,卻和暖如春叼屠,著一層夾襖步出監(jiān)牢的瞬間瞳腌,已是汗流浹背。 一陣腳步聲響...
    開(kāi)封第一講書人閱讀 33,819評(píng)論 1 274
  • 我被黑心中介騙來(lái)泰國(guó)打工镜雨, 沒(méi)想到剛下飛機(jī)就差點(diǎn)兒被人妖公主榨干…… 1. 我叫王不留嫂侍,地道東北人。 一個(gè)月前我還...
    沈念sama閱讀 49,304評(píng)論 3 379
  • 正文 我出身青樓,卻偏偏與公主長(zhǎng)得像挑宠,于是被迫代替她去往敵國(guó)和親菲盾。 傳聞我的和親對(duì)象是個(gè)殘疾皇子,可洞房花燭夜當(dāng)晚...
    茶點(diǎn)故事閱讀 45,876評(píng)論 2 361

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