我正在计算属于两个不同数据帧但具有相同名称和相同长度的两行的时间？
for (i in names(TIV) {for(j in names(urban.exp)) { result <- c(result, TIV[i] * urban.exp[j])}}
TIV为26 obs和23个变量 urban.exp是26 obs和197个变量
但是，TIV中的名称都是唯一的，并且在urban.exp中是重复的。我想将urban.exp中的每个同名（假设有3个）乘以TIV中的同一个，我想按元素进行乘法）。
dput(TIV)
structure（list（ALB = c（0.000248174906521353，0.000339169273748206， 0.000159632297757388、0.000228630507732613、0.000267866815239384， 0.000289021390436638，0.000428600968670754，0.000359599958169296， 0.000285798240881231、0.000351193053463129、0.000350073894209511， 0.000978402075126559，0.000509607726186487，0.000474370444647724， 0.0009013352987314、0.000919698063539768、0.000931573514218432， -6.02817288364908e-05、0.00147380111581113、0.000138068449732178， 7.13563367172184e-05、0.000203140614523849、0.000141125871924299， 0.000596973372585642、0.000476357937555003、0.0159934624248568 ），DZA = c（0.000268396126256534，0.00041499462052619，0.000775855329071962， 0.000247614710989086、0.00025371478550621、0.000270821107879502， 0.000843441012186186421、0.000284398589838246、0.000234477520662322， 0.000304042023076104、0.000306305994281338、0.000911873116533145， 0.00433211883574542、0.000287545845467517、0.000840538271603211， -0.00320821964214054、0.00475209613678138，-5.7290313092215e-05， 0.00213214430861042、0.000114926712176887、3.995917869655464e-05， 0.000251224071825662，9.26822881382479e-05，0.000460120203572431， 0.000255400796998768，-0.000254677157762396），BGD = c（0.000913338803874099， 0.000686108490364341、0.000341395391373583、0.000617209735009716， 0.00039797020138852、0.000535263235754845、0.000791566547477367， 0.000514028603231846、0.000447276226487732、0.000620114352054082， 0.000458591335459696，0.00113114852677669，0.009344425309504， 0.000630088174844855、0.000959788528715684、0.00104208072663453， 0.00117124840139069，-0.0469185795987902、0.00158956762460143， 0.000217013947387598，9.86773825322874e-05，0.000271682582804807， 0.00023677199816467、0.000831280500571276、0.000555615271844585， 0.000942900765747189），BWA = c（0.000482117130379816、0.000830244164580518， 0.0010254054258111、0.000607072653315362、0.000501231634671083， 0.000567616051110543、0.000645457366742526、0.000629605702268291， 0.000544685850129081，0.000663044347955545，0.000616545336715966， 0.0011139523841532、0.00348953770692895、0.000745614665488414， 0.00143510348232541、0.00774019660647544、0.00127052511998079， 0.000702994537318256、0.00290565160847126、0.000231931061991944， 0.000139437569893227、0.000501985666752962、0.000265908463051288， 0.000924269112899131，0.000593497744163397，0.00148883147377942 ），BGR = c（0.000749598761828107，0.000470535484932322，0.000720674449220904， 0.000603227998691483、0.000621004551337537、0.000677626877413007， 0.000846521827869615，0.00072421651063374，0.000574760151566309， 0.000606340404903733，0.000641753079513222，0.00121667823080637， 0.00874076933500097、0.000805997461660357、0.00144446719326409， 0.00454146878811612、0.00160946106966851、0.000549577359307621， 0.0030412166447252、0.000357055859646755、0.000252394867645304， 0.000512263155725499、0.000393777474739842、0.000297806719907053， 0.000350807409141673，0.00160360060359238），CHN = c（0.002208261， 0.001017573、0、0.007292695、0.007154744、0.004281515、0.01439357， 0.006233652、0.024742643、0.004137592、0.012933709、0.000567579， 0.001202401、0.001177813、0.001011665、0.001888206、0、0.001511387， 0.014257881、0.001691124、0.002472086、0.00009025、0.008202734， 0，0.000774492，-0.000511294），CRI = c（0.000173802315054641， 0.000254763819792943、0.00017095487110465、0.000190916370461249， 0.000163013891471559、0.00019023810268046、0.000241830401487632， 0.000195528103604298、0.000181694294574444、0.00023970293344353， 0.000191302817493573、0.000502674620550298、0.000504081860272143， 0.000198365018149506、0.000293652208460809、0.000103385426910766， 8.79269368020482e-05，0.000363590084937558，-0.000356578266563247， 0.000109963755347626、6.0964616360274e-05、0.000180258775514208， 0.00010363324527303、0.000532655161887979、0.000305765870009219， 0.000299797339793439），CIV = c（0.000315874772473806，0.000477073049291911， 0.000384174754204304、0.000249719402871909、0.000240229791946855， 0.000277924914654865、0.000341162342372984、0.000252520430814487， 0.000216558937346997、0.000284311763635522、0.000272649034343662， 0.000717120358981288、0.00263743595952355、0.000258461840061832， 0.000815425034976343、0.000779303543601924、0.000684210781801615， 0.0004345543613646、0.00116728144643683、0.000139655116666953， 7.98182805799198e-05、0.000213312901529751、0.00014912204987226， 0.000894440765688311，0.000477558986104314，0.000543283600887808 ），GEO = c（0.005279151，0.001684205，0.002129969，0.00411568， 0.000915426、0.000728686、0.005128433、0.000790025、0.00103， 0.000677533、0.000925394、0、0.012840032、0.00127411、0.000325425， 0.000322409、0.000844766、0.000493057、0.006683474、0.000532039， 0.013881833、7.73e-05、0.001214205、0、0.001580739，-5.84e-05 ），MYS = c（-0.0015130772816436，-0.0180260256928713，-0.00157505344574275， 0.000648534057061993，-0.00155740623112013，-0.00156283166303776， -0.00174340172748788，-0.00286197558369102，0.00454689685232959， -0.0018938367416353，-0.00157663033130427，-0.0119022065132133， -0.00175299958373901，-0.0664537247250796、0.0890100074952729， -0.00201299170182833，-0.00388584109571892，-0.00287411604410686， 0.00278277588580321、0.00104715403241539，-0.00149602941092311， -0.0348283953747052，0.00845292602307031，0.201406414092222， -0.00159940992570112，0.0522417938445839），MDV = c（0.000352490450642571， 0.000550328997212354、0.000723764266026371、0.000498694126592643， 0.000376656259071883、0.000568444835699374、0.000553226062140765， 0.000539125917393749、0.000455725570252103、0.000582716407592034， 0.000547111484301339、0.000748961765363705、0.00252751733647313， 0.000461514218724202、0.00111914867302241、0.00674965246948192， 0.000814018100861111、0.000398847050156113、0.00197233454579513， 0.000216093986731238、0.000221521928466968、0.000433770489564185， 0.000320690153287247、0.000803622183313035、0.000963639810417282， 0.00105293243540671），MEX = c（0.000944224，0.000241484，0.000316814， 0.000547203、0.00143669、0.001033885、0.003081825、0.000896958， 0.002083657、0、0、0、0.006803516、0.000501264、0.000174385， 0.000142901、0、0、0.010874537、0.000616828、0.001332897、0.000293279， 0.002337931，3.83e-06，0，6.46e-05），MNE = c（0.00012150207923852， 0.000477285337384979、0.000160591667954874、0.000168767228777349， 0.000230170002753131、0.000199263460677769、0.000141641421346877， 0.000191481985831653、0.000166052527785696、0.000233029831804151， 0.000242124674425282、0.00044027771995825、0.000189898429234294， 0.000188755929720485，0.000493370655299545，9.38389984119552e-05， 0.000123067692063739、0.000185289145009044、0.000100127504002848， 0.000140122390705789，5.36773652866665e-05，0.000126910780848532， 0.000102783645088524、0.000883716493977761、0.000655194916948705， 0.000619806723692673），MAR = c（0.000576230588222724，0.000385565321949467， 0.000345251076888296、0.000483401422068128、0.000417547948938127， 0.000445795253675645、0.000695651547697528、0.000435693352572054， 0.000387010806414357、0.000450117039837095、0.000432861427345239， 0.00088113576907869、0.00507307136732021、0.00047563908243884， 0.000985012231911927、0.00261731373390549、0.00118859850891973， 0.000756818875820843、0.00214454134266875、0.00019073938090137， 0.000105582005170888、0.000347913510249089、0.000146312464918241， 0.000397294179428336、0.000336379968259507、0.00583520138552966 ），NAM = c（0.000445328582066306，0.00068426871215696，0.000537305638480289， 0.000407821878397232，0.000438544612487918，0.000448135959028999， 0.000449507784509406、0.000667721676321114、0.000445085615960187， 0.000537384415020835、0.000564794265575911、0.0010153798792818， 0.000393277394152737、0.000510643021599451、0.00167611519040259， 0.00181461346467337、0.00173375774499516、0.000404846140809306， 0.00295361961134029、0.000283639921226707、0.000129162928641247， 0.000328583967508361，0.000213893132958698，0.00112842286830381， 0.000808424289723378、0.0017028605151185），ASM = c（0.000145277572623218， 0.000330744638372967、0.000301739976711475、0.000213198056186216， 0.000271157191143214、0.000259969796260232、0.000247505072371561， 0.000255936924306282、0.000214221405273054、0.00027795667828277， 0.000304520178949443、0.000451062121502298、0.000393308980271543， 0.000114739885478548，0.000608851923796505，0.000843247013860957， 0.000599326495306679、0.000252193741355666、0.00138391529151655， 0.000127141687633323、0.000182794659741862、0.000288162870762742， 0.000246646241763648、0.000381188885283242、0.00058956932071467， 0.000381203990621746），ZAF = c（0，0，0，0.008086651，0.003526301， 0.008866077、0.008638975、0.013957369、0.018945326、0.003328869， 0.019784222、0、0.023228398、0.002659621、0、0.000469439、0.000261756， 0.000677452、0.002014355、0.000494417、0.000070504、0.000241015， 0.000421291，0，0.000756811，-7.81e-05），LKA = c（0.00032062899351777， 0.000163597655966227、0.000164607201496355、0.00022401980855161， 0.000185520448859277、0.000214416338839827、0.000303232936661481， 0.000220874598550123、0.00019864469092968、0.000279143124358859， 0.000237984611683141、0.000411844500747206、0.00193210615617892， 0.000237144260723747、0.000670796981341913、0.0010596649470119， 0.000970548396088071，0.000447278000994621，0.00170669404804761， 8.79527325411458e-05、5.52875192092355e-05、0.000151072122665778， 5.97154662557204e-05、0.000100662627853025、0.000123716763365379， -0.00256348718238034），TUN = c（0.000444076147499441、0.000610241398352655， 0.000656084832438002、0.000439695762520918、0.000426498556457417， 0.000473733195405614、0.000723973432473194、0.000472157924701055， 0.000410679108252149、0.000487185316546125、0.000467386957504676， 0.00113370594038486、0.0049715366490553、0.000492612136619973， 0.0010211452992161，-0.000731108197555239、0.00116458699063456， -0.000359141563614933、0.00182543211311049、0.000210272293203948， 0.000129356195732316、0.000394545538241387、0.000251344539116984， 0.000946545872452504、0.000536863794260094、0.00187101573108743 ），UKR = c（0.004882587，0，0，0.017154939，0.003483648，0.012498412， 0.033416735、0.008278118、0.021719782、0.001383677、0.013522355， 0、0.004676683、0.017151558、0.002241068、0、0.001078673、0， 0.00731783、0.001894759、0.007383462、0、0.003917305、0、0.001327347， 0.001703462），VNM = c（0.012146918、0.001980802、0、0.018360841， 0.009105785、0.00451478、0.011848205、0.004563223、0.005829405， 0.00522886、0.003129561、0、0.015882704、0.002322068、0.000696516， 0.000524715、0、0.00234702、0.052990123、0.000458449、0.007569633， 0，0.009779507，0，0.00104515，0.000558566），ZMB = c（0.000185538679940368， 0.000228694546854409、0.000383949747881978、0.000254342140542114， 0.000232362262307685，0.000266148738913681，0.000511992931034977， 0.000259166340696073、0.00026270606044175、0.00035794076067972， 0.000292400223534108，0.000619976846061065，0.000330464208700282， 0.000265557476637801、0.000711524137616014、0.00116329601953602， 0.000799451656258591、0.000249376561695306、0.00155784130089073， 0.000122204936450822、0.000117407505221938、0.000191158548225592， 0.000154728626840974、0.000254644598879221、0.000216618820294215， -0.0582015964277787），ZWE = c（0.017749199607316，0.0181301024162438， 0.0193645828015996、0.0180011524832997、0.0180772730678022、0.0179081302943255， 0.0183263614878677、0.0188799313913344、0.0177187155287076、0.0180093829576111， 0.0180562811976393、0.0182044885084857、0.0337412434812055、0.0184421026669123， 0.0180483629775726、0.0241177668870026、0.0245657716836954、0.024751860680692， 0.00663079658780753、0.0176168200947908、0.0185266072831957， 0.0176464697715503、0.0176983948493923、0.0181381302428299、0.0180702616866683， 0.0180891094091982）），类=“ data.frame”，row.names = c（NA， -26L））
答案 0 :(得分：0)
您可以直接隔离列并将它们相乘。假设3个TIV列是第4、7、9列，而urban.exe中相应的列号是2、11、15，那么
result <- TIV[ , c(4,7,9)] * urban.exp[ , c(2,11,15)]
应该给您想要的结果。