类似开关的问卷评分功能

Question

我最近认真完成了 PHP/JS 编码，我有点失去了 R 能力。虽然这个问题可以在 PHP/JS 中轻松解决，但解决这个问题最有效的方法是什么：我必须对调查问卷进行评分，并且我有以下情况：

raw    t
5      0
6      2
7-9    3
10-12  4
15-20  5

如果 x 等于或是在 raw 给定的范围内，应返回 t 中相应行中的值。当然，这可以通过 for 循环或 switch 来完成，但想象一下 raw 中非常长的值范围集。你会如何解决这个问题？

Answer 1

我们似乎遗漏了示例的一部分，因为没有提到“x”

dat <- read.table(textConnection("raw    t
 5      0
 6      2
 7-9    3
 10-12  4
 15-20  5"), header=TRUE, stringsAsFactors=FALSE)
dat$bot <- as.numeric( sapply( sapply(dat$raw, strsplit, "-"), "[", 1 ))
get.t <- function(x) findInterval(x, dat$bot)
 get.t(8)
#[1] 3
> dat$t[get.t(6)]
[1] 2
> dat$t[get.t(5)]
[1] 0

Answer 2

我会简单地使用类似于 Corbin 提到的索引方案，但由于他没有提供示例，这里有一个简单的示例：

m <- cbind(c(5:12,15:20),
           rep(c(0,2,3,4,5),times = c(1,1,3,3,6)))

m[m[,1] == 11,2]
[1] 4

Answer 3

注意：与西蒙娜的回答非常相似，因为我开始输入这个内容。不过最后有一个注释。我给出的索引方法本质上是西蒙娜的答案。

某处一定会涉及到一个循环。

我要做的伪代码是这样的：

score = blah

for each raw => t
    break raw into rMin -> rMax
    if(rMin <= score and rMax >= score)
        return t

它避免了必须循环 rMin 和 rMax 之间的每个数字（这就是我假设你的意思），但如果没有某种索引，那就是最好的将会得到。

注意：如果您对此有大量调用，并且索引实际上值得您花时间，那么最简单的索引类型就是分数的哈希映射 -> 。 t 条目。

基本上，您会将示例数据解析为以下内容：

index[5] = 0
index[6] = 2
index[7] = 3
index[8] = 3
index[9] = 3

您需要仔细权衡构建索引是否比仅循环范围更耗时。

注：索引方式其实就是Simone所说的。