本篇內(nèi)容介紹了“用R語言怎么畫小提琴圖”的有關(guān)知識，在實際案例的操作過程中，不少人都會遇到這樣的困境，接下來就讓小編帶領(lǐng)大家學習一下如何處理這些情況吧！希望大家仔細閱讀，能夠?qū)W有所成！
公司主營業(yè)務：成都網(wǎng)站設計、成都網(wǎng)站制作、移動網(wǎng)站開發(fā)等業(yè)務。幫助企業(yè)客戶真正實現(xiàn)互聯(lián)網(wǎng)宣傳，提高企業(yè)的競爭能力。創(chuàng)新互聯(lián)是一支青春激揚、勤奮敬業(yè)、活力青春激揚、勤奮敬業(yè)、活力澎湃、和諧高效的團隊。公司秉承以“開放、自由、嚴謹、自律”為核心的企業(yè)文化，感謝他們對我們的高要求，感謝他們從不同領(lǐng)域給我們帶來的挑戰(zhàn)，讓我們激情的團隊有機會用頭腦與智慧不斷的給客戶帶來驚喜。創(chuàng)新互聯(lián)推出江岸免費做網(wǎng)站回饋大家。
重慶分公司
重慶分公司
library(readr)
df<-read_tsv("author_number.tsv")
head(df)
table(df$journal)
summary()函數(shù)看一些數(shù)據(jù)的基本情況summary(df)
作者數(shù)量最多的竟然有446人，中位數(shù)是6個人，符合日常認知
我們看一下400多個作者的論文是什么？
library(dplyr)
df%>%
filter(auth_num == 446) -> df1
df1$id
這個應該是采集了很多人的數(shù)據(jù)，可能是把參與實驗的所有人全都列成作者了
用原始數(shù)據(jù)作圖代碼和結(jié)果如下
ggplot(df, aes(x=journal, y=auth_num, fill=journal)) +
geom_violin(scale="width") +
geom_boxplot(width=.12,
fill=I("black"),
notch=T,
outlier.size=NA,
col="grey40") +
stat_summary(fun="median",
geom="point", shape=20, col="white") +
#scale_y_log10(breaks=c(1:5, seq(10, 50, by=10), 100, 200, 300)) +
coord_flip() + labs(x="", y="Number of authors per paper") +
theme_classic() + theme(legend.position="none") +
scale_fill_brewer()
這個結(jié)果不太好看，所有作者對原始數(shù)據(jù)做了log10轉(zhuǎn)化
ggplot(df, aes(x=journal, y=auth_num, fill=journal)) +
geom_violin(scale="width") +
geom_boxplot(width=.12,
fill=I("black"),
notch=T,
outlier.size=NA,
col="grey40") +
stat_summary(fun="median",
geom="point", shape=20, col="white") +
scale_y_log10(breaks=c(1:5, seq(10, 50, by=10), 100, 200, 300)) +
coord_flip() + labs(x="", y="Number of authors per paper") +
theme_classic() + theme(legend.position="none") +
scale_fill_brewer()
log10轉(zhuǎn)換 是一種比較好的方案當數(shù)據(jù)有明顯的離群值的時候
lappy()函數(shù)指定參數(shù)
lapply(files_all,
read_tsv,
col_type= list(
col_character(),
col_character(),
col_character(),
col_character())) %>%
bind_rows -> data_all
統(tǒng)計字符串中指定字符的數(shù)量
library(stringr)
str_count("A,B,C",pattern=",")
“用R語言怎么畫小提琴圖”的內(nèi)容就介紹到這里了，感謝大家的閱讀。如果想了解更多行業(yè)相關(guān)的知識可以關(guān)注創(chuàng)新互聯(lián)網(wǎng)站，小編將為大家輸出更多高質(zhì)量的實用文章！
