如何使用我自己的自定义地图在R [复制]中将值向量映射到另一个向

发布时间：2020-12-15 07:37:35 所属栏目：Java 来源：网络整理

导读：参见英文答案 Replace values in a vector based on another vector????????????????????????????????????2个我想要一个函数,其输入是1s,2s和3s的向量,它发送1到.2,2到.4和3到.5. (输出应该是一个相等长度的向量.)我该如何做到这一点？例如,如果 myVector-

参见英文答案 > Replace values in a vector based on another vector????????????????????????????????????2个
我想要一个函数,其输入是1s,2s和3s的向量,它发送1到.2,2到.4和3到.5. (输出应该是一个相等长度的向量.)我该如何做到这一点？

例如,如果

myVector<-c(1,2,3,1)

然后功能

mapVector(myVector)

应该返回一个像(.2,.4,.5,.2)这样的向量

解决方法

几个选项,全部使用：

myVector<-c(1,1)

因子

newvals <- c(.2,.5)
newvals[as.factor(myVector)]
#[1] 0.2 0.4 0.5 0.4 0.5 0.5 0.2

命名向量

newvals <- c(`1`=.2,`2`=.4,`3`=.5)
newvals
#  1   2   3 
#0.2 0.4 0.5 

newvals[as.character(myVector)]
#  1   2   3   2   3   3   1 
#0.2 0.4 0.5 0.4 0.5 0.5 0.2

查找表

mapdf <- data.frame(old=c(1,3),new=c(.2,.5))
mapdf$new[match(myVector,mapdf$old)]
#[1] 0.2 0.4 0.5 0.4 0.5 0.5 0.2

量化@Joe在下面的评论的基准,并解决@Ananda的评论.

myVector <- c(1,1)
# setup for the benchmarking
test <- sample(myVector,1e6,replace=TRUE)
newvals <- c(.2,.5)
newvalsvec <- c(`1`=.2,`3`=.5)
mapdf <- data.frame(old=c(1,.5))

microbenchmark(
  newvals[as.factor(test)],newvalsvec[as.character(test)],mapdf$new[match(test,mapdf$old)],newvals[test],times=10L
)

#Unit: milliseconds
#         expr        min         lq     median         uq        max
#factor        1863.40146 1876.04197 1890.99147 1913.13046 2014.23609
#namedvector   1809.26883 1812.76272 1837.18852 1851.42954 1858.44996
#lookup          38.48697   38.83405   39.90146   69.65140   71.75051
#newvals[test]   34.07380   34.55885   50.61287   65.69495   66.08699

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!