pourcentage en ligne/colonnes sur une table de contingence

[rindra Randremanana]

Bonjour,
Est ce que quelqu'un pourrait m'aider pour faire apparaître les pourcentages en lignes et en colonnes sur une table de contigence
Merci
Rindra

[Logez Maxime]

Bonjour,

peut-être quelque chose comme ça:

Code : Tout sélectionner

x <- sample(letters[1:4],30,rep=T)
y <- sample(LETTERS[1:4],30,rep=T)

tab1 <- table(x,y)

tab2 <- addmargins(tab1,FUN=list(Pourcentage=function(x) round(sum(x)/sum(tab1)*100,2)))
tab2[length(tab2)] <- 100

tab2
             y
x                  A      B      C      D Pourcentage
  a             3.00   0.00   4.00   1.00       26.67
  b             1.00   1.00   1.00   2.00       16.67
  c             2.00   0.00   0.00   6.00       26.67
  d             3.00   2.00   1.00   3.00       30.00
  Pourcentage  30.00  10.00  20.00  40.00      100.00


Maxime

[rindra Randremanana]

Merci
Rindra