Wikipedia

Module:Television ratings graph: Difference between revisions

Browse history interactively
← Previous edit
Content deleted Content added
No edit summary
oops typo
 
(95 intermediate revisions by 15 users not shown)
Line 1:
-- This module implements {{Television ratings graph}}.
 
local contrast_ratio = require('Module:Color contrast')._ratio
 
--------------------------------------------------------------------------------
Line 7 ⟶ 9:
 
local TVRG = {}
 
-- Convert HEX codes to RGB values
function TVRG.hex2rgb(hex)
hex = hex:gsub('#', '')
if #hex == 3 then
-- #000 format
return tonumber("0x"..hex:sub(1,1)..hex:sub(1,1))/256, tonumber("0x"..hex:sub(2,2)..hex:sub(2,2))/256,
tonumber("0x"..hex:sub(3,3)..hex:sub(3,3))/256
else
-- #000000 format
return tonumber("0x"..hex:sub(1,2))/256, tonumber("0x"..hex:sub(3,4))/256, tonumber("0x"..hex:sub(5,6))/256
end
end
 
-- Allow usages of {{N/A}} cells
Line 45 ⟶ 34:
function TVRG.new(frame,args)
args = args or {}
local categories = ''
local title = mw.title.getCurrentTitle()
-- Variables
-- Create the timeline
local timeline = ''
local longestseason = -1
local average = args.average and 1 or 0
local season_title = args.season_title or 'Season'
Line 53 ⟶ 45:
:attr('align', 'center')
-- BarCreate widththe timeline
local barwidth
if #args < 20 then barwidth = 8
elseif #args > 75 then barwidth = 6
else barwidth = 7 end
-- Basis parameters
timeline = timeline .. "ImageSize = width:" .. (args.width or 1000) .. " height:" .. (args.height or 300) .. "\n"
timeline = timeline .. "PlotArea = left:50 bottom:70 top:20 right:50\n"
timeline = timeline .. "AlignBars = justify\n"
timeline = timeline .. "Colors =\n"
timeline = timeline .. " id:a value:gray(0.7)\n"
-- Number of actual viewer numbers
local numberargs = 0
for k,v in pairs(args) do
if (string.lower(v) == 'n/a') or (not string.match(k,'[^%d]+') and not string.match(v,'[^%d%.]+')) then numberargs = numberargs + 1 end
end
 
-- Determine number of seasons
local num_seasons = -1
Line 75 ⟶ 61:
end
end
if num_seasons < 1 then
num_seasons = 1
end
 
-- Determine number of episodes and subtract averages if included (they should be equal to the number of seasons)
local num_episodes
if average == 1 then
num_episodes = numberargs-num_seasons
else
num_episodes = numberargs
end
 
-- Bar and graph width
local barwidth
if args.bar_width then barwidth = args.bar_width
-- Colour and legend variables
elseif num_episodes >= 120 then barwidth = 6
local season = 1
elseif num_episodes >= 100 then barwidth = 7
for season = 1,num_seasons do
elseif num_episodes >= 80 then barwidth = 8
local r,g,b = TVRG.hex2rgb(args['color' .. season] or '#006600')
elseif num_episodes >= 50 then barwidth = 9
timeline = timeline .. " id:season" .. season .. " value:rgb("..r..","..g..","..b..") legend:" ..
elseif num_episodes >= 20 then barwidth = 10
string.gsub((args["legend" .. season] or season_title .. " " .. season), ' ', '_') .. "\n"
else barwidth = 11
season = season + 1
end
 
-- Determine maximum viewer figure
local maxviewers = -1
local multiple = 'millions'
for k,v in pairs(args) do
local num = tonumber(v)
Line 93 ⟶ 94:
end
end
if maxviewers <= 1.5 then
multiple = 'thousands'
maxviewers = maxviewers*1000
for k, v in pairs(args) do
local num = tonumber(v)
if tonumber(k) ~= nil and num ~= nil then args[k] = tostring(num*1000) end
end
end
local is_singular = num_episodes == 1
 
