Question

我有问题。我尝试将eval函数应用于向量。但返回的结果不是矢量而只是一个值。我解释一下：

Event <- c("< 0.5")
P     <- round(runif(1:10), 4)
Vec_Ev<- parse(text=paste(P, Event))

Vec_EV
expression(0.2086 < 0.5, 0.0937 < 0.5, 0.7238 < 0.5, 0.5806 < 0.5, 
0.7616 < 0.5, 0.6743 < 0.5, 0.9124 < 0.5, 0.393 < 0.5, 0.7401 < 0.5, 
0.5601 < 0.5)

现在我想得到这些不公平的结果。但结果是：

eval(Vec_Ev)
[1] FALSE

而不是矢量。

是否可以在没有循环的情况下获得矢量结果？

Answer 1

您不需要在此处使用eval。只需P > 0.5即可。

    P
    #[1] 0.3812 0.1939 0.4249 0.1729 0.4161 0.5480 0.9688 0.5409 0.7861 0.1967
    P > 0.5
    #[1] FALSE FALSE FALSE FALSE FALSE  TRUE  TRUE  TRUE  TRUE FALSE

一般情况下，建议您避免使用eval。如果你真的必须，请使用get，mget，assign。

编辑，对于多个事件，我建议采用如下方法。这是一个快速解决方案，但我认为可能有更优雅的方式来做到这一点。如果我找到更好的东西，我会更新。

library(data.table)

P  <- data.table(P1 = round(runif(1:10), 4))

# first check is for < 0.1, second is for < 0.7, third is for > 0.2
Events = c(0.1,0.7,0.2)
Compare = c('<','<','>')

for ( i in 1:length(Events))
{
P[, paste0("Event",i) := Events[i]]
if (Compare[i] == '>')
{
   P[, paste0("VecEv",i):= P1 > get( paste0('Event',i) )]
} else
{
   P[, paste0("VecEv",i):= P1 < get( paste0('Event',i) )]
}
}

 # P
        # P1 Event1 VecEv1 Event2 VecEv2 Event3 VecEv3
 # 1: 0.5328    0.1   TRUE    0.7  FALSE    0.2  FALSE
 # 2: 0.3306    0.1   TRUE    0.7  FALSE    0.2  FALSE
 # 3: 0.3132    0.1   TRUE    0.7  FALSE    0.2  FALSE
 # 4: 0.1355    0.1   TRUE    0.7  FALSE    0.2   TRUE
 # 5: 0.6571    0.1   TRUE    0.7  FALSE    0.2  FALSE
 # 6: 0.7568    0.1   TRUE    0.7   TRUE    0.2  FALSE
 # 7: 0.9472    0.1   TRUE    0.7   TRUE    0.2  FALSE
 # 8: 0.2839    0.1   TRUE    0.7  FALSE    0.2  FALSE
 # 9: 0.7823    0.1   TRUE    0.7   TRUE    0.2  FALSE
# 10: 0.1164    0.1   TRUE    0.7  FALSE    0.2   TRUE

如何在不循环的情况下将eval函数应用于向量？

1 个答案: