Creating histogram exporter for tweets and modifyng install external word cloud commons.
This commit is contained in:
parent
f28e884a79
commit
5d457e824a
@ -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'
|
@ -14,6 +14,6 @@ installExternalWordCloudCommons
|
|||||||
url: fileUrl;
|
url: fileUrl;
|
||||||
downloadTo: folder].
|
downloadTo: folder].
|
||||||
(folder children detect: [ :file | file basename includesSubstring: 'raw' ])
|
(folder children detect: [ :file | file basename includesSubstring: 'raw' ])
|
||||||
renameTo: 'stopwords-es.txt'.
|
renameTo: (((commonFiles second splitOn: 'raw?') second splitOn: '/') last removeSuffix: '&ci=tip').
|
||||||
^ folder
|
^ folder
|
||||||
|
|
Loading…
Reference in New Issue
Block a user