교수님, 안녕하세요?
몇가지 어려움이 있어서 조언을 구합니다.
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 |
---|---|---|---|
1233 | 선형회귀분석 시 보정변수 사용 관련 질문드립니다. [2] | 전한울 | 2023.09.18 |
1232 | 그래프 관련 문의드립니다. | nanak | 2023.09.14 |
1231 | 영수증 메일로 받을수 있을까요? [1] | 딸기공주 | 2023.09.13 |
1230 | mycsv 관련 문의드립니다. [1] | 도삼 | 2023.09.12 |
1229 | matched group 을 대상으로 stratified cox | saga | 2023.09.06 |
1228 | IPTW 시 SMD 계산 관련 여쭙습니다. | 장한나 | 2023.09.04 |
1227 | 회귀분석 관련 문의드립니다. [2] | 전한울 | 2023.09.04 |
1226 | PSM matching 실행시 disconnected 됩니다... [1] | 맹구모션 | 2023.08.25 |
1225 | 메타분석_출간오류분석 관련 질문드립니다. [2] | 블루레몬 | 2023.08.21 |
1224 | plot 문의 드립니다. | 1122 | 2023.08.20 |
1223 | semMediation 설치문의 [2] | 마술샘 | 2023.08.11 |
1222 | 로지스틱 회귀분석 문의드립니다. [2] | JKJ | 2023.08.09 |
1221 | 지출 문의 드립니다. [1] | 블루레몬 | 2023.08.08 |
1220 | autoReg 실행 중 에러 [1] | pkjsdf123 | 2023.08.08 |
1219 | 영수증 처리 [1] | britnepak | 2023.07.28 |
1218 | multipleROC 커브 글을 따라가다 궁금한 것이 생겨서 질문드립니다. [2] | rgppwls | 2023.07.20 |
1217 | disconnected from server 오류 [2] | JKJ | 2023.07.13 |
1216 | mytable에서 변수 순서와 ztable적용시 변수가 숫자로 변형 [1] | 둥니맨 | 2023.07.12 |
1215 | box plot 시 X 축 label이 다 나오지 않아 질문드립니다. [2] | 난둥 | 2023.07.03 |
1214 | 안녕하십니까 교수님 PSM 결과에 대해 궁금한 것이 있어 여쭤봅니다 [2] | 김도훈 | 2023.06.29 |