2023年以來(lái)浙中醫(yī)大學(xué)鄭老師開(kāi)設(shè)了一系列醫(yī)學(xué)科研統(tǒng)計(jì)課程，零基礎(chǔ)入門(mén)醫(yī)學(xué)統(tǒng)計(jì)包括R語(yǔ)言、meta分析、臨床預(yù)測(cè)模型、真實(shí)世界臨床研究、問(wèn)卷與量表分析、醫(yī)學(xué)統(tǒng)計(jì)與SPSS、臨床試驗(yàn)數(shù)據(jù)分析、重復(fù)測(cè)量資料分析、結(jié)構(gòu)方程模型、孟德?tīng)栯S機(jī)化等10門(mén)課，如果您有需求，不妨點(diǎn)擊下方跳轉(zhuǎn)查看：??

2023年鄭老師多門(mén)科研統(tǒng)計(jì)課程：多次直播，含孟德?tīng)栯S機(jī)化方法?

優(yōu)秀的R包看多了，是可以讓人自閉的??！

今天繼續(xù)介紹一個(gè)超級(jí)不錯(cuò)的R包——ggThemeAssist包

這個(gè)包可以做什么用了？

看幫助文件，這個(gè)包可以自定義ggplot2圖形主題。

和別的主題包有所不同，這個(gè)包安裝后會(huì)在RStudio上形成一個(gè)插件，運(yùn)行該插件后可以生成一個(gè)交互式界面，然后使用鼠標(biāo)點(diǎn)擊就調(diào)整圖形主題參數(shù)，并不需要一步步碼代碼來(lái)需改圖形。

下面來(lái)看看具體怎么操作？

1. 先繪制個(gè)基本圖形

在使用ggThemeAssist包前，先繪制個(gè)ggplot2圖形用于演示，這里不需要填入其他參數(shù)修改圖形，用最基本的繪圖代碼就行，如下代碼就行。

這里記得將圖形傳遞給一個(gè)參數(shù)，參數(shù)名稱自己隨便取，后面用得到，這里使用gg。

library(ggplot2)?#?加載繪圖包
gg?<-?ggplot(mtcars,?aes(x?=?hp,?y?=?mpg,?
?????????????????????????colour?=?as.factor(cyl)))?+?
??geom_point()
gg

如上圖所示，就繪制好了最基本的散點(diǎn)圖。

下面來(lái)看ggThemeAssist包如何使用。

2. 安裝和加載包

先安裝R包，安裝不復(fù)雜，直接使用下面代碼就可以順利安裝。

安裝完成后會(huì)在Rstudio的插件界面生成一個(gè)插件。

install.packages("ggThemeAssist")
library(ggThemeAssist)


3. ggThemeAssist包的用法

用法不復(fù)雜，真的很簡(jiǎn)單。

1.首先可以按照如下步驟打開(kāi)交互式界面。

2.也可以運(yùn)行代碼后生成交互式界面，界面如下。

ggThemeAssistGadget(gg)


在上面的交互式界面中，我們可以看到最底下面有5個(gè)菜單欄。

分別表示圖形設(shè)置、圖形面板和背景、坐標(biāo)軸設(shè)置、標(biāo)題和標(biāo)簽、圖例、副標(biāo)題等。

這基本就包括了自定義圖形主題的所有外觀參數(shù)部分。

我們可以點(diǎn)擊相應(yīng)的菜單進(jìn)入不同的圖形主題。

3.1 圖形設(shè)置

在最左邊的圖形設(shè)置，可以修改圖形的尺寸，也就是長(zhǎng)寬比。

下面錄制動(dòng)圖來(lái)演示。

詳情請(qǐng)點(diǎn)擊下方：

https://mp.weixin.qq.com/s?__biz=MzAwOTYyMDY3OQ==&mid=2650405020&idx=4&sn=9ac921fffe30073002bda9f469a9dbaf&chksm=83518534b4260c2256d44c1126231d0ba6ff5edaa87a6a790536dfee619ae0e096eae3374189&token=784653772&lang=zh_CN#rd

2023年統(tǒng)計(jì)服務(wù)?

2023年，我們將開(kāi)展從科研設(shè)計(jì)、數(shù)據(jù)分析、統(tǒng)計(jì)學(xué)報(bào)告等醫(yī)學(xué)科研研究方法咨詢與服務(wù)多項(xiàng)服務(wù)，若您有課題經(jīng)費(fèi)可以支持，歡迎您提前和我們聯(lián)系，2022底前采用預(yù)付方式與我們開(kāi)展合作。

2023年統(tǒng)計(jì)服務(wù)開(kāi)啟！歡迎提前洽談數(shù)據(jù)分析、科研合作服務(wù)??