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>'