먼저 acs데이터를 이용해 간단한 mytable을 만들어 보겠습니다.

require(moonBook)
require(ztable)
res=mytable(sex~age+Dx,data=acs)
z=ztable(res)
print(z,type="html")

	Female	Male	p
	(N=287)	(N=570)
age	68.7 ± 10.7	60.6 ± 11.2	< 0.001
Dx			0.012
NSTEMI	50 (17.4%)	103 (18.1%)
STEMI	84 (29.3%)	220 (38.6%)
Unstable Angina	153 (53.3%)	247 (43.3%)

여기서 acs데이터 중 sex는 문자형입니다. 성별 중 Female이 Male보다 ABC순서가 빠르므로 Female이 먼저 나옵니다. 이 순서를 바꾸어 Male이 먼저 나오게 하려면 sex1이라는 임의의 열을 만들고 순서를 Male,Female순서로 바꾸어 줍니다. 그 후 이 변수를 이용해 mytable을 만들면 됩니다.

acs$sex1=factor(acs$sex,levels=c("Male","Female"))
res1=mytable(sex1~age+Dx,data=acs)
z1=ztable(res1)
print(z1,type="html")

	Male	Female	p
	(N=570)	(N=287)
age	60.6 ± 11.2	68.7 ± 10.7	< 0.001
Dx			0.012
NSTEMI	103 (18.1%)	50 (17.4%)
STEMI	220 (38.6%)	84 (29.3%)
Unstable Angina	247 (43.3%)	153 (53.3%)