Step 396

'
<style>
   .chart-wrap {
     margin-left: 50px;
     font-family: sans-serif;
     height: 650px;
     width: 300px;
   }
   .chart-wrap .title {
     font-weight: bold;
     font-size: 1.62em;
     padding: 0.5em 0 1.8em 0;
     text-align: center;
     white-space: nowrap;
   }
   .chart-wrap.vertical .grid {
     transform: translateY(-175px) translateX(175px) rotate(-90deg);
   }
   .chart-wrap.vertical .grid .bar::after {
     transform: translateY(-50%) rotate(45deg);
     display: block;
   }
   .chart-wrap.vertical .grid::before,
   .chart-wrap.vertical .grid::after {
     transform: translateX(-0.2em) rotate(90deg);
   }
   .chart-wrap .grid {
     position: relative;
     padding: 5px 0 5px 0;
     height: 100%;
     width: 100%;
     border-left: 2px solid #aaa;
     background: repeating-linear-gradient(90deg,transparent,transparent 19.5%,rgba(170,170,170,0.7) 20%);
   }
   .chart-wrap .grid::before {
     font-size: 0.8em;
     font-weight: bold;
     content: "0%";
     position: absolute;
     left: -0.5em;
     top: -1.5em;
   }
   .chart-wrap .grid::after {
     font-size: 0.8em;
     font-weight: bold;
     content: "100%";
     position: absolute;
     right: -1.5em;
     top: -1.5em;
   }
   .chart-wrap .bar {
     width: var(--bar-value);
     height: 50px;
     margin: 30px 0;
     background-color: #F16335;
     border-radius: 0 3px 3px 0;
   }
   .chart-wrap .bar:hover {
     opacity: 0.7;
   }
   .chart-wrap .bar::after {
     content: attr(data-name);
     margin-left: 100%;
     padding: 10px;
     display: inline-block;
     white-space: nowrap;
   }
   
   </style>

'+

'

<div class="chart-wrap vertical">
     <h2 class="title">Bar Chart for Cars and Brands</h2>
  
  <div class="grid">
   '+
   Car.allInstances->groupby(c|c.BrandOfCar)->collect(tuple|tuple.BrandOfCar.Name,(100*tuple.List->size/Car.allinstances->size).Round(0).asstring+'%')
   ->collect(values|'<div class="bar" style="--bar-value:'+values.Part2+';" data-name="'+values.Name+'" title="'+values.Name+' '+values.Part2+'"></div>'

)
->asSeparatedList( '' )+
'
  </div>
</div>'

Step 406

'
<style>
  h1 {
    font: 24px sans-serif;
  }
  .bar {
    fill: #d81c3f;
  }
  
  .bar:hover {
    fill: darkgray;
  }
  
  .axis {
    font: 10px sans-serif;
  }
  
  .axis path,
  .axis line {
    fill: none;
    stroke: #000;
    shape-rendering: crispEdges;
  }
  
  .x.axis path {
    display: none;
  }
  </style>

'+

'

<div class="chart-wrap vertical">
    <h2 class="title">Bar Chart for Cars and Brands</h2>
  
  <div class="grid">
  '+
  Car.allInstances->groupby(c|c.BrandOfCar)->collect(tuple|tuple.BrandOfCar.Name,(100*tuple.List->size/Car.allinstances->size).Round(0).asstring+'%')
  ->collect(values|'<div class="bar" style="--bar-value:'+values.Part2+';" data-name="'+values.Name+'" title="'+values.Name+' '+values.Part2+'"></div>'

)
->asSeparatedList( '' )+
'
  </div>
</div>'+

'<h1>SVG Vertical Bar Chart</h1>

<svg width="960" height="500">
	<g transform="translate(40,20)">
	<g class="x axis" transform="translate(0,450)">'+
let cars=Car.allInstances in
(
  cars->groupby(c|c.BrandOfCar)->collect(tuple|tuple.BrandOfCar.Name,(100*tuple.List->size/cars->size).Round(0).asstring+'%',BrandOfCar.allinstances->indexof(tuple.BrandOfCar)*35)
->collect(values|'
  		       <g class="tick" transform="translate('+values.Part3.asstring+',0)" style="opacity: 1;"><line y2="6" x2="0"></line>
			<text dy=".71em" y="9" x="0" style="text-anchor: middle;">'+values.Name+'</text>
		</g>


'

)
->asSeparatedList( '' )
)+

'
  		       
		<path class="domain" d="M0,6V0H900V6"></path>
	</g>
		<g class="y axis">
			<g class="tick" transform="translate(0,450)" style="opacity: 1;"><line x2="-6" y2="0"></line>
			<text dy=".32em" x="-9" y="0" style="text-anchor: end;">0%</text>
		</g>
			<g class="tick" transform="translate(0,212)" style="opacity: 1;"><line x2="-6" y2="0"></line>
			<text dy=".32em" x="-9" y="0" style="text-anchor: end;">50%</text>
		</g>
			<g class="tick" transform="translate(0,24.87009919697684)" style="opacity: 1;"><line x2="-6" y2="0"></line>
			<text dy=".32em" x="-9" y="0" style="text-anchor: end;">100%</text>
		</g>
		<path class="domain" d="M-6,0H0V450H-6"></path>
		<text transform="rotate(-90)" y="6" dy=".71em" style="text-anchor: end;">Frequency</text>
	</g>
'+
let cars=Car.allInstances in
(
  cars->groupby(c|c.BrandOfCar)->collect(tuple|tuple.BrandOfCar.Name,
                          (450*tuple.List->size/cars->size).Round(0),
                          BrandOfCar.allinstances->indexof(tuple.BrandOfCar)*35)
->collect(values|'
		<rect class="bar" x="'+values.Part3.asstring+'" width="31" y="'+values.Part2.asstring+'" height="'+(450-values.Part2).asstring+'"></rect>


'

)
->asSeparatedList( '' )
)+

'
</svg>'