Modérateur : Groupe des modérateurs
Code : Tout sélectionner
dta<-structure(list(N = 1:11, Groupe = structure(c(3L, 3L, 4L, 4L,
4L, 1L, 1L, 1L, 2L, 2L, 2L),
.Label = c(" Bleu", " Jaune", " Rouge"," Vert"), class = "factor"),
Vote = structure(c(1L, 1L, 1L, 2L,2L, 2L, 2L, 1L, 2L, 2L, 2L),
.Label = c(" Le Pen", " Macron"), class = "factor")), class = "data.frame", row.names = c(NA,-11L))
with(dta,table(Groupe,Vote))
Groupe Le Pen Macron
Bleu 1 2
Jaune 0 3
Rouge 2 0
Vert 1 2
Code : Tout sélectionner
resu<-with(dta,table(Groupe,Vote))
apply(resu,1,function(x) ifelse(any(x==0),colnames(resu)[x!=0],"Diff"))
Bleu Jaune Rouge Vert
"Diff" " Macron" " Le Pen" "Diff"
Code : Tout sélectionner
fun <- function (x)
{
u <- unique(x)
if (length(u) > 1.5)
u <- "Diff"
u
}
aggregate(as.character(Vote) ~ Groupe, dta, fun)
Retourner vers « Questions en cours »
Utilisateurs parcourant ce forum : Aucun utilisateur enregistré et 1 invité