> dput(mydat)
structure(list(Q1 = c(0, 1, NA, 1), Q2 = c(0, 1, 1, 1), Q3 = c(1,
NA, 1, 1), Gender = structure(c(2L, 2L, 1L, 1L), .Label = c("F",
"M"), class = "factor"), Type = c("A", "A", "A", "B")), .Names = c("Q1",
"Q2", "Q3", "Gender", "Type"), row.names = c(NA, -4L), class = "data.frame")
> mydat
Q1 Q2 Q3 Gender Type
1 0 0 1 M A
2 1 1 NA M A
3 NA 1 1 F A
4 1 1 1 F B
我有一個包含3個問題和2個人口統計變量的data.frame。我寫了一個函數來輸出一個彙總表。在LaTeX中生成意外事件彙總表
myfun <- function(from, to){
tt = t(rowsum(mydat[from:to], mydat$Gender, na.rm = TRUE))
ptt = prop.table(tt, 2)
fish = fisher.test(tt, simulate.p.value = TRUE)
tt2 = t(rowsum(mydat[from:to], mydat$Type, na.rm = TRUE))
ptt2 = prop.table(tt2, 2)
fish2 = fisher.test(tt2, simulate.p.value = TRUE)
list(rbind(cbind(Female = tt[, 1], ptt[, 1], Male = tt[, 2], ptt[, 2],
A = tt2[, 1], ptt2[, 1], B = tt2[, 2], ptt2[, 2]),
c(fish$p.value, NA, NA, NA, fish2$p.value, NA, NA, NA)))
}
tab = myfun(1, 2)
>tab
[[1]]
Female Male A B
Q1 1 0.3333333 1 0.5 1 0.3333333 1 0.5
Q2 2 0.6666667 1 0.5 2 0.6666667 1 0.5
1 NA NA NA 1 NA NA NA
該功能需要2個參數(from,to)來告訴功能我要選擇的問題。在我的例子中,我選擇了問題1和2.我希望函數輸出一個計數及其相應的比例。表格的最後一行是一個p值,反映了問題和人口變量(性別或類型)之間的關聯。
xtable(data.frame(tab))
調用上面的函數提供了以下的LaTeX表:
我要的是:
凡在本表中的條目顯示爲count (proportion)
在每個單元格中,而不是具有單獨的比例列。有沒有更有效的方法來做到這一點?在Hmisc也許?
您可以檢查'表:: tabfreq '。 – Henrik