교수님, 안녕하세요?
몇가지 어려움이 있어서 조언을 구합니다.
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 |
---|---|---|---|
1254 | moonbook package mycsv 관련 오류 문의드립니다. [2] | qwetyui | 2023.11.30 |
1253 | logistic regression 명령어 문의드립니다. [2] | 로렌쵸메디치 | 2023.11.22 |
1252 | spss 파일 불러오기. [1] | 통계린 | 2023.11.22 |
1251 | PSM 매칭변수 숫자 관련 문의입니다. [1] | 오하나 | 2023.11.22 |
1250 | Multiple imputation 관련 질문 및, age adjusted incidence rate 관련 질문을 드립니다. | YSKBH | 2023.11.15 |
1249 | semMediation 설치 재문의드립니다 [3] | 마술샘 | 2023.11.11 |
1248 | 안녕하세요. 정회원 문의 [1] | lionking | 2023.11.06 |
1247 | PSM 관련 질문드립니다. | dr. | 2023.11.05 |
1246 | ggplot [1] | 통계린 | 2023.10.30 |
1245 | 정회원 [1] | 통계린 | 2023.10.29 |
1244 | PSM 관련 질문 드립니다. [2] | 로렌쵸메디치 | 2023.10.25 |
1243 | forest plot 그림이 전체가 다 나오지 않습니다. [1] | joyguni | 2023.10.08 |
1242 | PSM caliper default 값 관련 문의드립니다. [1] | Ooppps | 2023.10.05 |
1241 | reliability test tool,,, [1] | FAdavid | 2023.10.05 |
1240 | 정회원 가입 확인 요청드립니다. [1] | osman | 2023.10.03 |
1239 | 생존분석, cox 회귀 관련 기초적인 질문 입니다. | 만니톨 | 2023.09.27 |
1238 | Twang-mnps에서 매칭된 데이터를 추출하는 방법 좀 알려주세요 | Dorocy | 2023.09.26 |
1237 | 영수증 발급을 부탁드립니다. [1] | 규빈어멈 | 2023.09.26 |
1236 | 정회원 확인 [2] | lionking | 2023.09.24 |
1235 | autoReg 에러 문의드립니다 [1] | 소소 | 2023.09.23 |