R语言矩阵操作：根据值找到行号和列号

### 1.生成示例矩阵
P <- matrix(c(3:14), nrow = 4, byrow = TRUE,
            dimnames = list(paste0("row",1:4), paste0("col",1:3)))
 
### 2. 得到符合条件值的索引号（一维）
# P[P>6] 同 P[which(P>6)] # 返回值
 
index <- which(P>10) # 符合条件值的索引
 
### 3. 根据矩阵转把一维索引号换为矩阵的行号和列号
row_num <- dim(P)[1]
row_name <- rownames(P)
col_name <- colnames(P)
 
# %% 取余数
hit_row_names <- row_name[ifelse(index%%row_num,index%%row_num,row_num)]
hit_col_names <- amp_samples <- col_name[ceiling(index/row_num)]
 
# 打印出符合条件的值以及所在的行列名
for (i in 1:length(hit_row_names)){
  print(hit_row_names[i])
  print(hit_col_names[i])
  print(P[hit_row_names[i],hit_col_names[i]])
  print("=======")
}