Adicione vírgula a cada 3 dígitos em r

format(data, big.mark = ",")
Successful Salmon