stelladi

匹配矩阵

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
a <- matrix(c(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15),nrow=3,ncol=5)
c <- matrix(c(2,3,3,3,3,4,4,4,4,8,8,8),nrow=3,ncol=4)
rownames(a)<-c("aa","cc","kk")
rownames(c)<-c("dd","cc","ee")
> a
   [,1] [,2] [,3] [,4] [,5]
aa    1    4    7   10   13
cc    2    5    8   11   14
kk    3    6    9   12   15
> c
   [,1] [,2] [,3] [,4]
dd    2    3    4    8
cc    3    3    4    8
ee    3    4    4    8
> rownames(c)
[1] "dd" "cc" "ee"
> rownames(c) %in% rownames(a)
[1] FALSE  TRUE FALSE
> which(rownames(c) %in% rownames(a))
[1] 2
> a[which(rownames(c) %in% rownames(a)),]
[1]  2  5  8 11 14
> c[which(rownames(c) %in% rownames(a)),]
[1] 3 3 4 8

  

posted on   Stellaself  阅读(71)  评论(0编辑  收藏  举报

相关博文:
阅读排行:
· Deepseek官网太卡,教你白嫖阿里云的Deepseek-R1满血版
· 2分钟学会 DeepSeek API,竟然比官方更好用!
· .NET 使用 DeepSeek R1 开发智能 AI 客户端
· DeepSeek本地性能调优
· 一文掌握DeepSeek本地部署+Page Assist浏览器插件+C#接口调用+局域网访问!全攻略

导航

统计信息

点击右上角即可分享
微信分享提示