The Trendy application is being retired in the new year. The new web application, ThingSpeak, offers similar functionality. We recommend that active Trendy users who are looking to create new trends use ThingSpeak. To begin collecting your data in ThingSpeak, please read the tutorial : ThingSpeak for Trendy users. Although Trendy no longer allows the creation of new trends, the application will still remain accessible until January 13, 2016. Until that date, you can view your current trends and download your data. After that date, your data will no longer be accessible. Thanks for using Trendy and we encourage you to check out ThingSpeak.

Close-button

British Tabloid Newspaper Hysteria

This plot is broken.


          

A measure of the total expressed fear and outrage from newspaper tabloids in Britain benchmarked against their more moderate counterparts. A predictive candidate for the exact date of the impending Mayan Armageddon.

This graph uses trends which have been calculated by looking at the front page of each associated news website and deriving a hysteria metric, as well as an average value for each outlet.

Plot Image
mycolors = [ 0.0 0.0 0.5;
                      0.0 0.0 1.0;
                      0.0 0.5 1.0; 
                      0.0 1.0 1.0; 
                      0.3 0.8 0.5; 
                      0.9 0.9 0.0; 
                      1.0 0.5 0.0; 
                      1.0 0.0 0.0;
                      0.5 0.0 0.0 ];

set(gca, 'ColorOrder', mycolors);
hold all

h = zeros(1,9);

 % Hysteria: The Telegraph
%   time vector is: time1363
%   data vector is: data1363

h(1) = plot(time1363(end-13:end),data1363(end-13:end), 'x-','LineWidth',2);

% Hysteria: The Guardian
%   time vector is: time1362
%   data vector is: data1362

h(2) = plot(time1362(end-13:end),data1362(end-13:end), 'o-','LineWidth',2);

% Hysteria: The Independent
%   time vector is: time1361
%   data vector is: data1361

h(3) = plot(time1361(end-13:end),data1361(end-13:end), 'x-','LineWidth',2);

% Hysteria: The Daily Star
%   time vector is: time1360
%   data vector is: data1360

h(4) = plot(time1360(end-13:end),data1360(end-13:end), 'o-','LineWidth',2);

% Hysteria: Hysteria: BBC News
%   time vector is: time1359
%   data vector is: data1359

h(5) = plot(time1359(end-13:end),data1359(end-13:end), 'o-','LineWidth',2);

% Hysteria: The Mirror
%   time vector is: time1358
%   data vector is: data1358

h(6) = plot(time1358(end-13:end),data1358(end-13:end), 'o-','LineWidth',2);

% Hysteria: The Sun
%   time vector is: time1357
%   data vector is: data1357

h(7) = plot(time1357(end-13:end),data1357(end-13:end), 'o-','LineWidth',2);

% Hysteria: The Daily Mail
%   time vector is: time1356
%   data vector is: data1356

h(8) = plot(time1356(end-13:end),data1356(end-13:end), 'o-','LineWidth',2);

% Hysteria: The Times
%   time vector is: time1427
%   data vector is: data1427

h(9) = plot(time1427(end-13:end),data1427(end-13:end), 'o-','LineWidth',2);




labels = {sprintf('Telegraph (av: %0.2f)', mean(data1363)), ...
sprintf('Guardian (av: %0.2f)', mean(data1362)), ...
sprintf('Independent (av: %0.2f)', mean(data1361)), ...
sprintf('Daily Star (av: %0.2f)', mean(data1360)), ...
sprintf('BBC News (av: %0.2f)', mean(data1359)), ...
sprintf('Mirror (av: %0.2f)', mean(data1358)), ...
sprintf('Sun (av: %0.2f)', mean(data1357)), ...
sprintf('Daily Mail (av: %0.2f)', mean(data1356)), ...
sprintf('Times (av: %0.2f)', mean(data1427)), ...
};

data = {data1363 data1362 data1361 data1360 data1359 data1358 data1357 data1356 data1427};

ymax = max(cellfun(@max, data));
colmeans = cellfun(@mean, data);
[~, I] = sort(colmeans, 'descend');

legend(h(I), labels(I), 'Location', 'NorthWest');

title('The Hysteriometer')
ylabel('''Hysteresis''')
xlabel('Time')

datetick('x', 'd')

ylim([0 1.4*ymax])
xlim([time1356(end-14) time1356(end)+1])


Tags:

Add Tags


2 comments

Improve English to better understand maths: http://speakenglishfluently.net