Multiplying Column Value by Another Value Depending on Value in Certain Column Using ifelse Function in R