scale code snippets in r

z score by group tidyverse in r