1、【原創(chuàng)】附代碼數(shù)據(jù)有問題到淘寶找“大數(shù)據(jù)部落”就可以了可以看到數(shù)據(jù)中一共有這些變量：colnames(trans.list)1住院號(hào)流水號(hào)3病案號(hào)姓名5付款方式合同單位7是否特病住院次9性別出生年月日11年齡”新生兒月份”13新生兒體重新生兒入院體重15婚姻職業(yè)17出生地民族19國(guó)籍”身份證號(hào)21”出生地.省市23”縣”籍貫.省”25市.1現(xiàn)住址.省27市.2縣.129 X郵編31戶口地址.省市.333縣.2X.135郵編.1工作單位及地址37工作單位電話工作單位郵編39入院日期入院途徑41”入院科別出院科別”43”出院日期出院科別”45住院天數(shù)門.急.診診斷”47門.急.診診斷ICD入院診斷

2、”49入院診斷ICD.10病理診斷51病理診斷ICD.10其他診斷53其他診斷ICD.10出院診斷55出院診斷ICD.10入院病情57損傷.中毒藥物過敏59過敏藥物名稱日期61”手術(shù).操作編碼手術(shù).操作名稱”63”手術(shù)級(jí)別”手術(shù).操作日期65麻醉方式”切口種類67愈合等級(jí)尸檢69血型Rh71出院診斷2”入院病情273出院診斷3入院病情3【原創(chuàng)】附代碼數(shù)據(jù) 有問題到淘寶找“大數(shù)據(jù)部落”就可以了75 77 79 81 83 85 87 89 91 93 95 97 99 101 103 105 107 109 111 113 115出院診斷4入院病情4出院診斷5入院病情5出院診斷6”入院病情6出院

3、診斷7”入院病情7”手術(shù)2手術(shù)3手術(shù)4離院方式”醫(yī)囑轉(zhuǎn)院.擬接受醫(yī)療機(jī)構(gòu)醫(yī)囑轉(zhuǎn)社區(qū).擬接受醫(yī)療機(jī)構(gòu)”出院31大再入院計(jì)劃目的入院前昏迷.天小時(shí)分鐘”入院后昏迷.天小時(shí).1分總費(fèi)用床費(fèi)護(hù)理費(fèi)西約中成藥草藥放射化驗(yàn)輸氧輸血診療手術(shù)接生其他檢查麻醉嬰兒陪床費(fèi)其他衛(wèi)材X.2選取其中的不同科室疾病住院天數(shù)變量trans.list1=trans.list,c（入院科別“出院科別”，住院天數(shù)）table（trans.list1$入院科別）library(ggplot2)datats= table (trans.list1$ 入院科別)datats產(chǎn)科病房?jī)嚎贫》績(jī)嚎埔徊》慷茄屎眍^頸病房577742488

4、617放射治療科病房風(fēng)濕免疫科病房婦科病房肝膽胰外科病房117417771371【原創(chuàng)】附代碼數(shù)據(jù) 有問題到淘寶找“大數(shù)據(jù)部落”就可以了肛腸科病房305668骨外科病房303和平骨外科病房1047和平呼吸內(nèi)科病房和平泌尿外科病房和平內(nèi)分泌科病房和平普外科病房和平神經(jīng)內(nèi)科病房2587903081494和平消化內(nèi)科病房和平心血管內(nèi)病房和平眼科二病房和平眼科三病房576141512221105和平眼科四病房和平眼科一病房領(lǐng)面外科病房呼吸內(nèi)科病房12031415611182急診觀察室急診外科病房介入科病房泌尿外科病分泌內(nèi)科病房棋盤山結(jié)核病二科棋盤山結(jié)核病三科棋盤山結(jié)核病一科1

