求助R语言比对两组数据相同

已完成

请清晰说明需求，格式如下:
- 输入

1. data.1 <- data.frame(
   
2.     a_1 = rep(20, 3),
   
3.     b_1 = rep(30, 3),
   
4.     c_1 = rep(30, 3),
   
5.     d_1 = rep(30, 3),
   
6.     f_1 = rep(30, 3)
   
7. )
   
8. 
   
9. data.2 <- c("b", "c", "d")

复制代码

- 输出

1. data.3 <- data.1[grep(paste0(data.2, collapse = "|"), colnames(data.1))]
   
2. #   b_1 c_1 d_1
   
3. # 1  30  30  30
   
4. # 2  30  30  30
   
5. # 3  30  30  30

复制代码

注: 输出结果若为文字描述要尽量清楚，不然不清楚你真正的遇到的情况

library(dplyr)
File1<-read.delim("File1.txt",sep=" ",header=F)
File2<-read.delim("File2.txt",sep="\t",header=F)
File2<-paste(File2[,1],1,sep="_")%>%as.data.frame()
colnames(File2)<-"V1"
File3<-File2%>%left_join(File1,by="V1")
write.table(File3,file="File3.txt",row.names=F,quote=F)
sum(File3[,-1])/sum(File1[,-1])

1. library(tidyverse)
   
2. 
   
3. file_1 <- tribble(
   
4.   ~V1,   ~V2, ~V3, ~V4,
   
5.   'acz',      20,   20,   20,
   
6.   'bdg',     30,   30,   30,  
   
7.   'cga',      30,   30,   30,
   
8.   'dwa',     30,   30,   30,
   
9.   'fsv',       30,   30,   30
   
10. )
    
11. file_2 <- tribble(
    
12.   ~V1,
    
13.   'bd',
    
14.   'dw',
    
15.   'fs'
    
16. )
    
17. V5 <- substr(file_1$V1,1,2)
    
18. file_1 <- cbind(file_1, V5)
    
19. 
    
20. file_3 <- file_2 %>%
    
21.   left_join(file_1, by=c('V1'='V5'))
    
22. 
    
23. ratio <- colSums(file_3[,3:5])/colSums(file_1[,2:4])

复制代码