x <- c(1, 1, 2,4, 5, 4, 6)

duplicated(x)

## [1] FALSE TRUE FALSE FALSE FALSE TRUE FALSE

x[duplicated(x)]

## [1] 1 4

x[!duplicated(x)]

## 1, 1 2,4, 5, 6

根据某一列删除框中重复值

# Remove duplicates based on Sepal.Width columns

my_data[!duplicated(my_data$Sepal.Width), ]

## # A tibble: 23 x 5

## Sepal.Length Sepal.Width Petal.Length Petal.Width Species

## <dbl> <dbl> <dbl> <dbl> <fct>

## 1 5.1 3.5 1.4 0.2 setosa

## 2 4.9 3 1.4 0.2 setosa

## 3 4.7 3.2 1.3 0.2 setosa

## 4 4.6 3.1 1.5 0.2 setosa

## 5 5 3.6 1.4 0.2 setosa

## 6 5.4 3.9 1.7 0.4 setosa

## # ... with 17 more rows