decrease character
decrease(chr)
chr
one character vector
decreased vector
set.seed(2020) x=rnorm(20) decrease(x)