Modérateur : Groupe des modérateurs
Code : Tout sélectionner
dta <- data.frame(
a = letters,
b = LETTERS,
c = LETTERS,
d = sprintf("%02d", 1:26),
e = letters,
f = sprintf("%02d", 1:26)
)
Code : Tout sélectionner
dta[, !duplicated(as.list(dta))]
Code : Tout sélectionner
library(dplyr)
library(tibble)
dta %>%
t() %>%
data.frame() %>%
rownames_to_column("id") %>%
group_by_at(.vars = vars(starts_with("X"))) %>%
summarise(id = paste(id, collapse = "/")) %>%
ungroup() %>%
column_to_rownames("id") %>%
t() %>%
as.data.frame()
#> d/f a/e b/c
#> X1 01 a A
#> X2 02 b B
#> X3 03 c C
#> X4 04 d D
#> X5 05 e E
#> X6 06 f F
#> X7 07 g G
#> X8 08 h H
#> X9 09 i I
#> X10 10 j J
#> X11 11 k K
#> X12 12 l L
#> X13 13 m M
#> X14 14 n N
#> X15 15 o O
#> X16 16 p P
#> X17 17 q Q
#> X18 18 r R
#> X19 19 s S
#> X20 20 t T
#> X21 21 u U
#> X22 22 v V
#> X23 23 w W
#> X24 24 x X
#> X25 25 y Y
#> X26 26 z Z
Code : Tout sélectionner
ex1 <- structure(list(A = c(1L, 0L, 0L, 9L, 1L), B = c(1L, 0L, 0L, 9L,
1L), C = c(0L, 1L, 0L, 0L, 1L), D = c(0L, 0L, 1L, 0L, 1L), E = c(1L,
0L, 0L, 9L, 1L), F = c(1L, 0L, 0L, 9L, 1L)), .Names = c("A",
"B", "C", "D", "E", "F"), class = "data.frame", row.names = c(NA,
-5L)
ex1_paste <- sapply(ex1, paste, collapse = "")
Code : Tout sélectionner
as.numeric(factor(ex1_paste))
[1] 3 3 2 1 3 3
Code : Tout sélectionner
d <- dist(t(ex1))
u <- unique(as.matrix(d)==0)
apply(u,1,function(i) colnames(u)[i])
Code : Tout sélectionner
match(ex1_paste, unique(ex1_paste))
[1] 1 1 2 3 1 1
Retourner vers « Questions en cours »
Utilisateurs parcourant ce forum : Google [Bot] et 1 invité