Creating a New Column with Calculated Differences Using dplyr's Case_When Function in R