Offray/Socialmetrica
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Creating exporter for retweets.

Browse Source
This commit is contained in:
ruidajo 2022-04-19 13:55:39 -05:00
parent e8373fab2c
commit e43b375a6b
1 changed files with 34 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
Socialmetrica.package/NitterUser.class/instance/exportRetweetsHistogram.st Normal file
View File

@ -0,0 +1,34 @@
accessing
exportRetweetsHistogram
| retweetsOccurrences labels retweetColor diagram x retweetsHistogram |
retweetsOccurrences := (self retweets messages collect: [ :tweet | tweet user userName ]) asBag contents asDictionary.
retweetColor := (Color r:(217/255) g:(56/255) b: (124/255)).
x := 1 to: retweetsOccurrences size.
retweetsHistogram := RSChart new.
retweetsHistogram extent: 800@200.
diagram := RSBarPlot new x: x y: retweetsOccurrences values.
diagram color: retweetColor.
retweetsHistogram addPlot: diagram.
retweetsHistogram addDecoration: (RSHorizontalTick new
fromNames: labels;
labelRotation: 0;
fontSize: 80 /retweetsOccurrences size;
yourself ).
retweetsHistogram addDecoration: (RSVerticalTick new
integer;
fontSize: 80 /retweetsOccurrences 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'