求助，如何定位矩阵中数据的位置

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

求助，如何在矩阵中定位指定值的位置并且返回其位置

例如上图，我如何可以查到8，4，6 的位置并且返回为【3,6，7】
试过which，好像单独一个一个可以，但是对于几个数字构成的数据集就不行就不行

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：数据集

题目描述不太完整，矩阵中的位置不可能只有一个值，你是指在A列的位置？假如有重复值，你需要返回多个位置吗？其实你用which的思路是对的，如果你想多个一起，再加个lapply就好。

zerofung 发表于 2018-5-30 15:14
题目描述不太完整，矩阵中的位置不可能只有一个值，你是指在A列的位置？假如有重复值，你需要返回多个位置吗 ...

谢谢，能具体一点吗，我就是只查找在A列的位置

library(dplyr)
data=data.frame(v1=c(4,6,7,8))
data$ind=rownames(data)
# find 6,7 return row 2,3
data%>%filter(v1 %in% c(6,7))%>%select(ind)

循环函数：
lapply:用途,有一个对象列表,遍历这个对象列表,对列表的每个元素运用函数
sapply:是lapply的一个变体,简化了lapply()的结果
apply:对数组进行行或列运算的函数,对矩阵和高维数组做总结
tapply:table apply()的缩写,将函数应用于向量的子集
mapply:是lapply的多变量版本
split:不对对象做任何操作,将对象分成子块,和lapply,sapply结合使用

wei_zhi<-function(x,data){
s<-c(t(data))
n<-dim(data)
m<-which(s==x)
row<-m%/%n[2]+1
col<-m-m%/%n[2]*n[2]
list(row=row,col=col)}

1. set.seed(23)
   
2. mat <- matrix(sample(1:5,20,replace=TRUE),ncol=2)
   
3. mat
   
4. do.call('rbind',sapply(c(2,3,4),function(x) which(mat==x,arr.ind=T)))

复制代码

最后的结果再去一下重，就可以得到具体是哪一行，哪一列有这些数据了。
which里面是有一个参数arr.ind参数，设置好了，就可以显示是哪一行哪一列数据相等了。

不好意思发错地了