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
1113 ROC 비교 관하여 질문드립니다!(delong's test) 나현둥 2022.08.09
1112 안녕하세요교수님! VIF 관련하여 질문드립니다. file kms9057 2022.08.08
1111 cox 에서 AIC모델 구하는 방법이 있나요? [1] 쥬쥬즈주 2022.08.03
1110 PSM 중 server disconnected [3] joonho 2022.08.01
1109 서로 다른 set 에서의 kappa 값 비교 papahong 2022.07.30
1108 PSM에 대하여 [1] 김습습 2022.07.29
1107 엑셀의 index 기능을 R 에서 구현하려고 합니다 file emilien 2022.07.28
1106 survival 분석 중 PPT 다운로드 오류 secret 곰곰11 2022.07.26
1105 결과 ppt 다운로드 중 오류발생문제 [2] 곰곰11 2022.07.25
1104 Control/experimental Group이 있을 때 유의미한 결과 도출 방법 [3] 민됴 2022.07.25
1103 Cox uni multivaraite [2] zsdfa 2022.07.14
1102 생존분석 문의드립니다 [1] 최홍재 2022.07.13
1101 인용 관련하여 [1] kms9057 2022.07.12
1100 메타 회귀 분석 시 ggplot 출력에 관해 문의드립니다. endostat 2022.07.09
1099 생존곡선에서 색깔 변화 문의드립니다. file 케로스 2022.07.09
1098 후향적 임상시험에서의 검체수 산정 방법 질문 라라보라 2022.07.05
1097 Kaplan Meier survival curve 질문입니다 [2] cetla 2022.07.03
1096 mytalbe( )패키지 사용중 문의드립니다. 하은 2022.07.02
1095 심평원 R studio 내 lubridate 설치 오류 [4] 꾸이뭉 2022.06.27
1094 안녕하세요 r 코드 중에 도저히 해결이 안나는 문제가 있어서 여기에 문의 드립니다 [1] file 슈퍼맨 2022.06.24