accessing
exportRetweetsHistogramWithBars: aNumberOfBars

	| retweetsDict |
	retweetsDict := {
		'messagesType' -> 'retweets'.
		'extent' -> (800@200).
		'color' -> (Color r:(217/255) g:(56/255) b: (124/255))
	} asDictionary.
	^ self exportHistogramFor: retweetsDict By: aNumberOfBars