Tengo los siguientes datos
datos <- read.table(text = '
COL1 COL2 COL3
AA Certificado 22
AA Descertificado 10
BB Certificado 6
BB Descertificado 7
CC Certificado 1
CC Descertificado 2
', header = TRUE, stringsAsFactors = FALSE, na.strings = 'NA')
COL1 COL2 COL3
1 AA Certificado 22
2 AA Descertificado 10
3 BB Certificado 6
4 BB Descertificado 7
5 CC Certificado 1
6 CC Descertificado 2
Simplemente quiero sumar la col3 agrupando por col1 y añadirlo al df
COL1 COL2 COL3
AA Certificado 22
AA Descertificado 10
AA Total 32
BB Certificado 6
BB Descertificado 7
BB Total 13
CC Certificado 1
CC Descertificado 2
CC Total 3
He probado con bind_rows
combinado con aggregate
pero no logro sacarlo.