R繪圖 | 山巒圖(ggridges)
ridgeline.jpg
整個(gè)新系列忌穿。目前的幾個(gè)系列， #R實(shí)戰(zhàn) 以生信分析為主结啼， #跟著CNS學(xué)作圖 以復(fù)現(xiàn)頂刊Figure為主掠剑，而本系列 #R繪圖 則是學(xué)習(xí)不在文章中但同樣很好看的圖，致力于給同學(xué)們?cè)跀?shù)據(jù)可視化中提供新的思路和方法郊愧。
22
本期圖片
top_names.png
這個(gè)圖是美國(guó)1900年至今最常見的10個(gè)女孩姓名及其人數(shù)的可視化展示朴译。
ggridges對(duì)時(shí)間或者空間分布可視化具有十分好的效果。
示例數(shù)據(jù)和代碼領(lǐng)取
https://mp.weixin.qq.com/s/zvTnITDjOL-atRBdOnmUUQ
繪制
# 加載相關(guān)包
library(ggridges) # 山巒圖
library(viridis) # 配色
library(extrafont) # 字體
# 導(dǎo)入數(shù)據(jù)
female_names <- read.csv("female_names.csv")
#開始繪制
theme_set(theme_light()) # 主題
plot1 <- ggplot(female_names,
aes(year, y=fct_reorder(name, n),
height = n/50000, #降低高度以便可視化
group = name)) +
geom_ridgeline(alpha=0.5, size = 0,scale = 1.5, # scale縮放山巒高度属铁，1為原比例
fill = "#05595B", color = "white") +
xlim(1900,NA) +
labs(title = '10 most common given female names\n in the US since 1900', y ="", x="") +
theme(plot.title = element_text(hjust = 0, family = "Bahnschrift", size =10),
axis.ticks.y = element_blank(),
axis.text = element_text(family = "Bahnschrift", size = 7),
panel.grid.major.x = element_blank(),
panel.grid.minor.x = element_blank(),
panel.grid.major.y = element_line(size =0.5),
panel.border = element_blank()) +
geom_segment(aes(x=1967, xend=1967, y=11.9, yend=10.7), # 相當(dāng)于畫個(gè)比例尺
color = "#404040") +
geom_segment(aes(x=1967, xend=1964, y=11.9, yend=11.9),
color = "#404040") +
annotate(geom = "text", x = 1970, y = 11.5,
label = "73,982 babies called\n'Mary'in 1921", hjust = "left",
size = 3, color = "#404040", family = "Bahnschrift")
plot1
#saving
ggsave("top_names.png",
plot1,
height = 4, width = 5,
dpi = 300,
bg = "white")
[圖片上傳失敗...(image-6a32f3-1651981390916)]
參考
往期內(nèi)容
- (免費(fèi)教程+代碼領(lǐng)取)|跟著Cell學(xué)作圖系列合集
- Q&A | 如何在論文中畫出漂亮的插圖眠寿？
- Front Immunol 復(fù)現(xiàn) | 1. GEO數(shù)據(jù)下載及sva批次校正(PCA可視化)
- R繪圖 | 氣泡散點(diǎn)圖+擬合曲線
- 跟著 Cell 學(xué)作圖 | 桑葚圖(ggalluvial)
- R繪圖 | 對(duì)比條形圖+連線
- R繪圖 | 一幅小提琴圖的美化之旅
[圖片上傳失敗...(image-6c71aa-1651981390916)]