-- FurtherBasis parameters, with rounded-up viewer figures as maximum period
timeline = timeline .. "\nImageSize = width:" .. (is_singular and 200 or 'auto') .. " height:"..(args.height or 500).. (is_singular and '' or " barincrement:"..(barwidth+(num_episodes == 2 and 16 or 4))).."\n"
timeline = timeline .. "DateFormat = x.y\n"
timeline = timeline .. "Period \nPlotArea = fromleft:050 tillbottom:"50 ..top:10 math.ceil(maxviewers) .. "right:100\n"
timeline = timeline .. "TimeAxis \nAlignbars = orientation:verticaljustify\n"
timeline = timeline .. "ScaleMajor\nPeriod = gridcolorfrom:a0 incrementtill:1 start:0"..math.ceil(maxviewers).."\n"
timeline = timeline .. "Legend \nTimeAxis = orientation:horizontalvertical format:y\n"
timeline = timeline .. "PlotData =\n"
-- Colors
timeline = timeline .. " width:" .. barwidth .. "\n"
timeline = timeline .. "\nColors =\n"
for season = 1,num_seasons do
args["color" .. season] = args["color" .. season] or '#CCCCFF'
hex = args["color" .. season]:gsub("#","")
if #hex == 3 then
-- If it's 3 hex chars then make it six instead
hex = hex:sub(1,1) .. hex:sub(1,1) .. hex:sub(2,2) .. hex:sub(2,2) .. hex:sub(3,3) .. hex:sub(3,3)
end
rgbR = tonumber("0x"..hex:sub(1,2))/256
rgbG = tonumber("0x"..hex:sub(3,4))/256
rgbB = tonumber("0x"..hex:sub(5,6))/256
local legend = season_title.."_"..(args["legend" .. season] and args["legend" .. season] or season )
timeline = timeline .. "\n id:season"..season.." value:rgb("..rgbR..", "..rgbG..", "..rgbB..") legend:"..legend:gsub(" ", "_").."\n"
end
timeline = timeline .. "\n id:bars value:gray(0.95)"
timeline = timeline .. "\nLegend = orientation:vertical position:right\n"
timeline = timeline .. "\nBackgroundColors = bars:bars\n"
timeline = timeline .. "\nScaleMajor = unit:year increment:"..(multiple == 'thousands' and 100 or 1).." start:0\n"
timeline = timeline .. "\nScaleMinor = unit:year increment:"..(multiple == 'thousands' and 100 or 1).." start:0\n"
 
local x_intervals = args.x_intervals or (num_episodes >= 80 and 2 or 1)
 
timeline = timeline .. "\nBarData=\n"
for episode = 1,num_episodes do
episodetext = ((episode % x_intervals == 0) and episode or "")
timeline = timeline .. "\n bar:"..episode.." text:"..episodetext.."\n"
end
-- Add bars to timeline, one per viewer figure
local bar = 1
local season = 10
local thisseason = 0
local longestseasoncounted_episodes = -10
timeline = timeline .. "\nPlotData=\n"
timeline = timeline .. "\n width:"..barwidth.." textcolor:black align:left anchor:from shift:(10,-4)\n"
for k,v in pairsipairs(args) do
if tonumberstring.lower(kv) ~== nil'n/a' then v = '' end

if v == '-' then
-- Hyphen means new season, so change colour
timelineseason = timeline .. " color:season" .. season ..+ "\n"1
 
