Question

以下是我的数据集示例;

Date      Time(GMT)Depth Temp  Salinity Density Phosphate
24/06/2002  1000    1           33.855          0.01
24/06/2002  1000    45          33.827          0.01
01/07/2002  1000    10  13.26   33.104  24.873  0.06
01/07/2002  1000    30  12.01   33.787  25.646  0.13
08/07/2002  1000    5   13.34   33.609  25.248  0.01
08/07/2002  1000    40  12.01   34.258  26.011  1.33
15/07/2002  1000    30  12.04   34.507  26.199  0.01
22/07/2002  1000    5   13.93   33.792  25.269  0.01
22/07/2002  1000    30  11.9    34.438  26.172  0.08
29/07/2002  1000    5   13.23   34.09   25.642  0.01

我想删除重复的行，以便每个日期只有一行，我想根据深度执行此操作，我希望保持行具有最大（最深）的深度。有任何想法吗？

Answer 1

假设您有df中的数据

df = df[order(df[,'Date'],-df[,'Depth']),]
df = df[!duplicated(df$Date),]

Answer 2

这是在单个 dplyr 调用中执行此操作的一种方法：

# Remove any duplicates
df <- df %>%
  arrange(Date, -Depth) %>%
  filter(duplicated(Date) == FALSE)

Answer 3

引入data.table解决方案，这将是解决此问题的最快方法（假设data是您的数据集）

library(data.table)
unique(setDT(data)[order(Date, -Depth)], by = "Date")

另一种方式：

setDT(data)[data[, .I[which.max(Depth)], by=Date]$V1]

Answer 4

如果您的数据框很大，这可能不是最快的方法，但是相当明显。这可能会更改数据框的顺序，您可能需要重新排序，例如之后的日期。我们不是删除我们按日期拆分数据，而是在每个块中选择一个具有最大日期的行，最后将结果连接回数据框

data = split(data, data$Date)
data = lapply(data, function(x) x[which.max(x$Depth), , drop=FALSE])
data = do.call("rbind", data)

Answer 5

# First find the maxvalues
maxvals = aggregate(df$Depth~df$Date, FUN=max)
#Now use apply to find the matching rows and separate them out
out = df[apply(maxvals,1,FUN=function(x) which(paste(df$Date,df$Depth) == paste(x[1],x[2]))),]

这对你有用吗？

Answer 6

您也可以使用dplyr的arrange()代替顺序（我觉得更直观）：

df <- arrange(df, Date, -Depth)
df <- df[!duplicated(df$Date),]

根据另一列的条件删除在一列中重复的行

6 个答案: