<\/p>\n
De functie ifelse()<\/strong> in base R converteert datumobjecten standaard naar numerieke objecten.<\/span><\/p>\n Om dit te voorkomen, kunt u als alternatief een van de volgende methoden gebruiken:<\/span><\/p>\n Methode 1: Gebruik as.character() in Base R<\/strong><\/span><\/p>\n Methode 2: Gebruik if_else() in dplyr<\/strong><\/span><\/p>\n Methode 3: Gebruik fifelse() in data.table<\/strong><\/span><\/p>\n De volgende voorbeelden laten zien hoe u elke methode in de praktijk kunt gebruiken met het volgende dataframe in R:<\/span><\/p>\n De volgende code laat zien hoe u de functie as.character()<\/strong> gebruikt met de functie R base ifelse()<\/strong> om een if else-instructie uit te voeren op de datumkolom<\/strong> van het dataframe en als resultaat een datum te produceren:<\/span><\/p>\n Als een waarde in de datumkolom<\/strong> v\u00f3\u00f3r 20-01-2022 lag, hebben we vijf dagen aan de datum toegevoegd.<\/span><\/span><\/p>\n Houd er rekening mee dat de datumkolom<\/strong> zijn datumnotatie heeft behouden in plaats van te zijn geconverteerd naar een getalnotatie.<\/span><\/p>\n De volgende code laat zien hoe u de if_else()-<\/strong> functie van dplyr kunt gebruiken om een if else-instructie uit te voeren op de datumkolom<\/strong> in het dataframe en als resultaat een datum te produceren:<\/span><\/p>\n Als een waarde in de datumkolom<\/strong> v\u00f3\u00f3r 20-01-2022 lag, hebben we vijf dagen aan de datum toegevoegd.<\/span><\/p>\n Houd er rekening mee dat de datumkolom<\/strong> zijn datumnotatie heeft behouden in plaats van te zijn geconverteerd naar een getalnotatie.<\/span><\/p>\n De volgende code laat zien hoe u de functie fifelse()<\/strong> van data.table gebruikt om een if else-instructie uit te voeren op de datumkolom<\/strong> in het dataframe en als resultaat een datum te produceren:<\/span><\/p>\n Als een waarde in de datumkolom<\/strong> v\u00f3\u00f3r 20-01-2022 lag, hebben we vijf dagen aan de datum toegevoegd.<\/span><\/p>\n Opnieuw behield de datumkolom<\/strong> zijn datumnotatie in plaats van te worden geconverteerd naar een getalnotatie.<\/span><\/p>\n Opmerking<\/strong> : voor extreem grote dataframes zijn de methoden dplyr en data.table sneller dan de basis-R-methode.<\/span><\/p>\n In de volgende tutorials wordt uitgelegd hoe u andere veelvoorkomende taken in R kunt uitvoeren:<\/span><\/p>\n Hoe schrijf je een geneste If Else-instructie in R<\/a> De functie ifelse() in base R converteert datumobjecten standaard naar numerieke objecten. Om dit te voorkomen, kunt u als alternatief een van de volgende methoden gebruiken: Methode 1: Gebruik as.character() in Base R df$date <- as. Date (ifelse(df$date < ‚ 2022-01-20 ‚, as. character (df$date+5), as. character (df$date))) Methode 2: Gebruik if_else() in dplyr df$date […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[11],"tags":[],"class_list":["post-3900","post","type-post","status-publish","format-standard","hentry","category-gids"],"yoast_head":"\n df$date <- as. Date<\/span> (ifelse(df$date < ' 2022-01-20<\/span> ',\n as. character<\/span> (df$date+5),\n as. character<\/span> (df$date)))<\/strong><\/pre>\n df$date <- if_else(df$date < ' 2022-01-20<\/span> ', df$date+5, df$date)<\/strong><\/pre>\n df$date <- fifelse(df$date < ' 2022-01-20<\/span> ', df$date+5, df$date)<\/strong><\/pre>\n #create data frame<\/span>\ndf <- data. frame<\/span> (date=as. Date<\/span> (c('2022-01-05', '2022-01-17', '2022-01-22',\n '2022-01-23', '2022-01-29', '2022-02-13')),\n sales=c(22, 35, 24, 20, 16, 19))\n\n#view data frame\n<\/span>df\n\n dirty date\n1 2022-01-05 22\n2 2022-01-17 35\n3 2022-01-22 24\n4 2022-01-23 20\n5 2022-01-29 16\n6 2022-02-13 19\n<\/strong><\/pre>\n Voorbeeld 1: Gebruik as.character() in Base R<\/strong><\/span><\/h2>\n
#if date is before 2022-01-20 then add 5 days<\/span>\ndf$date <- as. Date<\/span> (ifelse(df$date < ' 2022-01-20<\/span> ',\n as. character<\/span> (df$date+5),\n as. character<\/span> (df$date)))\n\n#view updated data frame<\/span>\ndf\n\n dirty dates\n1 2022-01-10 22\n2 2022-01-22 35\n3 2022-01-22 24\n4 2022-01-23 20\n5 2022-01-29 16\n6 2022-02-13 19\n<\/strong><\/pre>\n Voorbeeld 2: Gebruik if_else() in dplyr<\/strong><\/span><\/h2>\n
library<\/span> (dplyr)<\/span>\n\n#if date is before 2022-01-20 then add 5 days<\/span>\ndf$date <- if_else(df$date < ' 2022-01-20<\/span> ', df$date+5, df$date)\n\n#view updated data frame<\/span>\ndf\n\n dirty date\n1 2022-01-10 22\n2 2022-01-22 35\n3 2022-01-22 24\n4 2022-01-23 20\n5 2022-01-29 16\n6 2022-02-13 19\n<\/strong><\/pre>\n Voorbeeld 3: Gebruik fifelse() in data.table<\/strong><\/span><\/h2>\n
library<\/span> (data.table)<\/span>\n\n#if date is before 2022-01-20 then add 5 days<\/span>\ndf$date <- fifelse(df$date < ' 2022-01-20<\/span> ', df$date+5, df$date)\n\n#view updated data frame<\/span>\ndf\n\n dirty dates\n1 2022-01-10 22\n2 2022-01-22 35\n3 2022-01-22 24\n4 2022-01-23 20\n5 2022-01-29 16\n6 2022-02-13 19\n<\/strong><\/pre>\n Aanvullende bronnen<\/strong><\/span><\/h2>\n
Hoe schrijf je een casusverklaring in R<\/a>
Hoe meerdere kolommen aan een dataframe toe te voegen in R<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"