Fixing and creating retweets histogram exporters.

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

@@ -6,6 +6,7 @@ exportRetweetsHistogram
 	retweetsOccurrences := self retweetsSortedByOccurrences.
 	retweetColor := (Color r:(217/255) g:(56/255) b: (124/255)).
 	x := 1 to: retweetsOccurrences size.
+	labels := retweetsOccurrences keys.
 	retweetsHistogram := RSChart new.
 	retweetsHistogram extent: 800@200.
 	diagram := RSBarPlot new x: x y: retweetsOccurrences values.

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

@@ -0,0 +1,39 @@
+accessing
+exportRetweetsHistogramWithBars: aNumberOfBars
+
+	| keysToRemove retweets x labels retweetsHistogram diagram |
+	retweets := self retweetsSortedByOccurrences.
+	(aNumberOfBars > retweets size) ifTrue: [ ^ self exportRetweetsHistogram ].
+	keysToRemove := OrderedCollection new.
+	1 to: retweets size - aNumberOfBars do: 
+		[ :i | keysToRemove add: (retweets keys at: i + aNumberOfBars) ].
+	retweets removeKeys: keysToRemove.
+
+	x := 1 to: retweets size.
+	labels := retweets keys.
+	retweetsHistogram := RSChart new.
+	retweetsHistogram extent: 800@200.
+	diagram := RSBarPlot new x: x y: retweets values.
+	diagram color: (Color r:(217/255) g:(56/255) b: (124/255)).
+	retweetsHistogram addPlot: diagram.
+	retweetsHistogram addDecoration: (RSHorizontalTick new
+    	fromNames: labels;
+    	labelRotation: 0;
+		fontSize: 80 /retweets size;
+    	yourself).
+    retweetsHistogram addDecoration: (RSVerticalTick new 
+		integer;
+		fontSize: 80 /retweets size).
+	retweetsHistogram build.
+    
+    retweetsHistogram canvas pdfExporter 
+		zoomToShapes;
+		noFixedShapes; 
+		fileName: (self folder / 'retweets-histogram.pdf')fullName;
+		export.
+    retweetsHistogram canvas pngExporter 
+		zoomToShapes;
+		noFixedShapes; 
+		fileName: (self folder / 'retweets-histogram.png')fullName;
+		export.
+	^ self folder / 'retweets-histogram.png'