<\/p>\n
Funkcja ifelse()<\/strong> w podstawowym R domy\u015blnie konwertuje obiekty daty na obiekty numeryczne.<\/span><\/p>\n Aby temu zapobiec, mo\u017cesz alternatywnie zastosowa\u0107 jedn\u0105 z nast\u0119puj\u0105cych metod:<\/span><\/p>\n Metoda 1: U\u017cyj as.character() w Base R<\/strong><\/span><\/p>\n Metoda 2: U\u017cyj if_else() w dplyr<\/strong><\/span><\/p>\n Metoda 3: U\u017cyj fifelse() w data.table<\/strong><\/span><\/p>\n Poni\u017csze przyk\u0142ady pokazuj\u0105, jak w praktyce wykorzysta\u0107 ka\u017cd\u0105 metod\u0119 z nast\u0119puj\u0105c\u0105 ramk\u0105 danych w R:<\/span><\/p>\n Poni\u017cszy kod pokazuje, jak u\u017cywa\u0107 funkcji as.character()<\/strong> z podstawow\u0105 funkcj\u0105 R ifelse()<\/strong> w celu wykonania instrukcji if else w kolumnie daty<\/strong> ramki danych i wygenerowania w rezultacie daty:<\/span><\/p>\n Je\u015bli warto\u015b\u0107 w kolumnie daty<\/strong> by\u0142a wcze\u015bniejsza ni\u017c 20.01.2022, dodali\u015bmy do daty pi\u0119\u0107 dni.<\/span><\/span><\/p>\n Nale\u017cy zauwa\u017cy\u0107, \u017ce kolumna daty<\/strong> zachowa\u0142a sw\u00f3j format daty, zamiast zosta\u0107 przekonwertowana na format liczbowy.<\/span><\/p>\n Poni\u017cszy kod pokazuje, jak u\u017cy\u0107 funkcji if_else()<\/strong> programu dplyr do wykonania instrukcji if else w kolumnie daty<\/strong> w ramce danych i wygenerowania w rezultacie daty:<\/span><\/p>\n Je\u015bli warto\u015b\u0107 w kolumnie daty<\/strong> by\u0142a wcze\u015bniejsza ni\u017c 20.01.2022, dodali\u015bmy do daty pi\u0119\u0107 dni.<\/span><\/p>\n Nale\u017cy zauwa\u017cy\u0107, \u017ce kolumna daty<\/strong> zachowa\u0142a sw\u00f3j format daty, zamiast zosta\u0107 przekonwertowana na format liczbowy.<\/span><\/p>\n Poni\u017cszy kod ilustruje spos\u00f3b u\u017cycia funkcji fifelse()<\/strong> w data.table do wykonania instrukcji if else w kolumnie daty<\/strong> w ramce danych i wygenerowania w rezultacie daty:<\/span><\/p>\n Je\u015bli warto\u015b\u0107 w kolumnie daty<\/strong> by\u0142a wcze\u015bniejsza ni\u017c 20.01.2022, dodali\u015bmy do daty pi\u0119\u0107 dni.<\/span><\/p>\n Ponownie kolumna daty<\/strong> zachowa\u0142a sw\u00f3j format daty zamiast zosta\u0107 przekonwertowana na format liczbowy.<\/span><\/p>\n Uwaga<\/strong> : w przypadku wyj\u0105tkowo du\u017cych ramek danych metody dplyr i data.table b\u0119d\u0105 szybsze ni\u017c podstawowa metoda R.<\/span><\/p>\n Poni\u017csze samouczki wyja\u015bniaj\u0105, jak wykonywa\u0107 inne typowe zadania w j\u0119zyku R:<\/span><\/p>\n Jak napisa\u0107 zagnie\u017cd\u017con\u0105 instrukcj\u0119 If Else w R<\/a> Funkcja ifelse() w podstawowym R domy\u015blnie konwertuje obiekty daty na obiekty numeryczne. Aby temu zapobiec, mo\u017cesz alternatywnie zastosowa\u0107 jedn\u0105 z nast\u0119puj\u0105cych metod: Metoda 1: U\u017cyj as.character() w Base R df$date <- as. Date (ifelse(df$date < ’ 2022-01-20 ’, as. character (df$date+5), as. character (df$date))) Metoda 2: U\u017cyj if_else() w dplyr df$date <- if_else(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":[3],"tags":[],"class_list":["post-3898","post","type-post","status-publish","format-standard","hentry","category-przewodnik"],"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 Przyk\u0142ad 1: U\u017cyj as.character() w 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 Przyk\u0142ad 2: U\u017cyj if_else() w 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 Przyk\u0142ad 3: U\u017cyj fifelse() w 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 Dodatkowe zasoby<\/strong><\/span><\/h2>\n
Jak napisa\u0107 opis sprawy w j\u0119zyku R<\/a>
Jak doda\u0107 wiele kolumn do ramki danych w R<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"