请清晰说明需求，格式如下:
- 输入
- 输出
注: 输出结果若为文字描述要尽量清楚，不然不清楚你真正的遇到的情况

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])