season = season + 1
-- Determine highest number of episodescounted_episodes in a season
if thisseason > longestseason then
longestseason = thisseason
end
thisseason = 0
elseif average == 0 or (average == 1 and (args[k+1] == '-' or args[k+1] == nil) == false) then
-- Include bar for viewer figure, do not include if averages are included and the next parameter is a new season marker
timeline = timeline .. " bar:" .. bar .. " from:start till:" .. (v ~= '' and v or 'start') .. "\n"
thisseason = thisseason + 1
bar = bar + 1
end
thisseason = 0
elseif average == 0 or (average == 1 and args[k+1] ~= '-' and args[k+1] ~= nil) then
-- Include bar for viewer figure, do not include if averages are included and the next parameter is a new season marker
timeline = timeline .. "\n bar:"..bar.." from:0 till:"..(v ~= '' and v or 0).." color:season"..season.."\n"
-- Increment tracking variables
counted_episodes = counted_episodes + 1
thisseason = thisseason + 1
bar = bar + 1
end
end
-- Determine highest number of episodes in a season after final season's bars
if thisseason > longestseason then
longestseason = thisseason
end
-- AddAxis timeline to divlabels
local countryDisplayUS, countryDisplayUK, countryDisplayOther
root:node(frame:extensionTag('timeline', timeline))
if args.country ~= nil and args.country ~= '' then
if args.country == "U.S." or args.country == "US" or args.country == "United States" then countryDisplayUS = 'U.S.'
-- Create ratings table
elseif args.country == "U.K." or args.country == "UK" or args.country == "United Kingdom" then countryDisplayUK = 'UK'
local rtable = mw.html.create('table')
else countryDisplayOther = args.country end
:addClass('wikitable')
end
:css('text-align', 'center')
-- If there's a title, add it with the viewers caption, else just display the viewers caption by itself
if args.title ~= nil and args.title ~= '' then
rtable:tag('caption')root:wikitext("'''''" .. args.title .. "''" .. frame"&#8202;" .. ":expandTemplate{ title" =.. 'hsp'((countryDisplayUS }or countryDisplayUK or countryDisplayOther) or "") .. ((countryDisplayUS or countryDisplayUK or countryDisplayOther) and ": Viewersv" or "V") .. "iewers per episode (millions" .. multiple .. ")'''"):css('margin-top', '1em')
else
rtable:tag('caption')root:wikitext("'''Viewers per episode (millions" .. multiple .. ")'''"):css('margin-top', '1em')
end
root:tag('div'):css('clear','both')
-- Add timeline to div
-- Headers rows for episodes 1 to highest number of episodes
if args.no_graph == nil then
local row = rtable:tag('tr')
if num_episodes > 100 then
row:tag('th'):wikitext(season_title)
root:tag('div'):wikitext("Too many episodes to display graph (maximum 100).")
if title.namespace == 0 then
for i = 1,longestseason do
categories = categories .. '[[Category:Articles using Template:Television ratings graph with excessive figures]]'
row:tag('th')
end
:attr('scope','col')
else
:wikitext(frame:expandTemplate{ title='abbr', args={ 'Ep.', 'Episode' } } .. ' ' .. i)
timelineBase = frame:preprocess("<timeline>"..timeline.."</timeline>")
root:node(timelineBase)
root:tag('div'):css('clear','both')
end
end
-- Create ratings table
-- Average column
if averageargs.no_table == 1nil then
local rtable = mw.html.create('table')
row:tag('th')
:attraddClass('scope','colwikitable')
:css('text-align', 'center')
:wikitext("''Average''")
end
-- Create headers rows
local seasonrow = 1rtable:tag('tr')
row:tag('th'):wikitext(season_title)
local thisseason = 0
:attr('scope','col')
:attr('colspan','2')
-- Create table rows and cells
:attr('rowspan','2')
for k,v in pairs(args) do
:css('padding-left', '.8em')
if tonumber(k) ~= nil then
:css('padding-right', '.8em')
-- New season marker, or final episode rating
if v == '-' or (average == 1 and args[k+1] == nil) then
row:tag('th')
if season > 1 then
:attr('scope','colgroup')
-- Spanning empty cells with {{N/A}}
if thisseason < :attr('colspan',longestseason then)
:wikitext("Episode number")
row:node(TVRG.NACell(frame,"N/A"):attr('colspan',longestseason-thisseason))
:css('padding-left', '.8em')
:css('padding-right', '.8em')
-- Average column
if average == 1 then
row:tag('th')
:attr('scope','col')
:attr('rowspan','2')
:wikitext("Average")
:css('padding-left', '.8em')
:css('padding-right', '.8em')
end
 
