library('dplyr')
d <- data.frame(Sepal_Length=c(5.8,5.7),
Sepal_Width=c(4.0,4.4),
Species='setosa',
rank=c(1,2))
mapping = list(RankColumn='rank',GroupColumn='Species')
d %>% letp(mapping,
. %>% mutate(RankColumn=RankColumn-1)
)
# letp is only for transient pipelines, to save pipes use let:
f <- let(mapping,
. %>% mutate(RankColumn=RankColumn-1)
)
d %>% f
Run the code above in your browser using DataLab