Я хочу выяснить, отличаются ли организации по остаточному уровню в бюджете (переменная отношения, процент выше или ниже бюджета), если у них есть определенный тип инструмента на месте. Поэтому я хочу создать таблицу со средним (sd) этого остатка бюджета для разных организационных групп (малых, средних, больших), если у них есть инструмент (1, 2, 3). Инструмент представляет собой фиктивную переменную с переменной 1 наличия этого инструмента и 0 для отсутствия этого инструмента.
Кроме того, я хотел бы получить p-значение того, находятся ли в таблице различия между двумя способами наличия или отсутствия этого инструмента для небольшой организации (например, с помощью теста Крускала Уоллиса). Я также работаю с латексом, поэтому хочу экспортировать его в латексный формат.
Поэтому я хочу, чтобы он выглядел так: 
Я уже пробовал это:
library(compareGroups)
table <- compareGroups{sizeorganisation ~ budget + instrument1 + instrument2 + instrument3, data=df)
table2 <- createTable(table, digits=c(budget=2, instrument1=2, instrument2=2, instrment3=2), type=1, show.n=TRUE)
export2latex=table2, header.labels=c(p.overall="p-value"))
Однако теперь я получаю среднее и стандартное отклонение переменных по подгруппе вместо среднего и стандартного отклонения бюджета по типу организации по инструментам.