교수님, 안녕하세요?
몇가지 어려움이 있어서 조언을 구합니다.
1. 교수님께서 colname의 순서를 변경하는 방법을 알려주셔서 CP$Group1 = factor(CP$Group, levels = c("Placebo", "Cyclophosphamide"))로 잘 변경하였는데,
동시에 CP$Sex1=factor(CP$Sex,levels=c("Male","Female"))까지 사용하여 순서를 변경하면 첨부한 PDF의 Table 4에서와 같이 Male, Female이 1, 2로 표시되고 순서 변경이 되지 않습니다.
2. rename column을 하고싶은데 방법을 모르겠습니다.
예를 들면, Time.to.occlusion..min.을 Time to occlusion (min)로 변경하려면 어떻게 하면 될지요?
3. parallelTables를 실행하면 오류가 나는데 잘못된 부분이 있는지 검토 부탁드립니다.
parallelTables(width=c(0.5, 0.5),list(zt, zt1))
항상 감사합니다.
---
title: "Cyclophosphamide"
author: "UnuDio"
date: "9/2/2019"
output:
pdf_document:
includes:
in_header: header.tex
html_document: default
word_document: default
---
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE)
```
```{r, message=FALSE, comment=NA}
library(moonBook)
library(ztable)
library(dplyr)
library(magrittr)
```
```{r}
rm(list=ls())
setwd("~/Data/Statistics/R/Project/Leukopenia")
CP <- read.csv("CP190902-4.csv", na.strings = c("NA","#N/A","#DIV/0!"), stringsAsFactors = FALSE, header = TRUE)
```
```{r}
summary(CP)
```
```{r}
CP$Sex1=factor(CP$Sex,levels=c("Male","Female"))
CP$Group1 = factor(CP$Group, levels = c("Placebo", "Cyclophosphamide"))
```
```{r, results='asis'}
z <- mytable(Group1 ~ Weight+Time.to.occlusion..min.+Length+Area+CD41+TER119+Fibrinogen+Tissue.factor, data = CP, method = 1, digits = 1, exact = TRUE, catMethod = 2, max.ylev = 0)
zt <- ztable(z, tabular=TRUE) %>%
addSigColor(level = 0.05, bg = "unmellowyellow", color = "red")
print(zt, type="latex", caption = "Table 1.")
z1 <- mytable(Group1 ~ RBC+WBC+Platelet+Neutrophil+Lymphocyte+Monocyte+Basophil+Eosinophil, data = CP, method = 1, digits = 1, exact = TRUE, catMethod = 2, max.ylev = 0)
zt1 <- ztable(z1, tabular=TRUE) %>%
addSigColor(level = 0.05, bg = "unmellowyellow", color = "red")
print(zt1, caption = "Table 2.", type="latex")
```
```{r, results='asis'}
z2 <- mytable(Sex + Group1 ~ Weight+Time.to.occlusion..min.+Length+Area+CD41+TER119+Fibrinogen+Tissue.factor, data = CP, method = 1, digits = 1, exact = TRUE, catMethod = 2, max.ylev = 0)
zt2 <- ztable(z2, tabular=TRUE) %>%
addSigColor(level = 0.05, bg = "unmellowyellow", color = "red")
print(zt2, caption = "Table 3", type="latex")
z3 <- mytable(Sex1 + Group1 ~ RBC+WBC+Platelet+Neutrophil+Lymphocyte+Monocyte+Basophil+Eosinophil, data = CP, method = 1, digits = 1, exact = TRUE, catMethod = 2, max.ylev = 0)
zt3 <- ztable(z3, tabular=TRUE) %>%
addSigColor(level = 0.05, bg = "unmellowyellow", color = "red")
print(zt3, caption = "Table 4.", type="latex")
```
Comment 0
No. | Subject | Author | Date |
---|---|---|---|
594 | 안녕하세요 질문있습니다. [1] | gracehn | 2019.08.19 |
593 | 꺽은선 그래프 아래의 면적 [1] | 김밥친구 | 2019.08.20 |
592 | 데이터 전처리 문의 드립니다. | 아리송 | 2019.08.22 |
591 | R markdown + ztable [4] | UnuDIo | 2019.08.23 |
590 | 메타분석-출판편향 [1] | 날아라 | 2019.08.26 |
589 | [정회원 서버 접속 불가] [1] | R_man | 2019.08.27 |
588 | 문의드립니다.! [2] | 래유니 | 2019.08.29 |
587 | 정회원 서버 접속이 안됩니다. [1] | DLL5252 | 2019.08.31 |
586 | 안녕하세요! 질문드립니다^ㅡ^ | 래유니 | 2019.09.01 |
585 | shapefile에서 dataframe으로 변환할 때, 법정동 코드를 남기는 방법이 궁금합니다. | 건이두 | 2019.09.02 |
» | SOS | UnuDIo | 2019.09.02 |
583 | 정회원 서버가 안열립니다. [1] | khnephro | 2019.09.03 |
582 | rstudio 사이트에 연결할 수 없음 문제 [1] | 지원 | 2019.09.10 |
581 | 교수님 질문있습니다. [2] | 보라도리 | 2019.09.13 |
580 | 안녕하세요 정회원서버관련 질문드립니다. | 무넉초 | 2019.09.21 |
579 | R에서 파워포인트로 plot을 가져와서 수정할 때 문제입니다. [2] | 아누누 | 2019.09.25 |
578 | 정회원 신청 [3] | 김대희 | 2019.09.26 |
577 | effect size 문의 | 보라도리 | 2019.09.28 |
576 | 교수님 문의 드리겠습니다. | 세희맘 | 2019.09.30 |
575 | Hedge's g | 할매 | 2019.10.01 |