5、440549493561棋盤山精神病科乳腺外科病房神經(jīng)內(nèi)科二病房神經(jīng)內(nèi)科一病房735104412191760神經(jīng)外科病房腎內(nèi)科病房生物治療科病房太原康復(fù)醫(yī)學(xué)病房560723839372太原綜合內(nèi)科病房危重癥醫(yī)學(xué)科胃腸外科病房消化內(nèi)科病房2716010321124心血管內(nèi)科二病房心血管內(nèi)科一病房新生兒病房胸心外科病房1111162113924血液內(nèi)科病房腫瘤內(nèi)科病房2351480datats= as.data.frame (datats)ggplot ( data= datats, aes( x= Vari, y= Freq, fill= Vari) + geom_bar (colour= bl

6、ack , stat= identity ) +ggtitle (State)【原創(chuàng)】附代碼數(shù)據(jù)有問題到淘寶找“大數(shù)據(jù)部落”就可以了苒耳*產(chǎn)4科片江帆審周 七*科,民WWfertHftSJ 咤JRM 兒同一 E 區(qū),田斗山用土凡置地國(guó)“店 E* 箭1前尋HUKWIWRiU：t-UA；H 出孑屏貼為愀胸片 M干.|酊，直笛I*甲巧即， 看單/收三疆W 田平甲聞三事用 光車日日刊H 如甲歌出一工 承皿善利前前等百鼻TX 曲用也集AHM*H -* 一“九再觸宙 CL-i二 W *UL叮稱現(xiàn)工總 喻_骷午摘一日 MST3HWKflWZW評(píng)1WW aiiws 主1轉(zhuǎn)&片畤（M； 直凈，年亨,醫(yī) 宜片色痔

7、修工 右事尹件 MW心七片T也二H 白也內(nèi)醇一 ,普 mix,弟串弟K 斯牌曲料翻H 腫科工住院天數(shù) =5,低，ifelse (trans.listrans.list1$住院天數(shù)=ifelse (trans.list1$t1$住院天數(shù)=10,中，高) trans.list1= as.data.frame (trans.list1)trans.list1=na.omit(trans.list)str (trans.list1)data.frame: 39361 obs. of 3 variables:$入院科別：Factor w/ 50 levels 產(chǎn)科病房,兒科二病房,.:24 24 24

8、2424 24 24 24 24 24 .$出院科別：Factor w/ 46 levels ,兒科二病房,.:1 1 1 1 1 1 1 1 1 1.$住院天數(shù):chr 中中中低.trans.list1trans.list1= = NAWarning in -.factor(*tmp*, thisvar, value = NA): invalid facto rlevel, NA generated刪除缺失值trans.list1= na.omit (trans.list1)for(i in 1: ncol (trans.list1)trans.list1,i=as.factor (tran

9、s.list1,i)trans.list1 - sapply(trans.list1,as.factor)transfer dat to factor【原創(chuàng)】附代碼數(shù)據(jù)有問題到淘寶找“大數(shù)據(jù)部落”就可以了coerce into transactionstransl - as (trans.listl, transactions )查看頻繁項(xiàng)集頻繁項(xiàng)集的所有非空子集也必須是頻繁的。即如果項(xiàng)集 A不滿足最小支持度閾值MinSup port ,則A不是頻繁的，如果將項(xiàng)集B添加到項(xiàng)集A中，也就是A ? B也不可能是頻繁 的。該性質(zhì)是一種反單調(diào)性的性質(zhì)，也就是說如果一個(gè)集合不能通過測(cè)試，則它的所有超 集

10、也都不能通過相同的測(cè)試。frequentsets= eclat (trans1, parameter= list (support= 0.04 , minlen= 2) get fr equent setsEclatparameter specification:tidLists support minlen maxlen target extFALSE 0.04210 frequent itemsets FALSEalgorithmic control:sparse sort verbose7 -2 TRUEAbsolute minimum support count: 66create i

11、temset .set transactions .96 item(s), 1654 transaction(s) done 0.00s.sorting and recoding items . 11 item(s) done 0.00s.creating bit matrix . 11 row(s), 1654 column(s) done 0.00s.writing . 19 set(s) done 0.00s.Creating S4 object . done 0.00s.inspect (frequentsets )察看求得的頻繁項(xiàng)集 review frequent setsitems

12、 出院科別=危重癥醫(yī)學(xué)科，住院天數(shù)二高 入院科別二心血管內(nèi)科二病房，住院天數(shù)二中【原創(chuàng)】附代碼數(shù)據(jù)有問題到淘寶找“大數(shù)據(jù)部落”就可以了( ( ( (入院科別二心血管內(nèi)科二病房，出院科別二心血管內(nèi)科二病房 入院科別二心血管內(nèi)科一病房，出院科別二心血管內(nèi)科二病房 入院科別二心血管內(nèi)科一病房，住院天數(shù)二中入院科別二心血管內(nèi)科一病房，出院科別二心血管內(nèi)科二病房，住院天數(shù)二中入院科別=神經(jīng)內(nèi)科二病房 入院科別=神經(jīng)內(nèi)科二病房 入院科別=神經(jīng)內(nèi)科二病房 入院科別=神經(jīng)內(nèi)科二病房 入院科別=神經(jīng)內(nèi)科二病房 入院科別=神經(jīng)內(nèi)科一病房 入院科別=神經(jīng)內(nèi)科一病房 入院科別=神經(jīng)內(nèi)科一病房 入院科別=神經(jīng)內(nèi)科一病房

13、,出院科別=神經(jīng)內(nèi)科二病房,出院科別=神經(jīng)內(nèi)科二病房，住院天數(shù)二高，住院天數(shù)二中,出院科別=神經(jīng)內(nèi)科二病房,出院科別=神經(jīng)內(nèi)科二病房，住院天數(shù)二高，住院天數(shù)二中,出院科別=神經(jīng)內(nèi)科二病房，住院天數(shù)二高，住院天數(shù)二中，住院天數(shù)二中出院科別二心血管內(nèi)科二病房，住院天數(shù)二高 出院科別二心血管內(nèi)科二病房，住院天數(shù)二中 出院科別=神經(jīng)內(nèi)科二病房，住院天數(shù)二高 出院科別=神經(jīng)內(nèi)科二病房，住院天數(shù)二中support0.051995160.051390570.077992740.059854900.079806530.100967350.048972190.079201930.058041110.085247

14、880.139661430.084643290.051995160.093712210.136638450.050181380.100967350.090689240.16384522inspect ( sort (frequentsets, by=support)根據(jù)支持度對(duì)求得的頻繁項(xiàng)集排序并察看(等價(jià)于 inspect(sort(frequentsets)1:10)【原創(chuàng)】附代碼數(shù)據(jù)有問題到淘寶找“大數(shù)據(jù)部落”就可以了items 出院科別=神經(jīng)內(nèi)科二病房，住院天數(shù)二中 入院科別=神經(jīng)內(nèi)科二病房，出院科別=神經(jīng)內(nèi)科二病房 入院科別=神經(jīng)內(nèi)科一病房，出院科別=神經(jīng)內(nèi)科二病房 入院科別二心血管

15、內(nèi)科一病房，出院科別二心血管內(nèi)科二病房 出院科別二心血管內(nèi)科二病房，住院天數(shù)二中 入院科別=神經(jīng)內(nèi)科一病房，住院天數(shù)二中 出院科別=神經(jīng)內(nèi)科二病房，住院天數(shù)二高 入院科別=神經(jīng)內(nèi)科二病房，住院天數(shù)二中 入院科別=神經(jīng)內(nèi)科一病房，出院科別=神經(jīng)內(nèi)科二病房，住院天數(shù)二中 入院科別二心血管內(nèi)科一病房，住院天數(shù)二中 入院科別=神經(jīng)內(nèi)科二病房，出院科別=神經(jīng)內(nèi)科二病房，住院天數(shù)二中 入院科別二心血管內(nèi)科二病房，出院科別二心血管內(nèi)科二病房 入院科別二心血管內(nèi)科一病房，出院科別二心血管內(nèi)科二病房，住院天數(shù)二中 入院科別=神經(jīng)內(nèi)科二病房，住院天數(shù)二高 出院科別=危重癥醫(yī)學(xué)科，住院天數(shù)二高 入院科別=神經(jīng)內(nèi)科一

16、病房，住院天數(shù)二高 入院科別二心血管內(nèi)科二病房，住院天數(shù)二中 出院科別=心血管內(nèi)科二病房，住院天數(shù)二高 入院科別=神經(jīng)內(nèi)科二病房，出院科別=神經(jīng)內(nèi)科二病房，住院天數(shù)二高 support0.163845220.139661430.136638450.100967350.100967350.093712210.090689240.085247880.084643290.079806530.079201930.077992740.059854900.058041110.051995160.051995160.051390570.050181380.04897219建立apriori模型Apriori

17、是關(guān)聯(lián)規(guī)則模型中的經(jīng)典算法，是由R.Agrawal和R.Srikant 于1994年提出的為布爾關(guān)聯(lián)規(guī)則挖掘頻繁項(xiàng)集的原創(chuàng)性算法。Apriori使用一種稱作逐層搜索的迭代【原創(chuàng)】附代碼數(shù)據(jù)有問題到淘寶找“大數(shù)據(jù)部落”就可以了方法，k項(xiàng)集用于搜索k+1項(xiàng)集。該算法主要用于在交易數(shù)據(jù)、關(guān)聯(lián)數(shù)據(jù)或其他信息載體 中，查找存在于項(xiàng)目集合或?qū)ο蠹现g的頻繁模式、關(guān)聯(lián)性或因果結(jié)構(gòu)。rules 住院天數(shù)=高0.05199516住院天數(shù)=高= 出院科別二危重癥醫(yī)學(xué)科0.05199516入院科別二心血管內(nèi)科二病房 = 出院科別二心血管內(nèi)科二病房 0.07799274出院科別二心血管內(nèi)科二病房 = 入院科別二心血

18、管內(nèi)科二病房 0.07799274入院科別=心血管內(nèi)科二病房 = 住院天數(shù)=中0.05139057住院天數(shù)=中= 入院科別=心血管內(nèi)科二病房 0.05139057confidence lift0.6323529 1.3073900.1075000 1.3073900.7588235 4.1559410.4271523 4.1559410.5000000 1.2143910.1248164 1.214391查看規(guī)則質(zhì)量quality ( head (rules)support confidence lift0.05199516 0.6323529 1.3073900.05199516 0.107

19、5000 1.3073900.07799274 0.7588235 4.1559410.07799274 0.4271523 4.1559410.05139057 0.5000000 1.2143910.05139057 0.1248164 1.214391查看規(guī)則的支持度rules 【原創(chuàng)】附代碼數(shù)據(jù) 有問題到淘寶找“大數(shù)據(jù)部落”就可以了2 住院天數(shù)=中=3 入院科別=神經(jīng)內(nèi)科二病房=4 出院科別=神經(jīng)內(nèi)科二病房=5 入院科別=神經(jīng)內(nèi)科一病房=6 出院科別=神經(jīng)內(nèi)科二病房=7 入院科別=心血管內(nèi)科一病房=8 出院科別=心血管內(nèi)科二病房=9 出院科別=心血管內(nèi)科二病房=10 住院天數(shù)=中=11

20、 入院科別=神經(jīng)內(nèi)科一病房=12 住院天數(shù)=中=13 出院科別=神經(jīng)內(nèi)科二病房=14 住院天數(shù)= iWj =15 入院科別=神經(jīng)內(nèi)科二病房=16 住院天數(shù)=中=17 入院科別=神經(jīng)內(nèi)科一病房，出院科別=神經(jīng)內(nèi)科二病房=18 入院科別=神經(jīng)內(nèi)科一病房，住院天數(shù)=中=19 出院科別=神經(jīng)內(nèi)科二病房，住院天數(shù)=中=20 入院科別=心血管內(nèi)科一病房=21 住院天數(shù)=中=22 入院科別=神經(jīng)內(nèi)科二病房，出院科別=神經(jīng)內(nèi)科二病房=23 入院科別=神經(jīng)內(nèi)科二病房，住院天數(shù)=中=24 出院科別=神經(jīng)內(nèi)科二病房，住院天數(shù)=中=25 入院科別=心血管內(nèi)科二病房=26 出院科別=心血管內(nèi)科二病房=27 入院科別=心

21、血管內(nèi)科一病房,出院科別二心血管內(nèi)科二病房=28 入院科別=心血管內(nèi)科一病房，住院天數(shù)=中=29 出院科別=心血管內(nèi)科二病房，住院天數(shù)=中=30 入院科別=神經(jīng)內(nèi)科二病房=31 住院天數(shù)= iWj =32 出院科別=危重癥醫(yī)學(xué)科=33 住院天數(shù)= iWj =34 入院科別=神經(jīng)內(nèi)科一病房=35 住院天數(shù)= iWj =36 入院科別=心血管內(nèi)科二病房=37 住院天數(shù)=中=38 出院科別=心血管內(nèi)科二病房=39 住院天數(shù)= iWj =40 入院科別=神經(jīng)內(nèi)科二病房，出院科別=神經(jīng)內(nèi)科二病房=rhssupport confidence lift1 住院天數(shù)=中0.16384522 0.5840517

22、 1.4185338【原創(chuàng)】附代碼數(shù)據(jù)有問題到淘寶找“大數(shù)據(jù)部落”就可以了 出院科別=神經(jīng)內(nèi)科二病房 出院科別=神經(jīng)內(nèi)科二病房 入院科別=神經(jīng)內(nèi)科二病房 出院科別=神經(jīng)內(nèi)科二病房 入院科別=神經(jīng)內(nèi)科一病房出院科別二心血管內(nèi)科二病房入院科別二心血管內(nèi)科一病房0.16384522 0.3979442 1.41853380.13966143 0.8953488 3.19160990.13966143 0.4978448 3.19160990.13663845 0.8464419 3.01727370.13663845 0.4870690 3.0172737 0.10096735 0.6987448

23、3.8269002 0.10096735 0.5529801 3.8269002住院天數(shù)=中0.10096735 0.5529801 1.3430678出院科別=心血管內(nèi)科二病房 0.10096735 0.2452276 1.3430678住院天數(shù)=中0.09371221 0.5805243 1.4099666 入院科別=神經(jīng)內(nèi)科一病房 0.09371221 0.2276065 1.4099666住院天數(shù)=高0.09068924 0.3232759 0.6683728 出院科別二神經(jīng)內(nèi)科二病房 0.09068924 0.1875000 0.6683728住院天數(shù)=中0.08524788 0.5465116 1.3273572 入院科別=神經(jīng)內(nèi)科二病房 0.08524788 0.2070485 1.3273572住院天數(shù)=中0.08464329 0.6194690 1.5045547出院科別二神經(jīng)內(nèi)科二病房 0.08464329 0.9032258 3.2196885入院科別=神經(jīng)內(nèi)科一病房 0.08464329 0.5166052 3.2002432住院天數(shù)=中0.07980653 0.5523013 1.3414189 入院科別二心血管內(nèi)科一病房 0.07980653 0.1938326 1.3414189住院天數(shù)=中0.07920193 0.5