Discussion :

[mou_tou]

Bonjour
J'ai une matrice de données hétérogènes qui contient les types ( des données numériques , des intervalles , chaines string ) .
J'ai déclarer la matrice comme suit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
frids <- data_frame(
  name = c("Nicolas", "Thierry", "Bernard", "Jerome", "peter", "yassine", "karim"),
  age = c(27, 26, 30, 31, 31, 38, 39),
  height = c(180, 178, 190, 185, 187, 160, 158),
  married = c(T, T, F, F, F, T, T)
)
i <- Intervals(
  matrix(
    c(0,5000,  
      0,5000,
      7000,10000,  
      7000,10000,
      7000,10000,
      10000,15000,  
      10000,15000
    ),
    byrow = TRUE,
    ncol = 2
  ),
  closed = c( TRUE, TRUE ),
  type = "R"
)
frids$salaire = i

Je souhaite faire des permutations de colonnes de façon à ce que , lorsque je parcours les données dans une ligne : les données de 0 à p sont des scalaires , puis de p+1 à L sont des intervalles , puis de L+1 à n sont des strings.

Je cherche des fonctions prédifinies ou packages pour le faire.

dont mon exemple on va avoir cet ordre des colonnes : $age , $height , $salaire , $name , $married .

J’espère être dans le bon forum.
merci d'avance de votre aide.

[mou_tou]

C résolu

For adding data :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
 
frids <- data_frame(
  name = c("Nicolas", "Thierry", "Bernard", "Jerome", "peter", "yassine", "karim"),
  age = c(27, 26, 30, 31, 31, 38, 39),
  height = c(180, 178, 190, 185, 187, 160, 158),
  married = c("M", "M", "N", "N", "N", "M", "M")
)
i <- Intervals(
  matrix(
    c(0,5000,  
      0,5000,
      7000,10000,  
      7000,10000,
      7000,10000,
      10000,15000,  
      10000,15000
    ),
    byrow = TRUE,
    ncol = 2
  ),
  closed = c( TRUE, TRUE ),
  type = "R"
)
frids$salaire = i
frids

pour calculer le nombre des colonnes pour chaque type des données :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

table(unlist(lapply(frids, class)))

charger package helpRFunctions

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

library(helpRFunctions)

pour lister les noms des colonnes par type de variable :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

t<-list.df.var.types(frids)

pour renvoyer une sous matrice de types voulues , les colonnes sont triées par type de données :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

frids[c(t$numeric , t$Intervals)]

pour installer les packages nécessaires à cette résolution :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
install.package('devtools') # Only needed if you dont have this installed.
library(devtools)
install_github('adam-m-mcelhinney/helpRFunctions')
library(helpRFunctions)