从R中的二进制矩阵中提取第一个和最后一个非零行和列
在R中，可以使用以下步骤从二进制矩阵中提取第一个和最后一个非零行和列：
- 提取第一个非零行：
- 使用
which函数和逻辑判断条件!= 0来找到矩阵中非零元素的索引。 - 使用
min函数找到最小的非零行索引。 - 使用索引操作符
[]提取第一个非零行。
- 使用
- 提取最后一个非零行：
- 使用
which函数和逻辑判断条件!= 0来找到矩阵中非零元素的索引。 - 使用
max函数找到最大的非零行索引。 - 使用索引操作符
[]提取最后一个非零行。
- 使用
- 提取第一个非零列：
- 使用
which函数和逻辑判断条件!= 0来找到矩阵中非零元素的索引。 - 使用
min函数找到最小的非零列索引。 - 使用索引操作符
[]提取第一个非零列。
- 使用
- 提取最后一个非零列：
- 使用
which函数和逻辑判断条件!= 0来找到矩阵中非零元素的索引。 - 使用
max函数找到最大的非零列索引。 - 使用索引操作符
[]提取最后一个非零列。
- 使用
以下是一个示例代码：
# 创建一个示例的二进制矩阵
binary_matrix <- matrix(c(0, 0, 1, 0, 1, 1, 0, 0, 0), nrow = 3, ncol = 3, byrow = TRUE)
# 提取第一个非零行
first_nonzero_row <- min(which(binary_matrix != 0))
first_nonzero_row_values <- binary_matrix[first_nonzero_row, ]
# 提取最后一个非零行
last_nonzero_row <- max(which(binary_matrix != 0))
last_nonzero_row_values <- binary_matrix[last_nonzero_row, ]
# 提取第一个非零列
first_nonzero_col <- min(which(binary_matrix != 0, arr.ind = TRUE)[, "col"])
first_nonzero_col_values <- binary_matrix[, first_nonzero_col]
# 提取最后一个非零列
last_nonzero_col <- max(which(binary_matrix != 0, arr.ind = TRUE)[, "col"])
last_nonzero_col_values <- binary_matrix[, last_nonzero_col]
# 打印结果
print("第一个非零行:")
print(first_nonzero_row_values)
print("最后一个非零行:")
print(last_nonzero_row_values)
print("第一个非零列:")
print(first_nonzero_col_values)
print("最后一个非零列:")
print(last_nonzero_col_values)这个代码将输出第一个和最后一个非零行和列的值。请注意，这只是一个示例代码，实际应用中可能需要根据具体情况进行适当的修改。
相关·内容
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
活动推荐
腾讯云开发者
