/R/Convert all numeric columns to percentages R

Convert all numeric columns to percentages R

myfun <- function(x) {
  if(is.numeric(x)){ 
    ifelse(is.na(x), x, paste0(round(x*100L, 1), "%")) 
  } else x 
}

df1 %>% mutate_each(funs(myfun))
#   name somevariable othervariable
# 1   A1        13.4%         53.4%
# 2   A1        54.8%          <NA>
# 3   B1        36.9%         36.9%
# 4   B1         <NA>         33.3%

Source: stackoverflow.com

Similar codes

0 vote305 views1 answer
Ggplot2 black and white theme
R
0 vote331 views1 answer
Add comma every 3 digits in r
R
1 vote360 views1 answer
Dplyr colnames r
R
0 vote281 views1 answer
R suppress package loading messages
R
0 vote320 views1 answer
Geom_point transparency
R
0 vote345 views1 answer
Digits in format and formatc in r
R
0 vote364 views1 answer
Meaning of %>% R
R
0 vote358 views1 answer
How to read a vector input in r
R
0 vote391 views1 answer
Open xlsx with r
R
1 vote365 views1 answer
R convert list to comma separated string
R