[r] “작은 첨자가있는 요소”를 포함하여 모든 중복 행 찾기

duplicated이 fromLast인수를. 의 “예제”섹션은 ?duplicated사용 방법을 보여줍니다. 그냥 전화 duplicated한 번, 두 번 fromLast=FALSE에 한 번 fromLast=TRUE와 중 하나 인 행을 TRUE.

일부 후기 편집 : 재현 가능한 예제를 제공하지 않았으므로 @jbaums가 친절하게 기고 한 그림이 있습니다.

vec <- c("a", "b", "c","c","c") 
vec[duplicated(vec) | duplicated(vec, fromLast=TRUE)]
## [1] "c" "c" "c"

편집 : 데이터 프레임의 경우 예 :

df <- data.frame(rbind(c("a","a"),c("b","b"),c("c","c"),c("c","c")))
df[duplicated(df) | duplicated(df, fromLast=TRUE), ]
##   X1 X2
## 3  c  c
## 4  c  c

답변

> vec <- c("a", "b", "c","c","c")
> vec[ duplicated(vec)]
[1] "c" "c"
> unique(vec[ duplicated(vec)])
[1] "c"
>  vec %in% unique(vec[ duplicated(vec)])
[1] FALSE FALSE  TRUE  TRUE  TRUE

vec[col %in% vec[duplicated(vec$col),]$col]

df = bind_rows(iris, head(iris, 20)) # build some test data
df %>% group_by_all() %>% filter(n()>1) %>% ungroup()

df %>% add_rownames %>% group_by_at(vars(-rowname)) %>% filter(n()>1) %>% pull(rowname)

allDuplicated <- function(vec){
  front <- duplicated(vec)
  back <- duplicated(vec, fromLast = TRUE)
  all_dup <- front + back > 0
  return(all_dup)
}

vec <- c("a", "b", "c","c","c")
allDuplicated(vec)
[1] FALSE FALSE  TRUE  TRUE  TRUE

ddply(df, .(col1, col2), function(df) if(nrow(df) > 1) df else c())

df %>% add_count(col1, col2) %>% filter(n > 1)  # data frame
df %>% add_count(col1, col2) %>% select(n) > 1  # logical vector

df %>% group_by_all %>% add_tally %>% ungroup %>% filter(n > 1)
df %>% group_by_all %>% add_tally %>% ungroup %>% select(n) > 1

df <- df %>%
  group_by(Column1, Column2, Column3) %>%
  mutate(Duplicated = case_when(length(Column1)>1 ~ "Yes",
                            TRUE ~ "No")) %>%
  ungroup()