代码之家 › 专栏 › 技术社区 › Eugene Brown

将此for循环转换为应用函数R

mapply for-loop r

Eugene Brown · 技术社区 · 10 年前

我有一个数据向量,如下所示:

data <- c(1, 3, 4, 7)

我想对向量中的每一对元素应用一个函数,这样它将返回一个上三角矩阵,如下所示:

mat <- matrix(data = NA, nrow = length(data), ncol = length(data))
for (i in 1:(length(data) - 1)) {
  for (j in (i+1):length(data)) {
    mat[i, j] <- "-"(data[j], data[i])
  }
}

但是我想用一个apply类型的函数而不是for循环来实现。

我不知道该怎么做。有什么建议吗?

谢谢

2 回复 | 直到 10 年前

Community Mohan Dere 5 年前

我们可以使用 combn

mat[lower.tri(mat, diag=FALSE)] <- combn(data, 2,
                            FUN= function(x) x[2]-x[1])
t(mat)
#      [,1] [,2] [,3] [,4]
#[1,]   NA    2    3    6
#[2,]   NA   NA    1    4
#[3,]   NA   NA   NA    3
#[4,]   NA   NA   NA   NA

数据

mat <- matrix(data = NA, nrow = length(data), ncol = length(data))

nicola 10 年前

使用 outer :

t(outer(data,data,"-"))*
    NA^lower.tri(matrix(0,length(data),length(data)),diag=TRUE)
#     [,1] [,2] [,3] [,4]
#[1,]   NA    2    3    6
#[2,]   NA   NA    1    4
#[3,]   NA   NA   NA    3
#[4,]   NA   NA   NA   NA

推荐文章

Dave · 如何在for循环中修改列表值

1 年前

Haru Hoshizora · 为什么一个整数的位置没有改变,但值却不同

1 年前

BlurKid · R中for循环时结果的奇怪差异

1 年前

Rudraksh_pd · 取炭。通过char。c中创建字符串的输入

1 年前

Mtullis · 在我的表单值中循环遍历数组[重复]

1 年前

puboot · 我的for循环没有运行,我不知道为什么。它甚至不会在控制台上打印任何内容

1 年前

Justin Hawkins · 在一个数组中返回两个数组,其中包含带特定字母的名称和不带指定字母的名称

1 年前

leiseg · 使用扩展变量的for循环中PowerShell CLI中缺少终止符

1 年前

xhamsterIT · 循环VBA Microsoft Excel

1 年前

AlexC · 如何循环dplyr group_by并总结变量列表的语句

1 年前