Question

我有这张桌子。

data          pm10
2016-09-01    15.6
2016-09-02    16.8
2016-09-03    17.1
2016-09-04    15.4
2016-09-04    14.5    
2016-09-05    18.4

现在我找到重复的行（具有相同的日期）。这是2016-09-04的日期。我想识别这些行，删除错误的行并创建一个包含所有重复项的新表，以便对它们进行概述。怎么做？请不要SQL。

Answer 1

这是：

df <- data.frame(
  data=c("2016-09-01", "2016-09-02", "2016-09-03", "2016-09-04", "2016-09-04", "2016-09-05"),
  pm10=c(15.6,16.8,17.1, 15.4,14.5,18.4)
)

df_unique <- df[which(duplicated(df$data)==F),]

df_duplicated <- df[which(duplicated(df$data)==T),]

Answer 2

dummydata：

    df <- as.data.frame(read.table(header=TRUE, text='data          pm10
2016-09-01    15.6
2016-09-02    16.8
2016-09-03    17.1
2016-09-04    15.4
2016-09-04    14.5    
2016-09-05    18.4'), stringsAsFactors=FALSE)

基地R：

noduplicates <- df[!duplicated(df$data),]
duplicates <- df[duplicated(df$data),]

dplyr：

 library(dplyr)
 noduplicates <- df %>% distinct(data, .keep_all = TRUE)

显示重复的行并在r中创建一个now数据集

2 个答案: