<\/p>\n
Vaak wilt u uitschieters uit meerdere kolommen tegelijk verwijderen in R.<\/span><\/p>\n Een gebruikelijke manier om een waarneming als uitbijter te defini\u00ebren is als deze 1,5 maal de interkwartielafstand boven het derde kwartiel (Q3) of 1,5 maal de interkwartielafstand onder het eerste kwartiel (Q1) ligt.<\/span><\/p>\n Met behulp van deze definitie kunnen we de volgende stappen gebruiken om een eenvoudige functie te maken om uitschieters te identificeren en deze functie vervolgens toe te passen op meerdere kolommen in een R-dataframe.<\/span><\/p>\n Stap 1: Maak een dataframe.<\/strong><\/span><\/p>\n Laten we beginnen met het maken van een dataframe in R:<\/span><\/p>\n Stap 2: Definieer de uitbijterfunctie.<\/strong><\/span><\/p>\n Laten we vervolgens een functie defini\u00ebren die uitschieters kan identificeren en een functie die vervolgens uitschieters kan verwijderen:<\/span><\/p>\n Stap 3: Pas de uitbijterfunctie toe op het dataframe.<\/strong><\/span><\/p>\n Laten we ten slotte deze functie toepassen op verschillende kolommen van het dataframe om uitschieters te verwijderen:<\/span><\/p>\n Meer R-tutorials vindt u hier .<\/em><\/span><\/p>\n","protected":false},"excerpt":{"rendered":" Vaak wilt u uitschieters uit meerdere kolommen tegelijk verwijderen in R. Een gebruikelijke manier om een waarneming als uitbijter te defini\u00ebren is als deze 1,5 maal de interkwartielafstand boven het derde kwartiel (Q3) of 1,5 maal de interkwartielafstand onder het eerste kwartiel (Q1) ligt. Met behulp van deze definitie kunnen we de volgende stappen gebruiken […]<\/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-1082","post","type-post","status-publish","format-standard","hentry","category-gids"],"yoast_head":"\n df <- data.frame(index=c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10),\n var1=c(4, 4, 5, 4, 3, 2, 8, 9, 4, 5),\n var2=c(1, 2, 4, 4, 6, 9, 7, 8, 5, 29),\n var3=c(9, 9, 9, 5, 5, 3, 4, 5, 11, 34))\n<\/strong><\/pre>\n
outliers <- function<\/span> (x) {\n\n Q1 <- quantile(x, probs<\/span> =.25)\n Q3 <- quantile(x, probs<\/span> =.75)\n iqr = Q3-Q1\n\n upper_limit = Q3 + (iqr*1.5)\n lower_limit = Q1 - (iqr*1.5)\n\n x > upper_limit | x < lower_limit\n}\n\nremove_outliers <- function<\/span> (df, cols = names<\/span> (df)) {\n for (col in<\/span> cols) {\n df <- df[!outliers(df[[col]]),]\n }\n df\n}<\/strong><\/pre>\n remove_outliers(df, c('var1', 'var2', 'var3'))\n\n index var1 var2 var3\n1 1 4 1 9\n2 2 4 2 9\n3 3 5 4 9\n4 4 4 4 5\n5 5 3 6 5\n9 9 4 5 11\n<\/strong><\/pre>\n