根据条件命名数值向量（按升序）到命名逻辑向量

Question

我有一个命名的数值向量vec，然后按升序排序保存在对象vec_sort中，如下图

vec <- c(1,1,1,2,3,1,5)
names(vec) <- letters[1:7]
vec
# a b c d e f g 
# 1 1 1 2 3 1 5 

str(vec)
# Named num [1:7] 1 1 1 2 3 1 5
# - attr(*, "names")= chr [1:7] "a" "b" "c" "d" ...

升序排序（命名数值向量）

vec_sort <- sort(vec)
vec_sort
# a b c f d e g 
# 1 1 1 1 2 3 5 

str(vec_sort)
# Named num [1:7] 1 1 1 1 2 3 5
# - attr(*, "names")= chr [1:7] "a" "b" "c" "f" ...

需要输出

A 命名逻辑向量 其中升序数字向量的前 3 个元素为 TRUE，其余为 FALSE。即使第 4 个元素与前 3 个元素相同。即最低值。使用关系运算符或通过分配它可能是。

vec_sort
# a b c f d e g 
# 1 1 1 1 2 3 5

到

vec_sort
#    a     b     c     f     d     e     g 
# TRUE  TRUE  TRUE FALSE FALSE FALSE FALSE

尝试的代码

第一

vec_sort[1:3] <- TRUE
vec_sort[4:length] <- FALSE

vec_sort
# a b c f d e g 
# 1 1 1 0 0 0 0

不合乎逻辑

str(vec_sort)
# Named num [1:7] 1 1 1 0 0 0 0
- attr(*, "names")= chr [1:7] "a" "b" "c" "f" ...

第二

 vec_sort <= min(vec_sort)
 #    a     b     c     f     d     e     g 
 # TRUE  TRUE  TRUE  TRUE FALSE FALSE FALSE

这里第 4 个变量 f 也是 TRUE 因为条件是这样设置的。它是最小值，但从最小值开始，我只想将前 3 设置为 TRUE

尝试了更多的逻辑条件，但结果都是前 4 个 TRUE，如果我尝试将其分配给 TRUE 或 FALSE，结果是 命名数值向量 希望显示 1 为 TRUE，0 为 FALSE，但最终不会成为命名逻辑向量。

Answer 1

setNames(as.logical(replace(replace(vec_sort, TRUE, FALSE), 1:3, TRUE)), names(vec_sort))
#OR
setNames(as.logical(replace(vec_sort * 0, 1:3, 1)), names(vec_sort))
#OR
setNames(c(rep(TRUE, 3), rep(FALSE, length(vec_sort)-3)), names(vec_sort))
#OR
replace(vec_sort == max(vec_sort) + 999, 1:3, TRUE)
#   a     b     c     f     d     e     g 
#TRUE  TRUE  TRUE FALSE FALSE FALSE FALSE

根据条件命名数值向量（按升序）到命名逻辑向量

Named Numeric Vector (in ascending order) to Named Logical Vector based on condition

r

sorting

vector

logical-operators

relational-operators