studio - superponer graficas en r

Total marginal en tablas

Question

Tengo un marco de datos con una serie de infecciones identificadas a partir de aislados clínicos en diferentes fechas.

Hasta ahora he organizado los datos en una forma con la que quiero comenzar a trabajar. Estoy tratando de preparar una serie de tablas con tablas para las estadísticas descriptivas del informe.

He estado usando ftable y obtengo lo siguiente:

onset.types <- ftable(SAB$Onset,SAB$MRSA.Type,year(SAB$Collection.Date))
2005 2006 2007 2008 2009 2010
Community 454 472 512 499 525 512
AUS-2/3-like 28 23 27 29 32 38
EMRSA-15-like 9 4 4 9 8 8
nmMRSA 40 47 53 39 64 60
Other mMRSA 1 3 3 11 5 9
unclassified MRSA 0 2 0 0 1 1
Hospital 163 163 156 164 149 165
AUS-2/3-like 31 33 27 31 29 28
EMRSA-15-like 3 8 5 9 4 3
nmMRSA 10 9 13 17 13 12
Other mMRSA 5 1 6 2 3 10
unclassified MRSA 2 0 1 0 0 0

Dos preguntas:

1: ¿Cómo calcularía los totales marginales?

2: ¿Existe una manera fácil de calcular porcentajes y también se cuenta nuevamente con totales marginales?

He probado epitools y no lo encontré tan útil como me hubiera gustado.

Muchas gracias.

Answer 1

Para agregar márgenes, use addmargins()

addmargins(table(state.division, state.region))
state.region
state.division Northeast South North Central West Sum
New England 6 0 0 0 6
Middle Atlantic 3 0 0 0 3
South Atlantic 0 8 0 0 8
East South Central 0 4 0 0 4
West South Central 0 4 0 0 4
East North Central 0 0 5 0 5
West North Central 0 0 7 0 7
Mountain 0 0 0 8 8
Pacific 0 0 0 5 5
Sum 9 16 12 13 50

Para calcular porcentajes, use prop.table()

prop.table(table(state.division, state.region))
state.region
state.division Northeast South North Central West
New England 0.12 0.00 0.00 0.00
Middle Atlantic 0.06 0.00 0.00 0.00
South Atlantic 0.00 0.16 0.00 0.00
East South Central 0.00 0.08 0.00 0.00
West South Central 0.00 0.08 0.00 0.00
East North Central 0.00 0.00 0.10 0.00
West North Central 0.00 0.00 0.14 0.00
Mountain 0.00 0.00 0.00 0.16
Pacific 0.00 0.00 0.00 0.10

Answer 2

También funciona con el paquete de encuesta svytable() .

addmargins(svytable(formula = ~x1+x2, design = df.w))