Включите имена измерений в заголовки строк и столбцов для таблицы непредвиденных обстоятельств в формате LaTeX.
Вопрос
Если категории атрибутов в таблице сопряженности представляют собой простые числа, использования только этих чисел в качестве заголовка столбца/строки недостаточно — требуется описание того, что означают числа.На рисунке ниже показана перекрестная классификация размера домохозяйства по сравнению с размером домохозяйства.количество иностранцев в выборке домохозяйства:
Есть ли у кого-нибудь опыт создания таких таблиц с использованием R+LaTeX?
Решение 3
Есть ftable
который превращает таблицу сопряженности в двумерную отформатированную таблицу и позволяет указать, что отображается в строках, а что в столбцах (также полезно для таблиц с более чем двумя измерениями).А memisc
package помогает превратить это в красивый LaTeX:
library(magrittr)
library(memisc)
expand.grid(Foreigners = 0:5, `Total persons` = 1:8) %>%
cbind(Freq = rnorm(6*8, 20, 10)) %>%
xtabs(formula = Freq~.) %>%
ftable %>%
toLatex
Никакого взлома не требуется, и для имен столбцов в файле можно использовать LaTeX. expand.grid
(для поддержки, напримервращение и/или охват нескольких строк).Для сгенерированного кода LaTeX требуется booktabs
и dcolumn
пакеты.
Связанный: Создание латексной таблицы из объекта ftable в R.
Другие советы
У меня есть довольно хакерское решение, но мне бы хотелось увидеть и другие подходы.Конечно, было бы неплохо, если бы вариант этого кода был добавлен в xtable
.
Мое решение состоит в обновлении rownames()
и colnames()
стола.Заголовок строки переходит в rownames()[1]
, а заголовок столбца переходит в colnames()[1]
.Необходимо помнить несколько вещей:
- Количество столбцов в результирующей таблице на один больше, если используются заголовки строк.Следовательно
tabular
Среда должна быть создана пользователем. - Если добавляется заголовок строки, заголовок столбца должен включать дополнительный
&
- Не очищайте и не переформатируйте имена строк или столбцов иным образом после этой операции.
А add.crosstab.headers
функция позаботится обо всем.Его можно применить к результату xtable()
вызов.Также необходимы некоторые вспомогательные функции.
macrify <- function(m, s, bs='\\') {
paste(bs, m, '{', s, '}', sep='')
}
boldify <- function(s) {
macrify('textbf', s)
}
add.crosstab.headers <- function(t, row.header=NA, col.header=NA,
sanitize=boldify) {
rownames(t) <- sanitize(rownames(t))
colnames(t) <- sanitize(colnames(t))
if (!is.na(row.header)) {
colnames(t)[1] <- paste('&', colnames(t)[1])
rownames(t) <- paste('&', rownames(t))
row.header <- sanitize(row.header)
row.header <- macrify('rotatebox{90}', row.header)
multirow <- macrify('multirow', nrow(t))
multirow <- macrify(multirow, '*', bs='')
row.header <- macrify(multirow, row.header, bs='')
rownames(t)[1] <- paste(row.header, rownames(t)[1])
}
if (!is.na(col.header)) {
col.header <- sanitize(col.header)
multicolumn <- macrify('multicolumn', ncol(t))
multicolumn <- macrify(multicolumn, 'c', bs='')
col.header <- macrify(multicolumn, col.header, bs='')
col.header <- paste(col.header, '\\\\\n')
col.header <- paste(col.header, '&')
if (!is.na(row.header)) {
col.header <- paste('&', col.header)
}
colnames(t)[1] <- paste(col.header, colnames(t)[1])
}
t
}
Использование будет таким.
dat <- matrix(round(rnorm(9, 20, 10)), 3, 3)
t <- xtable(dat)
t <- add.crosstab.headers(t, row.header='Foreigners', col.header='Total persons')
print.xtable(t,
only.contents=TRUE,
booktabs=TRUE
, sanitize.text.function=identity
)
Вот один подход.Начните с некоторых данных (вы должны сделать это при публикации вопроса) в форме матрицы.
dat<-matrix(round(rnorm(9,20,10)),3,3)
.
Создайте вектор имен.Примените имена в матрицу.Распечатать матрицу
persons<-c(seq("0","2"))
foreign<-c(seq("0","2"))
dimnames(dat)<-list(persons=persons, foreign=foreign)
dat
.
Вы можете использовать XTable для вывода таблицы отформатированной в латекс.
library(xtable)
xtable(dat)
.