R语言中删除单个数值时误删多个的原因及解决方法

先帮你还原一下场景哈，假设你的pt向量是类似这样的：

pt <- c(0.85, 0.713, 0.666, 1, 1)

你先是找到了最大值的第一个索引（通过which+min得到4），但删除后却意外丢掉了两个元素，核心问题出在你用错了删除元素的索引方式。

为什么会删两个元素？ #

大概率你是这么写的删除代码：

pt <- pt[pt != pt[4]]

因为pt[4]的值是1，这个逻辑条件pt != 1会把所有等于1的元素都过滤掉，而你的向量里有两个1，所以直接删掉了两个元素，完全不是你想要的“只删第4个位置”的效果。

正确的修复方式 #

要精准删除指定位置的元素，用负位置索引就可以了——在索引前加负号，表示排除这个位置的元素：

# 先拿到第一个最大值的索引
max_indices <- which(pt == max(pt))
first_max_idx <- min(max_indices)

# 只删除第4个元素
pt <- pt[-first_max_idx]

执行完这段代码，pt就会变成你期望的[0.85, 0.713, 0.666, 1]啦。

额外小技巧 #

其实可以用match函数一步拿到第一个最大值的位置，代码更简洁：

first_max_idx <- match(max(pt), pt)
pt <- pt[-first_max_idx]

match会返回第一个匹配目标值的位置，省去了which加min的步骤。

内容的提问来源于stack exchange，提问作者Legend