Discussion :

[pak75]

Bonsoir,

Pourriez-vous me suggérer une solution pour la recherche multicritères suivante svp.

Je souhaite chercher la valeur de la colonne "basis" qui satisfait les deux critères (regime, insured). Le debug me renvoie toujours 0 comme valeur.

J'ai essayé également avec which() mais ça ne marche pas.

Merci de bien vouloir me donner un coup de main.

Paul

--------- C'est un exemple -----

Code :

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

1
2
3
4
5
6
7
8
9
 output$d_uiHealthRequired <- renderUI({
    ## read data table
       myfileScal <- "www/healthScal.csv"
        mydata_Scal=read.csv(myfileScal, sep=";", header=TRUE)
    ## get value  
        basisEmployesValue <- mydata_Scal[mydata_Scal$regime == "general", mydata_Scal$insured == "employes","basis",]
        basisChildValue <- mydata_Scal[mydata_Scal$regime == "general", mydata_Scal$insured == "child","basis",]
        basisThirdChildsValue <- mydata_Scal[mydata_Scal$regime == "general", mydata_Scal$insured == "thirdChilds","basis",]
})

-- le fichier healthScal.csv ----

Code :

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

1
2
3
4
5
6
7
regime;insured;basis;economic;confort;premium
general;employes;31.7;12;22;50
general;child;20;6;11;25
general;thirdChilds;0;0;0;0
alsaceMoselle;employes;18;12;22;50
alsaceMoselle;child;11;6;11;25
alsaceMoselle;thirdChilds;0;0;0;0

[Alpacky]

Bonjour,

il existe en effet de multiples façons de faire, en voici une avec which

Code :

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

mydata_Scal[which((mydata_Scal$regime == "general") & (mydata_Scal$insured == "employes")) , "basis"]

Le critère est sur la colonne regime & insured ==> le which... permet de sélectionner la ligne correspondante et le , "basis" renvoie uniquement la valeur pour la colonne basis

Je ne sais pas si la réponse est utile comme le message est identifié en résolu.
Bonne journée,

[pak75]

Bonjour Alpacky,
Merci pour ton aide mais entre temps j'ai trouvé pourquoi
L'erreur vient de mon fichier csv, j'ai sauvegardé par mégarde avec l'option CSV UTF8 avec séparateur ","
Tous mes autres fichiers csv sont sauvegardé avec l'option CSC séparateur ";"
Une fois corrigé

Code :

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

mydata_Scal[which((mydata_Scal$regime == "general") & (mydata_Scal$insured == "employes")) , "basis"]

ou

Code :

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

mydata_Scal[mydata_Scal$regime == "general" & mydata_Scal$insured == "employes" , "basis"]

fait l'affaire.
Merci Alpacky