메뉴 건너뛰기

웹에서 하는 R 통계

안녕하세요! 책 보며 하나씩 해보고 있습니다. 항상 감사드립니다.
table을 보기 좋게 하는 것을 연습하는데까지 왔습니다만..

script에 이렇게 입력하였더니, 최초 한번만 viewer에 표가 깔끔하게 떴습니다.
install.packages("ztable")
library(ztable)
options(ztable.type="html")
out <- mytable(Dx~LDLC+DM, data=acs)   
out
ztable(out)

지금은..console에 다음과 같이 뜹니다. 도와주세요. install.packages도 여러번 해봤지만 반복됩니다.
> out
-------------------------------------------------------- 
             Descriptive Statistics by 'Dx'            
________________________________________________________ 
            NSTEMI       STEMI     Unstable Angina   p  
           (N=153)      (N=304)        (N=400)    
-------------------------------------------------------- 
 LDLC    126.1 ± 44.7 116.7 ± 39.5  112.9 ± 40.4   0.004
 DM                                                0.209
   - No   96 (62.7%)  208 (68.4%)    249 (62.2%)        
   - Yes  57 (37.3%)   96 (31.6%)    151 (37.8%)        
-------------------------------------------------------- 



> ztable(out)
<head><style>
        table {
              font-family: times ;
color:  black ;
text-align: right;}
        th {
              padding: 1px 1px 5px 5px;
        }
        td {
             padding: 1px 1px 5px 5px; }
      </style></head><table align="center" style="border-collapse: collapse; caption-side:top; font-size:11pt;"><caption style="text-align:center;"></caption><tr>
<th <th align="center" style="font-weight: normal;border-left: 0px solid black;border-bottom: hidden;border-top: 2px solid gray;"></th>
<th <th align="center" style="font-weight: normal;border-left: 0px solid black;border-bottom: hidden;border-top: 2px solid gray;">NSTEMI</th>
<th <th align="center" style="font-weight: normal;border-left: 0px solid black;border-bottom: hidden;border-top: 2px solid gray;">STEMI</th>
<th <th align="center" style="font-weight: normal;border-left: 0px solid black;border-bottom: hidden;border-top: 2px solid gray;">Unstable Angina</th>
<th <th rowspan="2" align="center" style="font-weight: normal;border-left: 0px solid black;border-right:0px solid black;border-bottom: 1px solid gray;border-top: 2px solid gray;">p</th>
</tr>
<tr>
<th align="center" style="font-weight: normal;border-left: 0px solid black;border-bottom: 1px solid gray;"></th>
<th align="center" style="font-weight: normal;border-left: 0px solid black;border-bottom: 1px solid gray;">(N=153)</th>
<th align="center" style="font-weight: normal;border-left: 0px solid black;border-bottom: 1px solid gray;">(N=304)</th>
<th align="center" style="font-weight: normal;border-left: 0px solid black;border-bottom: 1px solid gray;">(N=400)</th>
</tr>
<tr>
<td align="left" style="border-left: 0px solid black;">LDLC   </td>
<td align="left" style="border-left: 0px solid black;">126.1 ± 44.7</td>
<td align="center" style="border-left: 0px solid black;">116.7 ± 39.5</td>
<td align="center" style="border-left: 0px solid black;">112.9 ± 40.4</td>
<td align="right" style="border-left: 0px solid black;border-right:0px solid black;">0.004</td>
</tr>
<tr>
<td align="left" style="border-left: 0px solid black;border-top: hidden;">DM</td>
<td align="left" style="border-left: 0px solid black;border-top: hidden;"></td>
<td align="center" style="border-left: 0px solid black;border-top: hidden;"></td>
<td align="center" style="border-left: 0px solid black;border-top: hidden;"></td>
<td align="right" style="border-left: 0px solid black;border-right:0px solid black;border-top: hidden;">0.209</td>
</tr>
<tr>
<td align="left" style="border-left: 0px solid black;border-top: hidden;">     No </td>
<td align="left" style="border-left: 0px solid black;border-top: hidden;">96 (62.7%)</td>
<td align="center" style="border-left: 0px solid black;border-top: hidden;">208 (68.4%)</td>
<td align="center" style="border-left: 0px solid black;border-top: hidden;">249 (62.2%)</td>
<td align="right" style="border-left: 0px solid black;border-right:0px solid black;border-top: hidden;"></td>
</tr>
<tr>
<td align="left" style="border-left: 0px solid black;border-top: hidden;">     Yes</td>
<td align="left" style="border-left: 0px solid black;border-top: hidden;">57 (37.3%)</td>
<td align="center" style="border-left: 0px solid black;border-top: hidden;">96 (31.6%)</td>
<td align="center" style="border-left: 0px solid black;border-top: hidden;">151 (37.8%)</td>
<td align="right" style="border-left: 0px solid black;border-right:0px solid black;border-top: hidden;"></td>
</tr>
<tr>
<td colspan="5" align="left" style="font-size:9pt ;border-top: 1px solid black; border-bottom: hidden;"></td>
</tr>
</table>
번호 제목 글쓴이 날짜 조회 수
공지 묻고답하기 게시판을 운영합니다 [1] cardiomoon 2015.04.20 857
550 survival 에러 [2] update ckhchoikang 2020.04.08 9
549 mytable 함수 애러 [4] update 사이 2020.04.08 12
548 shiny output 관련해서 문의드립니다. [5] chrik 2020.04.07 17
547 ROC 구하기 없어졌나요? [1] 뜨거운감자 2020.04.06 18
546 바로 아래 작성했던 것 이어서 작성합니다. [5] 비버마다 2020.04.06 12
545 Error 문구에 대한 질문입니다. [1] 비버마다 2020.04.02 28
544 prop.test에서 유의수준을 검정하는 방법을 알고 싶습니다. [2] 네잎클로바 2020.04.01 30
543 Survival curve JJ1518 2020.03.31 15
542 PPTx 다운에 대해 질문드립니다. [3] 라파엘 2020.03.30 15
541 lubridate관련 문의드립니다. 꼭좀 도와주세요 ! [4] 이엠티 2020.03.27 26
540 질문드립니다. [1] JJ1518 2020.03.24 22
539 plot_ROC() 문의드립니다. [1] 닥터강 2020.03.24 32
538 ggplot 문의드립니다. [3] 네잎클로바 2020.03.24 25
537 메타 분석에서 Egger의 회귀검정 관련 버그 [2] 셀미셀미 2020.03.24 20
536 질문입니다 [3] qubic 2020.03.23 25
» ztable이 console에만 이상하게 뜹니다.(R studio) [2] kiho 2020.03.22 15
534 제발 부탁드립니다. [2] file 라파엘 2020.03.22 28
533 R 시행후 오류에 대해 여쭙니다 [1] file neurokim 2020.03.20 16
532 안녕하세요! 질문드립니다!! [2] 래유니 2020.03.17 29
531 안녕하세요 선그래프 구현 질문드립니다. [3] file erynies 2020.03.15 24