erreur fonction mutate_att

Version imprimable

Le code

Code:

1
2
3
4
5
 
library(dplyr)
ftest<-function(var) {if_else(is.na(var),'',var)  }
t<-data.frame(x=c("1", "2", NA ,"3"),y=c("5", "6", NA ,"4"))
t2<-t %>% mutate_at(c("x"),ftest)

provoque le message d'erreur suivant :

Code:

1
2
 
 Error: `false` must be a character vector, not a `factor` object

Comment faire pour éviter cette erreur ?
Merci

Option stringsAsFactors

Bonjour,

Citation:

Error: `false` must be a character vector, not a `factor` object

Quand vous avez ce type d'erreur, il faut vérifier le type des variables à l'aide de la fonction str(). L'option par défaut d'import des données est stringsAsFactors=TRUE avant la version R 4.0.0 et stringsAsFactors=FALSE à partir de la version R 4.0.0.

Code:

1
2
library(dplyr)
ftest <- function(var) {if_else(is.na(var),'',var)}

Code:

1
2
3
t <- data.frame(x=c("1", "2", NA, "3"),
                y=c("5", "6", NA, "4"),
                stringsAsFactors=TRUE)

Code:

1
2
3
4
> str(t)
'data.frame':   4 obs. of  2 variables:
 $ x: Factor w/ 3 levels "1","2","3": 1 2 NA 3
 $ y: Factor w/ 3 levels "4","5","6": 2 3 NA 1

Code:

1
2
3
> t %>% mutate_at(c("x"),ftest)
Erreur : `false` must be a character vector, not a `factor` object
Run `rlang::last_error()` to see where the error occurred.

Code:

1
2
3
t <- data.frame(x=c("1", "2", NA, "3"),
                y=c("5", "6", NA, "4"),
                stringsAsFactors=FALSE)

Code:

1
2
3
4
> str(t)
'data.frame':   4 obs. of  2 variables:
 $ x: chr  "1" "2" NA "3"
 $ y: chr  "5" "6" NA "4"

Code:

1
2
3
4
5
6
> t %>% mutate_at(c("x"),ftest)
  x    y
1 1    5
2 2    6
3   <NA>
4 3    4

Cordialement

24/05/2020, 11h02
jlp65

Merci !
Je me doutais bien qu'il y avait un problème de type.
Mais je ne savais pas comment le résoudre...
Maintenant, je sais :lol:

Conversion type variables

Vous pouvez aussi utiliser les fonctions as.character(), as.factor(), as.numeric() pour faire les conversions.

Attention toutefois lors du passage du type facteur au type numérique :

Code:

1
2
3
4
df <- data.frame(V1=c(2,4,6,8,10))
df$V1.factor <- as.factor(df$V1)
df$V2.KO <- as.numeric(df$V1.factor)
df$V2.OK <- as.numeric(as.character(df$V1.factor))

Code:

1
2
3
4
5
6
7
> df
  V1 V1.factor V2.KO V2.OK
1  2         2     1     2
2  4         4     2     4
3  6         6     3     6
4  8         8     4     8
5 10        10     5    10

Cordialement,