根据数据框中另一列的最接近值查找一列的行值

Question

我正在尝试获取与 df 中另一列对应的列的最接近值。下面的例子来说明：

我有数据框df:

df <- as.data.frame(dnorm(c(1:100), 50))
df$"bin" <- 1:100

"bin" 最接近对应的内容让我们说dnorm(c(1:100), 50) 的平均值。

df$bin[df$`dnorm(c(1:100), 50)` == max(df$`dnorm(c(1:100), 50)`)]
$ [1] 50


df$bin[df$`dnorm(c(1:100), 50)` == mean(df$`dnorm(c(1:100), 50)`)]
$ integer(0)

感谢任何意见

Answer 1

我们可以使用mean 列的abs 差异并获取该差异的min 的索引

set.seed(24)
df1 <- data.frame(bin = 1:100, col1 = dnorm(c(1:100), 50))
v2 <- with(df1, abs(col1  - mean(col1)))
df1$bin[v2 == min(v2)]
[1] 47 53