代码之家 › 专栏 › 技术社区 › Darren Tsai

交替组合两个矢量

Darren Tsai · 技术社区 · 6 年前

从这个帖子, Alternate, interweave or interlace two vectors ,显示了交替组合两个矢量的方便方法:

x <- 1:3 ; y <- 4:6
c(rbind(x, y)) # [1] 1 4 2 5 3 6

然而,这种方法只适用于两个向量长度相同的情况。现在我想找到一个通用的方法来实现这一点。

我的想法是:

fun <- function(x, y, n) {...}
x 和 y 是同一类型的两个向量,它们的长度可以不同。
n 指交替间隔,以及 n <= length(x) .

预期产量:

x <- 1:5 ; y <- c(0, 0, 0)
fun(x, y, n = 1) # 1 0 2 0 3 0 4 5
fun(x, y, n = 2) # 1 2 0 3 4 0 5 0
fun(x, y, n = 5) # 1 2 3 4 5 0 0 0

谢谢你的帮助。

3 回复 | 直到 6 年前

Henrik plannapus 6 年前

另一种可能性:

fun <- function(x, y, n){
  c(x, y)[order(c(ceiling(seq_along(x) / n), seq_along(y)))]}

fun(x, y, 1)
# [1] 1 0 2 0 3 0 4 5

fun(x, y, 2)
# [1] 1 2 0 3 4 0 5 0

fun(x, y, 5)
# [1] 1 2 3 4 5 0 0 0

G. Grothendieck 6 年前

第一次分裂 x 成群 n 并将其堆叠成一个长的data.frame。相似叠加 y 然后 rbind 这些数据帧在一起,按顺序排列 ind (组号)取 values 列。

fun <- function(x, y, n) {
  sx <- stack(split(x, c(gl(length(x), n, length(x)))))
  sy <- stack(as.list(setNames(y, seq_along(y))))
  r <- rbind(sx, sy)
  r[order(r$ind), "values"]
}

x <- 1:5 ; y <- c(0, 0, 0)

fun(x, y, 1)
## [1] 1 0 2 0 3 0 4 5
fun(x, y, 2)
## [1] 1 2 0 3 4 0 5 0
fun(x, y, 5)
## [1] 1 2 3 4 5 0 0 0

moodymudskipper 6 年前

使用的解决方案 Reduce :

n <- 2
res <- Reduce(function(x,i) append(x,y[i],i),n*(length(y):1), x)
res[is.na(res)] <- 0
res
# [1] 1 2 0 3 4 0 5 0

推荐文章

Amp · 使用R ggplot2删除geom_radial中axis.line和panel.border之间的空格

9 月前

Hard_Course · 用另一列中的值替换行的最后一个非NA条目

9 月前

Mark R · 使用geom_sf()删除地球仪上不需要的网格线

9 月前

Joe · 根据对工作日和本周早些时候的日期的了解,找到一个日期

9 月前

Ben · 统计向量中的单词在字符串中出现的频率

9 月前

TheCodeNovice · R中符号格式的尾随零和其他问题[重复]

9 月前

katefull06 · 在R中使用terra修改范围时,会为单独的SpatRaster重写范围

9 月前

dez93_2000 · 在R管道子功能中引用管道对象的当前状态

9 月前

accibio · 在ggplot2中为同一变量创建两个连续的颜色渐变比例

9 月前

Mankka · 如何在Ggplot2中绘制均匀的径向图

10 月前