Recherche:

bonjour ,
pas de chance la dernière valeur de var est dans out1 et comme tu incrémente j à 100 ==> erreur

autrement il y a beaucoup plus simple

which(var %in% out1)
cdlt

bonjour pour changer l'ordre des colonnes ,une façon de faire



library(tidyverse)

df <- tibble(A1 =NA,A2 =NA,A3 =NA,A4 =NA,A5 =NA,A6 =NA,A7 =NA,A8 =NA,A9 =NA,A10=NA,A11=NA,A12=NA,
B1...

plus simple et pour garder les 3 niveaux



lexicon2 <- data.frame("Level1" = c(rep("Tox", 9), rep("No tox", 3),rep("safety",3)),
"Level2" = c(rep("Enterobacteria", 6),...

bonjour ,
le problème vient du fait que l'on a des niveaux 2 qui sont communs à 2 niveaux 1 (Bacillus ==> Tox et no tox; Probiotic ==> no Tox et safety)
une solution possible est de fusionner les...

pas de soucis, je prends la caisse automatique et je laisse au professeur la caisse traditionnelle...

library(tidyverse)
df <-data.frame(nom=c("f1.jpg","f1.jpg","f1.jpg","f2.jpg","f2.jpg","f2.jpg"),
r=c(185,171,177,180,191,178),
...

bonjour,


moyennes_par_etablissement <- d %>%
group_by(`Nom étab. inscr.`) %>%
summarise(Moyenne = mean(Note, na.rm = TRUE))

bonne fête

Bonjour , je pense que le mieux est de mettre le dataframe sous forme "tidy"




library(tidyverse)

df <- data.frame(
annee = rep(2010:2022),
variable1 = rnorm(13),

bonjour, avec la fonction replace


df2 <- replace(df$new,which(is.na(df$new)),df$old[which(is.na(df$new))])

bon week-end

bonjour , une solution un peu "laborieuse", il doit avoir plus simple




library(tidyverse)

remplacer_NA <- function(x,y){
l=str_replace_all(x,"NA","N")
...

bonjour
tu peux faire


carto_equipt<- ggplot(data=df,aes(cat,round(df[,var_nom[i]],1)))+geom_point()


ou

carto_equipt<- ggplot(data=df,aes(cat,round(!!sym(var_nom[1]),1)))+geom_point()

juste une question: comment fait on pour différencier un homme d' un non binaire?

bonjour ,
essaye la fonction unnest() du package tidyr

bonjour


tab3 <- tab1[tab1$head %in% (tab2$head - 1),]

cdlt

encore un article généré par l'IA

Bonjour , une solution possible



df_resultat <- df_depart |>
mutate(transposition=str_extract_all(description,"ND_\\d{5}")) |> ##création colonne contenant la liste des items voulus
...

bonjour , une solution possible mais avec le tidyverse



library(tidyverse)
library(glue)

## tableau de départ

tab <- data.frame(bb=999,

bonjour


# ??? <- data2[,as.numeric(end[i-1]+1):as.numeric(end[i])]
df <- data2[,as.numeric(end[i-1]+1):as.numeric(end[i])]
assign(paste0("tab",i),df

cdlt

bonjour à tester, il doit avoir peut-être plus simple



ajout_etat <- function(annee){
d %>% mutate(
"etat{annee}" := case_when(
!! sym(str_c("rang",annee)) == "R1" & !!...

bonjour en utilisant la fonction rename ça ne serait pas plus simple et explicite?


s2<- dplyr::rename(s,code_postal = code_postal_salarie, compladr= complement_no_adresse_salarie)

est ce que (e_18yo + 1)/2) ne serait pas négatif?

bonjour ,
cela signifie que plusieurs packages ont des fonctions de même noms

dplyr::between() masks data.table::between()
si dans le script on utilise la fonction between() il utilisera la...

library(tidyverse)
## df dataframe avec tes 2 colonnes NUM et MED
resultat <- df %>% mutate(MED2 = ifelse(str_sub(MED,1,3) =='ABC',1,0)

cauchemardesque...

merci pour l'info,
pour participer aux tutos, vu que je découvre Julia , ça me sera un peu difficile
je vous souhaite de bonnes fêtes de fin d'année