Adicione vírgula a cada 3 dígitos em r
format(data, big.mark = ",")
Successful Salmon
format(data, big.mark = ",")