<\/p>\n
Do obliczenia mediany warto\u015bci wierszy w R mo\u017cna u\u017cy\u0107 nast\u0119puj\u0105cych metod:<\/span><\/p>\n Metoda 1: Oblicz median\u0119 wierszy przy u\u017cyciu podstawy R<\/strong><\/span><\/p>\n Metoda 2: Oblicz median\u0119 wierszy za pomoc\u0105 narz\u0119dzia dplyr<\/strong><\/span><\/p>\n Poni\u017csze przyk\u0142ady pokazuj\u0105, jak zastosowa\u0107 ka\u017cd\u0105 metod\u0119 w praktyce.<\/span><\/p>\n Za\u0142\u00f3\u017cmy, \u017ce mamy nast\u0119puj\u0105c\u0105 ramk\u0119 danych w R, kt\u00f3ra pokazuje punkty zdobyte przez r\u00f3\u017cnych koszykarzy w trzech r\u00f3\u017cnych meczach:<\/span><\/p>\n Mo\u017cemy u\u017cy\u0107 funkcji bazowej R Apply()<\/strong> do utworzenia nowej kolumny wy\u015bwietlaj\u0105cej median\u0119 ka\u017cdego wiersza:<\/span><\/p>\n Nowa kolumna o nazwie row_median<\/strong> zawiera median\u0119 ka\u017cdego wiersza w ramce danych.<\/span><\/p>\n Za\u0142\u00f3\u017cmy, \u017ce mamy nast\u0119puj\u0105c\u0105 ramk\u0119 danych w R, kt\u00f3ra pokazuje punkty zdobyte przez r\u00f3\u017cnych koszykarzy w trzech r\u00f3\u017cnych meczach:<\/span><\/p>\n Mo\u017cemy u\u017cy\u0107 funkcji mutate()<\/strong> z pakietu dplyr,<\/span> aby utworzy\u0107 now\u0105 kolumn\u0119 wy\u015bwietlaj\u0105c\u0105 median\u0119 ka\u017cdego wiersza tylko dla kolumn liczbowych:<\/span><\/p>\n Nowa kolumna o nazwie row_median<\/strong> zawiera median\u0119 ka\u017cdego wiersza w ramce danych tylko dla kolumn numerycznych.<\/span><\/p>\n Poni\u017csze samouczki wyja\u015bniaj\u0105, jak wykonywa\u0107 inne typowe zadania w j\u0119zyku R:<\/span><\/p>\n Jak zast\u0105pi\u0107 NA median\u0105 w R<\/a> Do obliczenia mediany warto\u015bci wierszy w R mo\u017cna u\u017cy\u0107 nast\u0119puj\u0105cych metod: Metoda 1: Oblicz median\u0119 wierszy przy u\u017cyciu podstawy R df$row_median = apply(df, 1, median, na. rm = TRUE ) Metoda 2: Oblicz median\u0119 wierszy za pomoc\u0105 narz\u0119dzia dplyr library (dplyr) df %>% rowwise() %>% mutate(row_median = median(c_across(where(is. numeric )), na. rm = TRUE )) […]<\/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-3495","post","type-post","status-publish","format-standard","hentry","category-przewodnik"],"yoast_head":"\n df$row_median = apply(df, 1, median, na. rm<\/span> = TRUE<\/span> )\n<\/strong><\/pre>\n library<\/span> (dplyr) \n\ndf %>%\n rowwise() %>%\n mutate(row_median = median(c_across(where(is. numeric<\/span> )), na. rm<\/span> = TRUE<\/span> ))\n<\/strong><\/pre>\n Przyk\u0142ad 1: Oblicz median\u0119 wierszy przy u\u017cyciu podstawy R<\/strong><\/span><\/h2>\n
#create data frame\n<\/span>df <- data. frame<\/span> (game1=c(10, 12, 14, 15, 16, 18, 19),\n game2=c(14, 19, 13, 8, 15, 15, 17),\n game3=c(9, NA, 15, 25, 26, 30, 19))\n\n#view data frame\n<\/span>df\n\n game1 game2 game3\n1 10 14 9\n2 12 19 NA\n3 14 13 15\n4 15 8 25\n5 16 15 26\n6 18 15 30\n7 19 17 19\n<\/span><\/span><\/strong><\/pre>\n #calculate median of each row\n<\/span>df$row_median = apply(df, 1, median, na. rm<\/span> = TRUE<\/span> )\n\n#view updated data frame\n<\/span>df\n\n game1 game2 game3 row_median\n1 10 14 9 10.0\n2 12 19 NA 15.5\n3 14 13 15 14.0\n4 15 8 25 15.0\n5 16 15 26 16.0\n6 18 15 30 18.0\n7 19 17 19 19.0\n<\/span><\/span><\/strong><\/pre>\n Przyk\u0142ad 2: Oblicz median\u0119 wierszy za pomoc\u0105 dplyr<\/strong><\/span><\/h2>\n
#create data frame\n<\/span>df <- data. frame<\/span> (player=c('A', 'B', 'C', 'D', 'E', 'F', 'G'),\n game1=c(10, 12, 14, 15, 16, 18, 19),\n game2=c(14, 19, 13, 8, 15, 15, 17),\n game3=c(9, NA, 15, 25, 26, 30, 19))\n\n#view data frame\n<\/span>df\n\n player game1 game2 game3\n1 A 10 14 9\n2 B 12 19 NA\n3 C 14 13 15\n4 D 15 8 25\n5 E 16 15 26\n6 F 18 15 30\n7 G 19 17 19\n<\/span><\/span><\/strong><\/pre>\n library<\/span> (dplyr)\n\n#calculate median of rows for numeric columns only\n<\/span>df %>%\n rowwise() %>%\n mutate(row_median = median(c_across(where(is. numeric<\/span> )), na. rm<\/span> = TRUE<\/span> ))\n\n# A tibble: 7 x 5\n#Rowwise: \n player game1 game2 game3 row_median\n \n1 A 10 14 9 10 \n2 B 12 19 NA 15.5\n3 C 14 13 15 14 \n4 D 15 8 25 15 \n5 E 16 15 26 16 \n6 F 18 15 30 18 \n7 G 19 17 19 19<\/span><\/span><\/strong><\/pre>\n Dodatkowe zasoby<\/strong><\/span><\/h2>\n
Jak obliczy\u0107 \u015bredni\u0105 obci\u0119t\u0105 w R<\/a>
Jak obliczy\u0107 \u015bredni\u0105 wa\u017con\u0105 w R<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"