R語(yǔ)言數(shù)據(jù)可視化繪圖Dot plot點(diǎn)圖畫法示例
今天要給大家介紹的是點(diǎn)圖(Dot plot),點(diǎn)圖展示的數(shù)據(jù)比較簡(jiǎn)單,但勝在好看啊。

作圖數(shù)據(jù)如下:

Step1. 繪圖數(shù)據(jù)的準(zhǔn)備
首先要把你想要繪圖的數(shù)據(jù)調(diào)整成R語(yǔ)言可以識(shí)別的格式,建議大家在excel中保存成csv格式。
Step2. 繪圖數(shù)據(jù)的讀取
data<-read.csv(“your file path”, header = T) #注釋:header=T表示數(shù)據(jù)中的第一行是列名,如果沒有列名就用header=F
Step3.繪圖所需package的安裝、調(diào)用
library(reshape2) library(ggplot2) library(Hmisc) #注釋:package使用之前需要調(diào)用 # 今天要用到stat_summary()函數(shù)需要調(diào)用Hmisc包
Step4.繪圖
data_melt<-melt (data[,-1])
#注釋:melt()函數(shù)把表格中的寬數(shù)據(jù)變成長(zhǎng)數(shù)據(jù)
# data[,-1]去掉作圖用不到的第一列數(shù)據(jù)
p<-ggplot(data_melt, aes(x = variable, y = value, color=variable, fill= variable)) +
geom_dotplot(binaxis='y', stackdir='center', binwidth = 1)+
theme(panel.background = element_blank(),
panel.grid.major = element_blank(),
panel.border = element_rect(colour="black",fill=NA))
p


添加平均值
p + stat_summary(fun.y = "mean", geom = "crossbar",
mapping = aes(ymin = ..y.., ymax = ..y..), width = 0.3)


添加誤差線
p + stat_summary(fun.y = "mean", geom = "crossbar",
mapping = aes(ymin = ..y.., ymax = ..y..), width = 0.3) +
stat_summary(fun.data = "mean_se", geom="errorbar", width = 0.2)


以上就是R語(yǔ)言數(shù)據(jù)可視化繪圖Dot plot點(diǎn)圖畫法示例的詳細(xì)內(nèi)容,更多關(guān)于R語(yǔ)言數(shù)據(jù)可視化Dot plot點(diǎn)圖繪圖的資料請(qǐng)關(guān)注腳本之家其它相關(guān)文章!
相關(guān)文章
R語(yǔ)言ggplot2實(shí)現(xiàn)將多個(gè)照片拼接到一起
本文主要介紹了R語(yǔ)言ggplot2實(shí)現(xiàn)將多個(gè)照片拼接到一起,文中通過示例代碼介紹的非常詳細(xì),需要的朋友們下面隨著小編來(lái)一起學(xué)習(xí)學(xué)習(xí)吧2021-07-07
R語(yǔ)言符號(hào)知識(shí)點(diǎn)匯總
在本篇文章里小編給大家整理的是一篇關(guān)于R語(yǔ)言符號(hào)知識(shí)點(diǎn)匯總內(nèi)容,有需要的朋友們可以學(xué)習(xí)下。2021-03-03
R語(yǔ)言學(xué)習(xí)筆記之lm函數(shù)詳解
這篇文章主要介紹了R語(yǔ)言學(xué)習(xí)筆記之lm函數(shù)詳解,本文給大家介紹的非常詳細(xì),對(duì)大家的學(xué)習(xí)或工作具有一定的參考借鑒價(jià)值,需要的朋友可以參考下2021-03-03
R語(yǔ)言which函數(shù)介紹及Rcpp改寫詳解
有的時(shí)候我們需要找到一個(gè)數(shù)據(jù)子向量中的位置,我們就可以使用which函數(shù),下面這篇文章主要給大家介紹了關(guān)于R語(yǔ)言which函數(shù)介紹及Rcpp改寫的相關(guān)資料,需要的朋友可以參考下2022-07-07

