Pandas Lambda Function Code In R