<\/p>\n
Mo\u017cesz u\u017cy\u0107 nast\u0119puj\u0105cych metod, aby sprawdzi\u0107, czy wiele kolumn jest r\u00f3wnych w ramce danych w R:<\/span><\/p>\n Metoda 1: Sprawd\u017a, czy wszystkie kolumny s\u0105 r\u00f3wne<\/strong><\/span><\/p>\n Metoda 2: Sprawd\u017a, czy okre\u015blone kolumny s\u0105 r\u00f3wne<\/strong><\/span><\/p>\n Poni\u017csze przyk\u0142ady pokazuj\u0105, jak w praktyce zastosowa\u0107 ka\u017cd\u0105 metod\u0119 z nast\u0119puj\u0105c\u0105 ramk\u0105 danych:<\/span><\/p>\n Mo\u017cemy u\u017cy\u0107 nast\u0119puj\u0105cej sk\u0142adni, aby sprawdzi\u0107, czy warto\u015b\u0107 ka\u017cdej kolumny w ramce danych jest r\u00f3wna dla ka\u017cdego wiersza:<\/span><\/p>\n Je\u015bli warto\u015b\u0107 w ka\u017cdej kolumnie jest r\u00f3wna, pasuj\u0105ca<\/strong> kolumna zwraca True<\/strong> .<\/span><\/p>\n W przeciwnym razie zwraca False<\/strong> .<\/span><\/p>\n Pami\u0119taj, \u017ce mo\u017cesz konwertowa\u0107 warto\u015bci True<\/strong> i False<\/strong> na 1<\/strong> i 0<\/strong> za pomoc\u0105 as.numeric()<\/strong> w nast\u0119puj\u0105cy spos\u00f3b:<\/span><\/p>\n Mo\u017cemy zastosowa\u0107 nast\u0119puj\u0105c\u0105 sk\u0142adni\u0119, aby sprawdzi\u0107, czy warto\u015bci w kolumnach A, C i D ramki danych s\u0105 r\u00f3wne dla ka\u017cdego wiersza:<\/span><\/p>\n Je\u015bli warto\u015bci w kolumnach A, C i D s\u0105 r\u00f3wne, pasuj\u0105ca<\/strong> kolumna zwraca True<\/strong> .<\/span><\/p>\n W przeciwnym razie zwraca False<\/strong> .<\/span><\/p>\n Poni\u017csze samouczki wyja\u015bniaj\u0105, jak wykonywa\u0107 inne typowe zadania w j\u0119zyku R:<\/span><\/p>\n Jak sortowa\u0107 wed\u0142ug wielu kolumn w R<\/a> Mo\u017cesz u\u017cy\u0107 nast\u0119puj\u0105cych metod, aby sprawdzi\u0107, czy wiele kolumn jest r\u00f3wnych w ramce danych w R: Metoda 1: Sprawd\u017a, czy wszystkie kolumny s\u0105 r\u00f3wne library (dplyr) #create new column that checks if all columns are equal df <- df %>% rowwise %>% mutate(match = n_distinct(unlist(cur_data())) == 1 ) %>% A group() Metoda 2: Sprawd\u017a, czy […]<\/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-4441","post","type-post","status-publish","format-standard","hentry","category-przewodnik"],"yoast_head":"\n library<\/span> (dplyr)\n\n#create new column that checks if all columns are equal\n<\/span>df <- df %>%\n rowwise %>%\n mutate(match = n_distinct(unlist(cur_data())) == 1<\/span> ) %>%\n A group()\n<\/strong><\/pre>\n library<\/span> (dplyr)\n\n#create new column that checks if columns 'A', 'C', and 'D' are equal\n<\/span>df_temp <- df %>%\n select(' A<\/span> ', ' C<\/span> ', ' D<\/span> ') %>%\n rowwise %>%\n mutate(match = n_distinct(unlist(cur_data())) == 1<\/span> ) %>%\n A group()\n\n#add new column to existing data frame\n<\/span>df$match <- df_temp$match\n<\/strong><\/pre>\n #create data frame\n<\/span>df = data. frame<\/span> (A=c(4, 0, 3, 3, 6, 8, 7),\n B=c(4, 2, 3, 5, 6, 4, 7),\n C=c(4, 0, 3, 3, 5, 10, 7),\n D=c(4, 0, 3, 3, 3, 8, 7))\n\n#view data frame\n<\/span>df\n\n ABCD\n1 4 4 4 4\n2 0 2 0 0\n3 3 3 3 3\n4 3 5 3 3\n5 6 6 5 3\n6 8 4 10 8\n7 7 7 7 7<\/strong><\/pre>\n Przyk\u0142ad 1: Sprawd\u017a<\/strong><\/span> , czy wszystkie kolumny s\u0105 r\u00f3wne<\/strong><\/span><\/h2>\n
library<\/span> (dplyr)\n\n#create new column that checks if all columns are equal\n<\/span>df <- df %>%\n rowwise %>%\n mutate(match = n_distinct(unlist(cur_data())) == 1<\/span> ) %>%\n A group()\n\n#view updated data frame<\/span>\ndf\n\n# A tibble: 7 x 5\n ABCD match\n \n1 4 4 4 4 TRUE \n2 0 2 0 0 FALSE\n3 3 3 3 3 TRUE \n4 3 5 3 3 FALSE\n5 6 6 5 3 FALSE\n6 8 4 10 8 FALSE\n7 7 7 7 7 TRUE \n<\/strong><\/pre>\n library<\/span> (dplyr)\n\n#create new column that checks if all columns are equal\n<\/span>df <- df %>%\n rowwise %>%\n mutate(match = as. numeric<\/span> (n_distinct(unlist(cur_data())) == 1<\/span> )) %>%\n A group()\n\n#view updated data frame<\/span>\ndf\n\n# A tibble: 7 x 5\n ABCD match\n \n1 4 4 4 4 1\n2 0 2 0 0 0\n3 3 3 3 3 1\n4 3 5 3 3 0\n5 6 6 5 3 0\n6 8 4 10 8 0\n7 7 7 7 7 1\n<\/strong><\/pre>\n Przyk\u0142ad 2: Sprawd\u017a, czy okre\u015blone kolumny s\u0105 r\u00f3wne<\/strong><\/span><\/h2>\n
library<\/span> (dplyr)\n\n#create new column that checks if columns 'A', 'C', and 'D' are equal\n<\/span>df_temp <- df %>%\n select(' A<\/span> ', ' C<\/span> ', ' D<\/span> ') %>%\n rowwise %>%\n mutate(match = n_distinct(unlist(cur_data())) == 1<\/span> ) %>%\n A group()\n\n#add new column to existing data frame\n<\/span>df$match <- df_temp$match\n\n#view updated data frame<\/span>\ndf\n\n ABCD match\n1 4 4 4 4 TRUE\n2 0 2 0 0 TRUE\n3 3 3 3 3 TRUE\n4 3 5 3 3 TRUE\n5 6 6 5 3 FALSE\n6 8 4 10 8 FALSE\n7 7 7 7 7 TRUE\n<\/strong><\/pre>\n Dodatkowe zasoby<\/strong><\/span><\/h2>\n
Jak zachowa\u0107 niekt\u00f3re kolumny w R<\/a>
Jak policzy\u0107 liczb\u0119 wyst\u0105pie\u0144 w kolumnach w R<\/a><\/span><\/p>\n","protected":false},"excerpt":{"rendered":"