How To Apply A Function To Each Column In R Datadaft