R語言數(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語言可以識(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ù)變成長數(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語言數(shù)據(jù)可視化繪圖Dot plot點(diǎn)圖畫法示例的詳細(xì)內(nèi)容,更多關(guān)于R語言數(shù)據(jù)可視化Dot plot點(diǎn)圖繪圖的資料請(qǐng)關(guān)注腳本之家其它相關(guān)文章!
相關(guān)文章
R語言控制結(jié)構(gòu)知識(shí)點(diǎn)總結(jié)
在本篇文章里小編給大家整理一篇關(guān)于R語言控制結(jié)構(gòu)知識(shí)點(diǎn)總結(jié)內(nèi)容,有興趣的朋友們可以學(xué)習(xí)參考下。2021-03-03R語言-如何循環(huán)讀取excel并保存為RData
這篇文章主要介紹了R語言循環(huán)讀取excel并保存為RData的操作,具有很好的參考價(jià)值,希望對(duì)大家有所幫助。一起跟隨小編過來看看吧2021-04-04R語言ggplot2設(shè)置圖例(legend)的操作大全
ggplot2是一個(gè)繪制可視化圖形的R包,汲取了R語言基礎(chǔ)繪圖系統(tǒng)(graphics)和l?attice包的優(yōu)點(diǎn),下面這篇文章主要給大家介紹了關(guān)于R語言ggplot2設(shè)置圖例(legend)的操作大全,需要的朋友可以參考下2022-07-07R語言通過parallel包實(shí)現(xiàn)多線程運(yùn)行方式
這篇文章主要介紹了R語言通過parallel包實(shí)現(xiàn)多線程運(yùn)行方式,具有很好的參考價(jià)值,希望對(duì)大家有所幫助。一起跟隨小編過來看看吧2021-04-04Rcpp和RcppArmadillo創(chuàng)建R語言包的實(shí)現(xiàn)方式
這篇文章主要為大家介紹了Rcpp和RcppArmadillo創(chuàng)建R包實(shí)現(xiàn)方式,有需要的朋友可以借鑒參考下,希望能夠有所幫助,祝大家多多進(jìn)步,早日升職加薪2021-11-11