科研有捷徑，輸入代碼，一鍵獲取科研成果！就是這么省事，來(lái)具體看下有多方便！

搜索http://985.so/a9kb查看全部代碼（目前共計(jì)50+持續(xù)新增中），也可以點(diǎn)擊右側(cè)【目錄】，可以看到更多有趣的代碼~

接下來(lái)學(xué)習(xí)下table1包生成該表格的具體用法：

table1包使用時(shí)，其中要包含在表中的變量由“+”分隔，“分層”變量（創(chuàng)建列）出現(xiàn)在條件符號(hào)“|”的右側(cè)。

#安裝并加載table1包進(jìn)行繪圖

install.packages("table1")

library(table1)

library(boot)

melanoma2 <- melanoma

?

# Factor the basic variables that

# we're interested in

melanoma2$status <-

??factor(melanoma2$status,

?????????levels=c(2,1,3),

?????????labels=c("Alive", # Reference

??????????????????"Melanoma death",

??????????????????"Non-melanoma death"))

table1(~ factor(sex) + age + factor(ulcer) + thickness | status, data=melanoma2)??

這樣一個(gè)簡(jiǎn)單的統(tǒng)計(jì)表格就出來(lái)了，但是因?yàn)槲覀?span id="s0sssss00s" class="color-pink-03">沒(méi)有設(shè)置變量名和類別標(biāo)簽，所以看起來(lái)表格表達(dá)的信息可能不是很直觀。接下來(lái)對(duì)這里進(jìn)行改進(jìn)，我們可以為分類變量（sex和ulcer）創(chuàng)建帶有描述性標(biāo)簽的因子，按照我們想要的方式標(biāo)記每個(gè)變量，并為連續(xù)變量（age和thickness）指定單位，如下所示：

melanoma2$sex <-

??factor(melanoma2$sex, levels=c(1,0),

?????????labels=c("Male",

??????????????????"Female"))

?

melanoma2$ulcer <-

??factor(melanoma2$ulcer, levels=c(0,1),

?????????labels=c("Absent",

??????????????????"Present"))

?

label(melanoma2$sex) ??????<- "sex"

label(melanoma2$age) ??????<- "Age"

label(melanoma2$ulcer) ?????<- "Ulceration"

label(melanoma2$thickness) ?<- "Thickness"

?

units(melanoma2$age) ??????<- "years"

units(melanoma2$thickness) ?<- "mm"

?

table1(~ sex + age + ulcer + thickness | status, data=melanoma2, overall="Total")

考文獻(xiàn)及網(wǎng)址：

[1]https://cran.r-project.org/web/packages/table1/vignettes/table1-examples.html