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

41 lines
1.3 KiB
Smalltalk
Raw Normal View History

2022-04-20 21:44:34 +00:00
accessing
exportQuotesHistogramWithBars: aNumberOfBars
| keysToRemove quotes labels quotesHistogram diagram |
2022-04-20 21:44:34 +00:00
quotes := self quotesSortedByOccurrences.
(aNumberOfBars > quotes size) ifTrue: [ ^ self exportQuotesHistogram ].
keysToRemove := OrderedCollection new.
1 to: quotes size - aNumberOfBars do:
[ :i | keysToRemove add: (quotes keys at: i + aNumberOfBars) ].
quotes removeKeys: keysToRemove.
labels := quotes keys.
labels := labels collect: [ :profiles | ('@', profiles) ].
2022-04-20 21:44:34 +00:00
quotesHistogram := RSChart new.
quotesHistogram extent: 800@200.
diagram := RSBarPlot new
x: (1 to: quotes size)
y: quotes values.
2022-04-20 21:44:34 +00:00
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 /quotes size;
2022-04-20 21:44:34 +00:00
yourself).
quotesHistogram addDecoration: (RSVerticalTick new
integer;
fontSize: 72 /quotes size).
2022-04-20 21:44:34 +00:00
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'