Modifying bars, quotes and replies histograms.

This commit is contained in:
ruidajo 2022-05-03 11:05:56 -05:00
parent 21b4f432c4
commit ae652fdf3a
4 changed files with 7 additions and 10 deletions

View File

@ -4,8 +4,8 @@ exportOverviewReportLatex
self self
exportDefaultReport; exportDefaultReport;
externalWordCloud; externalWordCloud;
exportTweetsHistogramWithBars: 5; exportTweetsHistogramWithBars: 7;
exportRetweetsHistogramWithBars: 5; exportRetweetsHistogramWithBars: 7;
exportRepliesHistogramWithBars: 5; exportRepliesHistogramWithBars: 7;
exportQuotesHistogramWithBars: 5. exportQuotesHistogramWithBars: 7.
^ self folder ^ self folder

View File

@ -20,7 +20,6 @@ exportQuotesHistogram
quotesHistogram := RSChart new. quotesHistogram := RSChart new.
quotesHistogram extent: 800@200. quotesHistogram extent: 800@200.
diagram := RSBarPlot new diagram := RSBarPlot new
x: (1 to: quotesOccurrences size)
y: quotesOccurrences values. y: quotesOccurrences values.
diagram color: (Color r:(89/255) g:(217/255) b:(95/255)). diagram color: (Color r:(89/255) g:(217/255) b:(95/255)).
quotesHistogram addPlot: diagram. quotesHistogram addPlot: diagram.
@ -30,7 +29,7 @@ exportQuotesHistogram
fontSize: 72 /quotesOccurrences size; fontSize: 72 /quotesOccurrences size;
yourself). yourself).
quotesHistogram addDecoration: (RSVerticalTick new quotesHistogram addDecoration: (RSVerticalTick new
integer; asFloat: 2;
fontSize: 72 /quotesOccurrences size). fontSize: 72 /quotesOccurrences size).
quotesHistogram build. quotesHistogram build.

View File

@ -14,7 +14,6 @@ exportQuotesHistogramWithBars: aNumberOfBars
quotesHistogram := RSChart new. quotesHistogram := RSChart new.
quotesHistogram extent: 800@200. quotesHistogram extent: 800@200.
diagram := RSBarPlot new diagram := RSBarPlot new
x: (1 to: quotes size)
y: quotes values. y: quotes values.
diagram color: (Color r:(89/255) g:(217/255) b:(95/255)). diagram color: (Color r:(89/255) g:(217/255) b:(95/255)).
quotesHistogram addPlot: diagram. quotesHistogram addPlot: diagram.
@ -24,7 +23,7 @@ exportQuotesHistogramWithBars: aNumberOfBars
fontSize: 72 /quotes size; fontSize: 72 /quotes size;
yourself). yourself).
quotesHistogram addDecoration: (RSVerticalTick new quotesHistogram addDecoration: (RSVerticalTick new
integer; asFloat: 2;
fontSize: 72 /quotes size). fontSize: 72 /quotes size).
quotesHistogram build. quotesHistogram build.

View File

@ -19,7 +19,6 @@ exportRepliesHistogramWithBars: aNumberOfBars
tweetsHistogram := RSChart new. tweetsHistogram := RSChart new.
tweetsHistogram extent: 800@200. tweetsHistogram extent: 800@200.
diagram := RSBarPlot new diagram := RSBarPlot new
x: (1 to: subtotals size)
y:subtotals. y:subtotals.
diagram color: (Color r:(246/255) g:(185/255) b:(46/255)). diagram color: (Color r:(246/255) g:(185/255) b:(46/255)).
tweetsHistogram addPlot: diagram. tweetsHistogram addPlot: diagram.
@ -29,7 +28,7 @@ exportRepliesHistogramWithBars: aNumberOfBars
fontSize: 72 /aNumberOfBars; fontSize: 72 /aNumberOfBars;
yourself). yourself).
tweetsHistogram addDecoration: (RSVerticalTick new tweetsHistogram addDecoration: (RSVerticalTick new
integer; asFloat: 2;
fontSize: 72 /aNumberOfBars). fontSize: 72 /aNumberOfBars).
tweetsHistogram build. tweetsHistogram build.
tweetsHistogram canvas pngExporter tweetsHistogram canvas pngExporter