Creating histogram exporter for tweets and modifyng install external word cloud commons.

This commit is contained in:
ruidajo 2022-04-16 01:59:52 -05:00
parent f28e884a79
commit 5d457e824a
2 changed files with 38 additions and 2 deletions

View File

@ -0,0 +1,36 @@
accessing
exportTweetsHistogramWithBars: aNumberOfBars
| timeSpans labels tweetsByTimeSpan subtotals tweetsColor x tweetsHistogram diagram |
timeSpans := self tweets timeSpansOf: aNumberOfBars.
labels := (timeSpans collect: [ :timeSpan |
((timeSpan start asDate asString removeSuffix: '2022'), '→ ', timeSpan end asDate asString removeSuffix: '2022')
]) asArray.
tweetsByTimeSpan := OrderedCollection new.
1 to: labels size do: [ :i |
tweetsByTimeSpan add: (self tweets messages select: [ :tweet |
(timeSpans at: i) includes: (tweet created asDateAndTime)])
].
subtotals := tweetsByTimeSpan collect: [ :collection | collection size ].
tweetsColor := (Color r:(91/255) g:(131/255) b:(222/255)).
x := 1 to: subtotals size.
tweetsHistogram := RSChart new.
tweetsHistogram extent: 800@200.
diagram := RSBarPlot new x: x y:subtotals.
diagram color: tweetsColor.
tweetsHistogram addPlot: diagram.
tweetsHistogram addDecoration: (RSHorizontalTick new
fromNames: labels;
labelRotation: 0;
fontSize: 80 /aNumberOfBars;
yourself).
tweetsHistogram addDecoration: (RSVerticalTick new
integer;
fontSize: 80 /aNumberOfBars).
tweetsHistogram build.
tweetsHistogram canvas pdfExporter
zoomToShapes;
noFixedShapes;
fileName: (self folder / 'trinos.pdf')fullName;
export.
^ self folder / 'trinos.pdf'

View File

@ -14,6 +14,6 @@ installExternalWordCloudCommons
url: fileUrl;
downloadTo: folder].
(folder children detect: [ :file | file basename includesSubstring: 'raw' ])
renameTo: 'stopwords-es.txt'.
renameTo: (((commonFiles second splitOn: 'raw?') second splitOn: '/') last removeSuffix: '&ci=tip').
^ folder