如何解决R - 替换序列中的值
<script src='./webviewer/webviewer.min.js'></script>
每当有一个前面和后面的数字与 1 不同时,我想将这些数字相加并用 c(2,1,2,3)
替换 1
所以我们得到:
NA
这很容易,但是当前后数字可能重合时我会遇到问题,例如:
c(2,5,NA,5)
应该给
c(8,7,6,3,4)
有没有人知道如何解决这个问题?非常感谢!
一个例子是
c(8,18,4)
解决方法
更清洁的解决方案。让我们来看一个更复杂的案例
#sample vector
x <- c(1,2,1,3,8,7,6,5,4,1)
[1] 1 2 1 1 2 2 2 1 3 8 7 1 6 1 5 3 4 1 5 1 4 5 1 7 5 1 3 1
#identify positions of 1 satisfying the criteria
pos <- which(x == 1)[!which(x == 1) %in% c((which(x == 1) + 1),(which(x == 1) -1))]
#removing first and last positions if any
pos <- setdiff(pos,c(1,length(x)))
#identifying positions satisfying the second criteria
pos2 <- pos[pos %in% c(pos + 2,pos -2)]
#identifying positions for first criteria
pos1 <- setdiff(pos,c(pos2,length(x)))
#modifying positions (second criteria)
pos2 <- pos2[pos2 %in% (pos2 -2)] +1
#replacing values satisfying first condition
x[pos1 -1] <- x[pos1 -1] + x[pos1 +1]
x[pos1 +1] <- x[pos1 -1]
x[pos1] <- NA
#replacing values satisfying second condition
x[pos2 -2] <- x[pos2 -2] + x[pos2 +2] + x[pos2]
x[pos2 +2] <- x[pos2 -2]
x[c(pos2,pos2-1,pos2+1)] <- NA
#check the output
x
[1] 1 2 1 1 2 2 5 NA 5 8 18 NA NA NA 18 3 13 NA NA NA 13 12 NA 12 8 NA 8 1
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。