☰

Dibujar un histograma a partir de la salida de un comando bash

tag-icon • tag-icon bash
Dibujar un histograma a partir de la salida de un comando bash

Tengo el siguiente resultado:

2015/1/7    8
2015/1/8    49
2015/1/9    40
2015/1/10   337
2015/1/11   11
2015/1/12   3
2015/1/13   9
2015/1/14   102
2015/1/15   62
2015/1/16   10
2015/1/17   30
2015/1/18   30
2015/1/19   1
2015/1/20   3
2015/1/21   23
2015/1/22   12
2015/1/24   6
2015/1/25   3
2015/1/27   2
2015/1/28   16
2015/1/29   1
2015/2/1    12
2015/2/2    2
2015/2/3    1
2015/2/4    10
2015/2/5    13
2015/2/6    2
2015/2/9    2
2015/2/10   25
2015/2/11   1
2015/2/12   6
2015/2/13   12
2015/2/14   2
2015/2/16   8
2015/2/17   8
2015/2/20   1
2015/2/23   1
2015/2/27   1
2015/3/2    3
2015/3/3    2

Y me gustaría dibujar un histograma.

2015/1/7  ===
2015/1/8  ===========
2015/1/9  ==========
2015/1/10 ====================================================================
2015/1/11 ===
2015/1/11 =
...

¿Sabes si existe un comando bash que me permita hacer eso?

Respuesta1

En perl:

perl -pe 's/ (\d+)$/"="x$1/e' file
  • ehace que la expresión sea evaluada, por lo que la repito =usando el valor de $1(el número que coincide con (\d+)).
  • Podrías hacerlo "="x($1\/3)en lugar de "="x$1obtener líneas más cortas. (Se /ha escapado ya que estamos en medio de un comando de sustitución).

En bash(inspirado enesta respuesta SO):

while read d n 
do 
    printf "%s\t%${n}s\n" "$d" = | tr ' ' '=' 
done < test.txt
  • printfrellena la segunda cadena usando espacios para obtener un ancho de $n ( %${n}s), y reemplazo los espacios con =.
  • Las columnas están delimitadas mediante una tabulación ( \t), pero puedes hacerlas más bonitas conectándolas a column -ts'\t'.
  • Podrías utilizar $((n/3))en lugar de ${n}para obtener líneas más cortas.

Otra version:

unset IFS; printf "%s\t%*s\n" $(sed 's/$/ =/' test.txt) | tr ' ' =

El único inconveniente que puedo ver es que necesitará canalizar sedla salida de algo si desea reducirla; de lo contrario, esta es la opción más limpia. Si existe la posibilidad de que su archivo de entrada contenga uno de [?*ustedes, debe iniciar el comando w/ set -f;.

Respuesta2

Prueba esto en:

perl -lane 'print $F[0], "\t", "=" x ($F[1] / 5)' file

EXPLICACIONES:

  • -aes una matriz explícita split(), @Fobtenemos los valores con$F[n]
  • xes decirle a Perl que imprima un carácter N veces
  • ($F[1] / 5): aquí obtenemos el número y lo dividimos entre 5 para obtener un resultado de impresión bonito (aritmética simple)

Respuesta3

Fácil conawk

awk '{$2=sprintf("%-*s", $2, ""); gsub(" ", "=", $2); printf("%-10s%s\n", $1, $2)}' file

2015/1/7 ========
2015/1/8 =================================================
2015/1/9 ========================================
..
..

O con mi lenguaje de programación favorito

python3 -c 'import sys
for line in sys.stdin:
  data, width = line.split()
  print("{:<10}{:=<{width}}".format(data, "", width=width))' <file

Respuesta4

Podrías hacer algo así con elbarverbo enMolinero

$ mlr --nidx --repifs --ofs tab bar -f 2 file
2015/1/7    ***.....................................
2015/1/8    *******************.....................
2015/1/9    ****************........................
2015/1/10   ***************************************#
2015/1/11   ****....................................
2015/1/12   *.......................................
.
.
.

información relacionada