2 つのデータ フレームがあります。
head(NEexp)
Gene Transcript Ratio_log2 FDR
HLHmgamma HLHmgamma-RA 3.759200 1.09e-10
Brd Brd-RA 3.527000 2.66e-08
CG4080 CG4080-RE 3.378500 2.95e-50
RpII215 RpII215-RA 3.343967 1.82e-10
head(excel$gene)
Enhancer of split mgamma, helix-loop-helix
distal antenna
CG4080 gene product from transcript CG4080-RB
ご覧のとおり、2 つの遺伝子列は部分的に一致します (HLHmgamma は分割 mgamma のエンハンサー、helix-loop-helix に一致します。CG4080 は転写産物 CG4080-RB からの CG4080 遺伝子産物に一致します)、これら 2 つをリンクできる方法はありますか? これまでに試したコード:
genename=as.character(NEexp$Gene)
query=paste("select * from excel where excel.gene LIKE \"", genename,"\ ",sep"")
Newtable<-dbGetQuery(con,query)
dbGetQuery(con,"select * from excel, NEexp where excel.gene LIKE % "NEexp$Gene" %")