Skip to menu

SOS

UnuDIo 2019.09.02 21:22 Views : 1821

교수님, 안녕하세요?

몇가지 어려움이 있어서 조언을 구합니다.


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")

```


No. Subject Author Date
1173 인공지능, 인지 컴퓨팅, 머신 러닝, 딥 러닝 관련 IBM 자료 [1] file Ben 2016.03.09
1172 [책소개] R in 24 Hours fermat39 2015.12.25
1171 ㅠㅠㅠ 초보 질문입니다 [1] 만고 2021.11.26
1170 파일 다운로드 실패 [2] 김밥친구 2017.09.28
1169 웹에서 하는 R통계 - R코드 [2] 김영진 2015.06.07
1168 R스튜디오 설치 [1] BK 2019.04.10
1167 그냥 넋두리.. [2] 스튜던트 2018.03.25
1166 web-R에서 사용되는 명령어를 볼 수 있는 방법이 있을까요? [1] 통계장님 2018.03.15
1165 스피어만 상관계수(Spearman correlation coefficient) [1] ㅎㅎㅎ 2015.10.15
1164 object 'res' not found [3] 민자 2016.03.06
1163 구조방정식 관련 여쭙습니다. [9] fascinate23 2018.01.22
1162 ztable package 사용과 관련하여 도움을 부탁드립니다. [1] IlKwon 2019.07.29
1161 회귀 분석 에러 [1] file 김승욱 2015.03.26
1160 메타분석 후 결과 forest plot이 위쪽과 아래쪽이 다 출력되지 않는 것에 대한 질문입니다. ^^ [2] file hanclan 2018.08.09
1159 median follow up and median overall survival [2] alse 2017.06.12
1158 변수에 가중치 적용한 붓스트랩 방법 또는 피키지 하고지비 2017.05.17
1157 Propensity score matching 결과 standardized difference 에 대한 질문 nskjh 2020.06.15
1156 Trend test에 대한 질문 하가지만 드립니다. [5] file namuhanayeyo 2017.11.30
1155 메타분석에 관한 문의 드립니다. [1] 봄날 2018.03.08
1154 Loop 사용 관련하여 문의드립니다. [3] 바슈메트 2020.03.09