problème ifelse si condition fausse

Version imprimable

29/03/2012, 19h11
demiryur

problème ifelse si condition fausse

Bonjour,

J'ai une question,
En fait dans mon ifelse si la condition est fausse je souhaite que rien ne se passe , je veux garder la valeur de départ mais R ne veut pas :(

mon code:

Code:

tab2rm$CatU=ifelse(tab2rm$LVeh==tab2rm$Lveh1,as.character(tab2rm$CatU1),as.character(tab2rm$CatU))

Je souhaite garder la valeur de tab2rm$CatU dans tab2rm$CatU si la condition est fausse,

R si la condition est fausse me met NA à la place.

Merci :)
30/03/2012, 16h30
vchouraki

Bonjour,

Dans ce cas, ne pas utiliser ifelse?

Code:

tab2rm$CatU[which(tab2rm$LVeh==tab2rm$Lveh1)] <- as.character(tab2rm$CatU1)

HTH

Vincent

Merci pour votre réponse mais j'ai trouvé une alternative pour résoudre mon problème avec des sous-table.
Là j'ai un autre problème quand je veux fusionner mes tables par ligne tout à la fin de mon code j'ai ce message d'erreur que signifie-t-il ??

Code:

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
## Importation des données 
## chemin d'accès et nom du fichier source
 
dba <- "C:/Documents and Settings/Administrateur/Bureau/base donnée maxi-scooter/acc_2rm_idf_2008_CLV.xls"
dbb <- "C:/Documents and Settings/Administrateur/Bureau/base donnée maxi-scooter/acc_2rm_idf_2008_UR.xls"
dbc <- "C:/Documents and Settings/Administrateur/Bureau/base donnée maxi-scooter/acc_2rm_idf_2009_CLV.xls"
dbd <- "C:/Documents and Settings/Administrateur/Bureau/base donnée maxi-scooter/acc_2rm_idf_2009_UR.xls"
dbe <- "C:/Documents and Settings/Administrateur/Bureau/base donnée maxi-scooter/acc_2rm_idf_2010_CLV.xls"
dbf <- "C:/Documents and Settings/Administrateur/Bureau/base donnée maxi-scooter/acc_2rm_idf_2010_UR.xls"
 
## ouverture d'une connexion ODBC vers db
 
channela <- odbcConnectExcel(xls.file = dba)
channelb <- odbcConnectExcel(xls.file = dbb)
channelc <- odbcConnectExcel(xls.file = dbc)
channeld <- odbcConnectExcel(xls.file = dbd)
channele <- odbcConnectExcel(xls.file = dbe)
channelf <- odbcConnectExcel(xls.file = dbf)
 
acc2008_clv <- sqlFetch(channel = channela,sqtable = "CONCERTO")
acc2008_ur  <- sqlFetch(channel = channelb,sqtable = "CONCERTO")
acc2009_clv <- sqlFetch(channel = channelc,sqtable = "CONCERTO")
acc2009_ur  <- sqlFetch(channel = channeld,sqtable = "CONCERTO")
acc2010_clv <- sqlFetch(channel = channele,sqtable = "CONCERTO")
acc2010_ur  <- sqlFetch(channel = channelf,sqtable = "CONCERTO")
 
odbcClose(channela)
odbcClose(channelb)
odbcClose(channelc)
odbcClose(channeld)
odbcClose(channele)
odbcClose(channelf)
 
##Fusion des tables
# par colonnes 
acc2008=merge(acc2008_clv,acc2008_ur,by=c("Org/Unité/PV","Date","Heure"),all=F) 
acc2009=merge(acc2009_clv,acc2009_ur,by=c("Org/Unité/PV","Date","Heure"),all=F) 
acc2010=merge(acc2010_clv,acc2010_ur,by=c("Org/Unité/PV","Date","Heure"),all=F) 
# par lignes
acc08_10=rbind(acc2008,acc2009,acc2010)

Messages d'avis :
1: In `[<-.factor`(`*tmp*`, ri, value = c(NA, NA, NA, NA, -170989200, :
niveau de facteur incorrect, NAs générés
2: In `[<-.factor`(`*tmp*`, ri, value = c(NA, NA, NA, NA, 77, NA, NA, :
niveau de facteur incorrect, NAs générés

J'ai résolu mon problème en triant ma table excel avec les variables qu'il ne reconnaissait pas pour l'importation.

Mais maintenant j'ai un nouveau problème :? quand je merge mes tables
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 > nrow(tab_veh) [1] 31506 > nrow(tab_usag) [1] 30960 > tab_uv=merge(tab_veh,tab_usag,by=c("Org/Unité/PV","Date","Heure","LVeh"),all=T) > nrow(tab_uv) [1] 31525 > tab_uv_idf=unique(tab_uv) > nrow(tab_uv_idf) [1] 31521 > tab_uv=merge(tab_veh,tab_usag,by=c("Org/Unité/PV","Date","Heure","LVeh"),all.x=T) > nrow(tab_uv) [1] 31525 > tab_uv_idf=unique(tab_uv) > nrow(tab_uv_idf) [1] 31521
Sur ma table tab_uv je souhaite qu'il y ait le même nombre d'observation que tab_veh, en fait je veux toutes les observations de tab_veh et seulement ceux associé de ma table tab_usag, le problème c'est que j'ai 15 lignes en trop :cry: . En fait je pense que le problème peut être réglé si je peux utiliser la fonction unique pour ces variables ("Org/Unité/PV","Date","Heure","LVeh") mais je sais pas comment coder ça :?

Merci

03/04/2012, 14h25
demiryur

J'ai résolu mon problème avec:

Code:

tab_uv_idf=tab_uv[!duplicated(tab_uv[,c("Org/Unité/PV","Date","Heure","LVeh")]),]