Socialmetrica/Socialmetrica.package/NitterUser.class/instance/exportQuotesHistogram.st

accessing
exportQuotesHistogram

	| quotesOccurrences labels diagram quotesHistogram |
	
	quotesOccurrences := self quotesSortedByOccurrences.
	labels := quotesOccurrences keys.
	labels := labels collect: [ :profiles | ('@', profiles) ].
	quotesHistogram := RSChart new.
	quotesHistogram extent: 800@200.
	diagram := RSBarPlot new 
		x: (1 to: quotesOccurrences size)
		y: quotesOccurrences values.
	diagram color: (Color r:(89/255) g:(217/255) b:(95/255)).
	quotesHistogram addPlot: diagram.
	quotesHistogram addDecoration: (RSHorizontalTick new
    	fromNames: labels;
    	labelRotation: 0;
		fontSize: 72 /quotesOccurrences size;
    	yourself).
    quotesHistogram addDecoration: (RSVerticalTick new 
		integer;
		fontSize: 72 /quotesOccurrences size).
	quotesHistogram build.
    
    quotesHistogram canvas pdfExporter 
		zoomToShapes;
		noFixedShapes; 
		fileName: (self folder / 'quotes-histogram.pdf')fullName;
		export.
    quotesHistogram canvas pngExporter 
		zoomToShapes;
		noFixedShapes; 
		fileName: (self folder / 'quotes-histogram.png')fullName;
		export.
	^ self folder / 'quotes-histogram.png'