How to get numbers transformed to character bar charts ... to_char_bars()

to_char_bars.md

Once upon a time there was a tweet like that ...

https://twitter.com/fgilardi/status/573873339682418689/photo/1

R function transforming numbers into bar chart characters

to_char_bars <- function(input){
  chars <- 
    c("\u2581", "\u2582", "\u2583", "\u2584", "\u2585",
      "\u2586", "\u2587", "\u2588")  
  output <- chars[ cut(input, length(chars)) ]
  cat("\n",paste(output, collapse=""), "\n\n")
  return(output)
}

some random numbers

x <- input <- c(-1:10, rnorm(40, 0, 7))
to_char_bars(x)

▄▄▄▄▅▅▅▅▆▆▆▆▄▆▂▄▅▄▂▁▆▅▃▂▃▅▄▄▅▆▃▂▁▃▃▄▄▄▁▅▄▇▁▃▃▂▇▃▅▄▃█

# y = sin(x)
to_char_bars(sin(seq(-7,10,0.1)))

▂▂▃▃▃▄▄▄▅▅▆▆▆▇▇▇███████████████▇▇▇▆▆▆▅▅▄▄▄▃▃▂▂▂▂▁▁▁▁▁▁▁▁▁▁▁▁▁▁▂▂▂▃▃▃▄▄▅▅▅▆▆▆▇▇▇██████████████▇▇▇▇▆▆▅▅▅▄▄▃▃▃▂▂▂▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▂▂▂▃▃▃▄▄▅▅▅▆▆▆▇▇▇██████████████▇▇▇▇▆▆▅▅▅▄▄▃▃▃▂

package sparkmight (or might not work as well) ...

install.packages("spark")
require(spark)
spark(sin(seq(0,10*pi,len=37)))