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
Type: Messages; Utilisateur: xavier-Pierre
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
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.