Written as a Bourne Shell-Script that invokes a Perl one-liner:

LC_ALL=C df -kPT | perl -ane '!/(^Filesystem|tmpfs)/ && do {
   printf("%-33s: %s\n", $F[0], "*" x int((`tput cols`-35) * $F[3] / $F[2]))
}'