메뉴 건너뛰기

웹에서 하는 R 통계

SOS

2019.09.02 21:22

UnuDIo 조회 수:22

교수님, 안녕하세요?

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


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

```


번호 제목 글쓴이 날짜 조회 수
공지 묻고답하기 게시판을 운영합니다 [1] cardiomoon 2015.04.20 717
498 안녕하세요 정회원서버관련 질문드립니다. 무넉초 2019.09.21 7
497 교수님 질문있습니다. [2] 보라도리 2019.09.13 18
» SOS file UnuDIo 2019.09.02 22
495 shapefile에서 dataframe으로 변환할 때, 법정동 코드를 남기는 방법이 궁금합니다. 건이두 2019.09.02 17
494 안녕하세요! 질문드립니다^ㅡ^ 래유니 2019.09.01 24
493 문의드립니다.! [2] 래유니 2019.08.29 25
492 메타분석-출판편향 [1] 날아라 2019.08.26 36
491 R markdown + ztable [4] file UnuDIo 2019.08.23 45
490 데이터 전처리 문의 드립니다. 아리송 2019.08.22 32
489 꺽은선 그래프 아래의 면적 [1] 김밥친구 2019.08.20 34
488 안녕하세요 질문있습니다. [1] gracehn 2019.08.19 25
487 안녕하세요! 또 문의드립니다.! [1] 래유니 2019.08.18 31
486 안녕하세요! 조건문에 대해 문의드립니다. [2] 래유니 2019.08.15 64
485 ztable에서 column 순서 변경, text 수정과 관련하여 문의드립니다. [2] file IlKwon 2019.08.10 50
484 Web-R 생존분석 오류 상의드립니다. linus214 2019.08.02 47
483 교수님 데이터 편집 질문드립니다. [1] file 백지백지 2019.08.02 300
482 ztable package 사용과 관련하여 도움을 부탁드립니다. [1] IlKwon 2019.07.29 44
481 안녕하세요 mytable 함수 관련하여 질문드립니다. [1] 지옥소년 2019.07.26 44
480 교수님, sphagetti plot으로 문의드립니다. [3] file cardio_H 2019.07.22 49
479 교차분석 결과로 로지스틱 회귀분석 가능한지 질문드립니다 [1] 김도 2019.07.22 53