Boa Tarde, Tenho a seguinte base ( uma parte, são várias linhas): bd<-"id;evento1;nomes;cons_jan_15 ;valor_jan_15;cons_fev_15;valor_fev_15;cons_mar_15;valor_mar_15 ;cons_abr_15;valor_abr_15;cons_mai_15;valor_mai_15 49;A;Santo Antônio do Descoberto;9033.36;4848.67;13131.13;4320.57;8121.07;4410.8;8562.85;6241.59;8261.5;5586.92 49;A;Santo Antônio do Descoberto;NA;NA;NA;NA;NA;NA;NA;NA;NA;NA 49;A;Santo Antônio do Descoberto;NA;NA;NA;NA;NA;NA;NA;NA;NA;NA 64;D;Goiânia;NA;NA;NA;NA;NA;NA;NA;NA;NA;NA 64;D;Goiânia;NA;NA;NA;NA;NA;NA;NA;NA;NA;NA 64;D;Goiânia;4091.54;3076.74;5482.15;2243.94;3380.04;2033.13;3003.66;2250.64;3601.44;2550.23 23;E;Anicuns;6833.28;3772.8;8706.81;2961.72;5524.23;3285.14;6157.68;4381.01;5997.78;4178.95 23;E;Anicuns;NA;NA;NA;NA;NA;NA;NA;NA;NA;NA 23;E;Anicuns;NA;NA ;NA;NA;NA;NA;NA;NA;NA;NA 23;E;Anicuns;NA;NA ;NA;NA;NA;NA;NA;NA;NA;NA" dads <- read.table(header = TRUE, text=bd, sep=";") dads Quero somar as linhas, de modo que: id evento1 nomes cons_jan_15 valor_jan_15 cons_fev_15 valor_fev_15 cons_mar_15 valor_mar_15 cons_abr_15 valor_abr_15 cons_mai_15 valor_mai_15 49 A Santo Antônio do Descoberto 9033,36 4848,67 13131,13 4320,57 8121,07 4410,8 8562,85 6241,59 8261,5 5586,92 49 A Santo Antônio do Descoberto 0 0 0 0 0 0 0 0 0 0 49 A Santo Antônio do Descoberto 0 0 0 0 0 0 0 0 0 0 49 A Santo Antônio do Descoberto 9033,36 4848,67 13131,13 4320,57 8121,07 4410,8 8562,85 6241,59 8261,5 5586,92 64 D Goiânia 0 0 0 0 0 0 0 0 0 0 64 D Goiânia 0 0 0 0 0 0 0 0 0 0 64 D Goiânia 4091,54 3076,74 5482,15 2243,94 3380,04 2033,13 3003,66 2250,64 3601,44 2550,23 64 D Goiânia 4091,54 3076,74 5482,15 2243,94 3380,04 2033,13 3003,66 2250,64 3601,44 2550,23 23 E Anicuns 6833,28 3772,8 8706,81 2961,72 5524,23 3285,14 6157,68 4381,01 5997,78 4178,95 23 E Anicuns 0 0 0 0 0 0 0 0 0 0 23 E Anicuns 0 0 0 0 0 0 0 0 0 0 23 E Anicuns 0 0 0 0 0 0 0 0 0 0 23 E Anicuns 6833,28 3772,8 8706,81 2961,72 5524,23 3285,14 6157,68 4381,01 5997,78 4178,95 Obrigado pela ajuda,