İki sütunun EITHER'indeki değerlere dayalı olarak benzersiz bir kimlik atayın
Dec 16 2020
Bu, bu sorunun kopyası değil . Kopyaları etiketlemeden önce lütfen soruları tamamen okuyun.
Bunun gibi bir data.frame var:
library(tidyverse)
tibble(
color = c("blue", "blue", "red", "green", "purple"),
shape = c("triangle", "square", "circle", "hexagon", "hexagon")
)
color shape
<chr> <chr>
1 blue triangle
2 blue square
3 red circle
4 green hexagon
5 purple hexagon
Bunun gibi bir group_id
sütun eklemek istiyorum:
color shape group_id
<chr> <chr> <dbl>
1 blue triangle 1
2 blue square 1
3 red circle 2
4 green hexagon 3
5 purple hexagon 3
Zorluk, benzersiz değerlerine göre gruplamak istememde color
veya shape
. Çözümün liste sütunlarını kullanmak olabileceğinden şüpheleniyorum, ancak nasıl olduğunu çözemiyorum.
Yanıtlar
2 akrun Dec 15 2020 at 23:35
Biz kullanabilirsiniz duplicated
içindebase R
df1$group_id <- cumsum(!Reduce(`|`, lapply(df1, duplicated)))
-çıktı
df1
# A tibble: 5 x 3
# color shape group_id
# <chr> <chr> <int>
#1 blue triangle 1
#2 blue square 1
#3 red circle 2
#4 green hexagon 3
#5 purple hexagon 3
Veya kullanarak tidyverse
library(dplyr)
library(purrr)
df1 %>%
mutate(group_id = map(., duplicated) %>%
reduce(`|`) %>%
`!` %>%
cumsum)
veri
df1 <- structure(list(color = c("blue", "blue", "red", "green", "purple"
), shape = c("triangle", "square", "circle", "hexagon", "hexagon"
)), row.names = c(NA, -5L), class = c("tbl_df", "tbl", "data.frame"
))
Gene Simmons, KISS Çizgi Romanlarının Potansiyel Olarak "İnsanlığı Yeniden Yaratabileceğini" Söyledi
Tom Girardi Dolandırıcılık Suçlamalarından Yargılanma Yetkisinin Belirlenmesi İçin Duruşmaya Katıldı
Kevin Jonas'ın Kızı Alena, Doğum Günü Fotoğrafında Büyümüş Görünüyor: '9 Yaşında Gerçek Hissetmiyor'