local row = rtable:tag('tr')
for i = 1,longestseason do
row:tag('th')
:attr('scope','col')
:wikitext(i)
end
local season = 1
local thisseason = 0
-- Create table rows and cells
for k,v in pairs(args) do
if tonumber(k) ~= nil then
-- New season marker, or final episode rating
if v == '-' or (average == 1 and args[k+1] == nil) then
if season > 1 then
-- Spanning empty cells with {{N/A}}
if thisseason < longestseason then
row:node(TVRG.NACell(frame,"–"):attr('colspan',longestseason-thisseason))
end
if average == 1 then
-- If averages included, then set the averages cell with value or TBD
if v ~= '' then
row:tag('td'):wikitext(args[k+1] ~= nil and args[k-1] or v)
else
row:node(TVRG.NACell(frame,"TBD"))
end
thisseason = thisseason + 1
end
end
if-- averageNew ==season 1 thenmarker
if v == '-' then
-- If averages included, then set the averages cell with value or TBD
if-- vNew ~=row ''with thendefault or preset caption
row = rtable:tag('tdtr'):wikitext(args[k+1] ~= nil and args[k-1] or v)
elserow:tag('th')
:css('background-color', args['color' .. season])
row:node(TVRG.NACell(frame,"TBD"))
end :css('width','14px')
:css('padding','0')
thisseason = thisseason + 1
row:tag('th')
:attr('scope','row')
:wikitext(args["legend" .. season] and args["legend" .. season] or season)
thisseason = 0
season = season + 1
end
elseif average == 0 or (average == 1 and args[k+1] ~= '-' and args[k+1] ~= nil) then
-- Viewer figures, either as a number or TBD
if string.lower(v) == 'n/a' then
row:node(TVRG.NACell(frame,"N/A"))
elseif v ~= '' then
row:tag('td'):wikitext(v)
:css('width', '35px')
else
row:node(TVRG.NACell(frame,"TBD"))
end
thisseason = thisseason + 1
end
-- New season marker
if v == '-' then
-- New row with default or preset caption
row = rtable:tag('tr')
row:tag('th')
:attr('scope','row')
:wikitext(args["legend" .. season] and args["legend" .. season] or season_title .. ' ' .. season)
thisseason = 0
season = season + 1
end
elseif average == 0 or (average == 1 and args[k+1] ~= '-' and args[k+1] ~= nil) then
-- Viewer figures, either as a number or TBD
if v ~= '' then
row:tag('td'):wikitext(v)
else
row:node(TVRG.NACell(frame,"TBD"))
end
thisseason = thisseason + 1
end
end
-- Finish by checking if final row needs {{N/A}} cells
if average == 0 and thisseason < longestseason then
row:node(TVRG.NACell(frame,"–"):attr('colspan',longestseason-thisseason))
end
-- Add table to div root and return
root:node(rtable)
root:tag('div'):css('clear','both')
end
local current_monthyear = os.date("%B %Y")
-- Finish by checking if final row needs {{N/A}} cells
local span = mw.html.create('span'):wikitext(frame:expandTemplate{title='Citation needed', args={date=current_monthyear}})
if thisseason < longestseason then
row:node(TVRG.NACell(frame,"N/A"):attr('colspan',longestseason-thisseason))
if countryDisplayUS then
root:wikitext("<small>Audience measurement performed by [[Nielsen Media Research]]</small>" .. (args.refs ~= '' and args.refs or tostring(span)))
elseif countryDisplayUK then
root:wikitext("<small>Audience measurement performed by [[Broadcasters' Audience Research Board]]</small>" .. (args.refs ~= '' and args.refs or tostring(span)))
else
root:wikitext("<small>Source: </small>" .. (args.refs ~= '' and args.refs or tostring(span)))
end
return tostring(root) .. categories
-- Add table to div root and return
root:node(rtable)
return tostring(root)
end
 
Retrieved from "https://en.wikipedia.org/wiki/Module:Television_ratings_graph"