Módulo:Diagrama

De Wikipedia, la enciclopedia libre
Ir a la navegación Ir a la búsqueda
Icono de documentación de módulo Documentación del módulo[ver] [editar] [historial] [purgar]

A continuación se muestra la documentación transcluida desde la subpágina /doc. [salta a la caja de código]


Uso

Cómo trazar un diagrama de barras: la plantilla "bar chart"

Parámetros

Nombre del parámetro Explicación
delimiter Signo que sirve para separar diversos valores. Por defecto, se utilizan los dos puntos (:). No se suele cambiar, a menos que se desee utilizar los dos puntos como parte del valor de un parámetro.
width Anchura del diagrama. Valor numérico opcional. Debe valer como mínimo 200. El valor por defecto es 500.
height Altura del diagrama. Valor numérico opcional. Debe valer como mínimo 200. El valor por defecto es 350.
ancho escala Ancho de la escala (o de cada una de ellas, si hay más de una), en píxeles. El valor por omisión es 100 si hay una sola, 80 si hay varias.
alto leyendas Alto en píxeles del espacio inferior, donde aparecen los valores del eje X. El valor por omisión es 80.
group n «n» es un valor numérico. Se utiliza para nombrar los distintos tipos de datos del gráfico: «group 1», «group 2», etc., tantos tipos de datos como contenga el diagrama. Se le asignan tantos valores como posiciones en el eje X se deseen mostrar. Cada conjunto de columnas reunidas en en torno a un valor del eje X utiliza un dato de cada grupo definido.
tooltip n Valor asociado a cada barra del diagrama, que aparece cuando se coloca el ratón sobre el extremo de una barra. Si no se asigna un valor pero la barra tiene un enlace, se mostrará el enlace. Si se le asigna un valor, lo que se muestre será la combinación del nombre del grupo, el valor de este parámetro y, si se definen también, los valores de los parámetros «units prefix» y »units suffix».
links n Enlaces a artículos de la Wikipedia. Se asocian a cada barra de un grupo, el que tenga el mismo número.
stack Parámetro utilizado para solapar las barras de cada posición del eje X en vez de mostrarlas yuxtapuestas. Si se desea mostrarlas yuxtapuestas, no debe usarse este parámetro. Cualquier valor asignado al parámetro lo activa (mostrando las barras solapadas en cada posición del eje X para la que haya datos). Para desactivarlo y mostrar así las barras yuxtapuestas, bien no debe incluirse el parámetro o bien, si está presente en el código del diagrama, no se le ha de asignar ningún valor.
tooltip value accumulation Se utiliza únicamente junto con el parámetro stack: cuando se le da el valor true, tooltip muestra el valor acumulado por la suma de todas las barras solapadas en una posición determinada del diagrama.
colors Colores utilizados para distinguir cada grupo del diagrama. Debe haber tantos colores como grupos. Se pueden definir utilizando los nombres reglados en la normativa de HMTL, o bien utilizar la notación #xxx o #xxxxxx.
x legends Valores para el eje X del diagrama. Se puede utilizar código wikipédico, como enlaces internos o plantillas.
hide group legends Si se activa, la leyenda no aparece bajo el diagrama. Cualquier valor que se le asigne al parámetro lo activa. Para desactivarlo, bien se omite el parámetro o, si se incluye, no ha de dársele ningún valor.
scale per group Se utiliza para emplear escalas diferentes en el eje Y para los distintos grupos del diagrama. Si no se le da valor alguno, se utiliza la misma escala para todos los grupos. No se puede utilizar con el parámetro «stack». Adviértase que, cuando se activa, cada escala se mostrará por separado, incluso si es igual a otras del diagrama. Cualquier valor que se le asigne activa el parámetro. Para desactivarlo, bien se omite el parámetro o, si se incluye, no ha de dársele ningún valor.
units prefix Prefijo que se utiliza junto con los valores definidos en el parámetro tooltip. Por ejemplo, si se fija el valor del parámetro a «$», en el extremo de la barra se mostraría «$500» en vez de simplemente «500».
units suffix Lo mismo que el parámetro anterior, solo que en vez de ser un prefijo es un sufijo al valor de tooltip. Por ejemplo, si se fija el valor del parámetro a «Kg», el valor de la barra mostrará 88Kg en vez de simplemente 88. Si se desea colocar un espacio entre el valor de la columna que proviene de tooltip y la unidad que lo sigue, se ha de utilizar un guion bajo (_) en el código del diagrama.
group names Nombres de los distintos grupos del diagrama.

Ejemplos

Diagramas sencillos

En el siguiente diagrama se muestran las poblaciones de 3 tipos de rana (3 grupos: group 1, etc.) en 4 países (4 valores del eje X). Al haber 4 valores en el eje X, cada grupo tiene 4 valores (4 barras, una en cada valor del eje X, todas con el mismo color).

Para cada grupo se definen enlaces («links»): el grupo 1 (Rana verde) tiene enlaces al artículo Rana verde en sus 4 barras; el grupo 2 (rana roja) tiene enlaces al artículo correspondiente de la Wikipedia solo en las dos primeras barras, el grupo 3 (rana arbórea), solo en la barra 1 y la 3.

El grupo 2 tiene etiquetas («tooltip») en cada una de sus 4 barras: al colocar el ratón sobre la barra, aparece el texto de la etiqueta. Los enlaces definidos siguen funcionando para este grupo como si no hubiese etiquetas definidas.

En las barras para las que no se define un enlace o una etiqueta, al colocar en el extremo de ella el ratón aparece el nombre del grupo segurido de dos puntos y el valor de la columna (Rana arbórea: 14).

Cada tipo de datos (grupo) tiene un color asignado («colors», en este caso usando nombres regulados por la normativa de HTML) y un nombre («group_names»). Las posiciones del eje X en torno a las que se reunen las barras se definen al final del código del diagrama («x legends»).


{{ #invoke:Diagrama | bar chart
| group 1 = 40 : 50 : 60 : 20
| group 2 = 20 : 60 : 12 : 44
| group 3 = 55 : 14 : 33 : 5
| links 1 = Rana verde : Rana verde : Rana verde : Rana verde
| links 2 = Rana roja : Rana roja 
| links 3 = Rana arbórea : : Rana arbórea
| tooltip 2 = etiqueta 1 : etiqueta 2 : etiqueta 3 : etiqueta 4
| colors = green : yellow : orange
| group names = Rana verde : Rana roja : Rana arbórea
| x legends = Senegal : Vietnam : Paraguay : Luxemburgo
}}


Transparent.png
Transparent.png
Transparent.png
Transparent.png
etiqueta 1
etiqueta 2
Transparent.png
Transparent.png
10
20
30
40
50
60
Senegal
Vietnam
Paraguay
Luxemburgo
  •   Rana verde
  •   Rana roja
  •   Rana arbórea

Diagramas con barras solapadas

A continuación, se muestra un ejemplo de diagrama con barras solapadas. Se utilizan también parámetros para fijar la altura («height») y la anchura («width») del diagrama y los parámetros «stack» (para apilar las barras) y «units suffix» (para indicar una unidad junto a los valores). Aquí las barras se muestran solapas en vez de yuxtapuestas como en el ejemplo anterior.

El gráfico muestra el consumo anual por persona de 3 tipos de fruta (3 grupos) en 4 países (4 valores del eje X). Como los valores se miden en kilogramos, se ha añadido el parámetro «units suffix» para que aparezca esta unidad junto a cada valor.

{{ #invoke:Diagrama | bar chart
| height = 250
| width = 400
| stack = 1
| group 1 = 40 : 50 : 60 : 20
| group 2 = 20 : 60 : 12 : 44
| group 3 = 55 : 14 : 33 : 5
| colors = green : yellow : orange
| group names = Manzanas : Plátanos : Naranjas
| units suffix = Kg
| x legends = Senegal : Vietnam : Paraguay : Luxemburgo
}}
25
50
75
100
125
150
Senegal
Vietnam
Paraguay
Luxemburgo
  •   Manzanas
  •   Plátanos
  •   Naranjas

Escalas específicas para cada grupo

Se pueden utilizar distintas escalas y unidades para los diferentes grupos de barras que componen el diagrama:

{{ #invoke:Diagrama | bar chart
| width = 800
| group 1 = 1500000 : 2500000 : 3500000
| group 2 = 200 : 5000 : 45000
| group 3 = 2000 : 5000 : 20000
| colors = red : blue : green
| group names = Personas : Automóviles : Precio medio del automóvil
| x legends = 1920 : 1965 : 2002
| tooltip 2 = : No existen datos fiables del número de automóviles en 1965. Se utiliza el valor aproximado de 5 000.
| units prefix = : : $
| scale per group = 1
}}

Obsérvese el dato "units prefix": como no necesitamos un prefijo en los dos primeros grupos, utilizamos los dos puntos sin valores entre ellos. También se podría haber usado la notación "::$" en vez de " : : $", con el mismo resultado.

Apréciese también el valor especial que tiene tooltip para la barra de «Automóviles» en la posición de 1965 en el eje X.


1 000 000
2 000 000
3 000 000
4 000 000
10 000
20 000
30 000
40 000
50 000
5000
10 000
15 000
20 000
1920
1965
2002
  •   Personas
  •   Automóviles
  •   Precio medio del automóvil
{{ #invoke:Diagrama | bar chart
| width = 800
| group 1 = 1500000 : 2500000 : 3500000
| group 2 = 200 : 5000 : 45000
| group 3 = 2000 : 5000 : 20000
| colors = red : blue : green
| group names = Personas : Automóviles : Precio medio del automóvil
| x legends = 1920 : 1965 : 2002
| tooltip 2 = : No existen datos fiables del número de automóviles en 1965. Se utiliza el valor aproximado de 5 000.
| units prefix = : : $
| scale per group = 1
}}

Obsérvese el dato "units prefix": como no necesitamos un prefijo en los dos primeros grupos, utilizamos los dos puntos sin valores entre ellos. También se podría haber usado la notación "::$" en vez de " : : $", con el mismo resultado.

Apréciese también el valor especial que tiene tooltip para la barra de «Automóviles» en la posición de 1965 en el eje X. De esta manera se pueden poner comentarios en las barras.


A continuación se muestra un ejemplo de diagrama con gran cantidad de grupos (para ilustrar cómo se comporta la plantilla cuando la leyenda tiene muchos elementos, distribuyéndolos en varias columnas):

25
50
75
100
125
150
1920
1930
1940
1950
1960
1970
1990
2000
2010
  •   Alabama
  •   Alaska
  •   Arizona
  •   Arkansas
  •   California
  •   Colorado
  •   Connecticut
  •   Delaware
  •   Florida
  •   Georgia
  •   Hawaii
  •   Idaho
  •   Illinois
  •   Indiana
  •   Iowa
  •   Kansas
  •   Kentucky
  •   Louisiana
  •   Maine
  •   Maryland
  •   Massachusetts


Si hay muchos valores, los datos del eje X se pueden separar utilizando una serie de de separadores (:) sin valores entre ellos. De esta manera, solo se muestran algunos valores del eje para no saturarlo:


{{ #invoke:Diagrama | bar chart
| group 1 = 1:2:3:4:5:6:7:8:9:10:11:12:13:14:15:16:17:18:19:20:21:22:23:24:25:26:27:28:29:30
:31:32:33:34:35:36:37:38:39:40:41:42:43:44:45:46:47:48:49:50:51:52:53:54:55:56:57:58:59
| units suffix = _Things
| group names = Some
| x legends = ::::1940::::::::::1950::::::::::1960::::::::::1970::::::::::1980::::::::::1990::::
}}
10
20
30
40
50
60
1940
1950
1960
1970
1980
1990

Véase también


Esta documentación está transcluida desde Módulo:Diagrama/doc.
Por favor, añade las categorías en la subpágina de documentación y los interwikis en Wikidata. Subpáginas de este módulo.
--<source lang=lua>
--[[
    keywords are used for languages: they are the names of the actual
    parameters of the template
]]

local keywords = {
    barChart = 'bar chart',
    pieChart = 'pie chart',
    width = 'width',
    height = 'height',
    stack = 'stack',
    colors = 'colors',
    group = 'group',
    xlegend = 'x legends',
    tooltip = 'tooltip',
    accumulateTooltip = 'tooltip value accumulation',
    links = 'links',
    defcolor = 'default color',
    scalePerGroup = 'scale per group',
    unitsPrefix = 'units prefix',
    unitsSuffix = 'units suffix',
    groupNames = 'group names',
    hideGroupLegends = 'hide group legends',
    slices = 'slices',
    slice = 'slice',
    radius = 'radius',
    percent = 'percent',
    -- agregados
    anchoEscala = 'ancho escala',
    altoLeyendas = 'alto leyendas',

} -- here is what you want to translate

local defColors = require "Module:Plotter/DefaultColors"
local hideGroupLegends

local function nulOrWhitespace( s )
    return not s or mw.text.trim( s ) == ''
end

local function createGroupList( tab, legends, cols )
    if #legends > 1 and not hideGroupLegends then
        table.insert( tab, mw.text.tag( 'div' ) )
        local list = {}
        local spanStyle = "padding:0 1em;background-color:%s;box-shadow:2px -1px 4px 0 silver;margin-right:1em;"
        for gi = 1, #legends do
            local span = mw.text.tag( 'span', { style = string.format( spanStyle, cols[gi] ) }, '&nbsp;' ) .. ' '..  legends[gi]
            table.insert( list, mw.text.tag( 'li', {}, span ) )
        end
        table.insert( tab,
            mw.text.tag( 'ul',
                {style="width:100%;list-style:none;-webkit-column-width:12em;-moz-column-width:12em;column-width:12em;"},
                table.concat( list, '\n' )
            )
        )
        table.insert( tab, '</div>' )
    end
end

function pieChart( frame )
    local res, imslices, args = {}, {}, frame.args
    local radius
    local values, colors, names, legends, links = {}, {}, {}, {}, {}
    local delimiter = args.delimiter or ':'
    local lang = mw.getContentLanguage()

    function getArg( s, def, subst, with )
        local result = args[keywords[s]] or def or ''
        if subst and with then result = mw.ustring.gsub( result, subst, with ) end
        return result
    end

    function analyzeParams()
        function addSlice( i, slice )
            local value, name, color, link = unpack( mw.text.split( slice, '%s*' .. delimiter .. '%s*' ) )
            values[i] = tonumber( lang:parseFormattedNumber( value ) )
                or error( string.format( 'Slice %d: "%s", first item("%s") could not be parsed as a number', i, value or '', sliceStr ) )
            colors[i] = not nulOrWhitespace( color ) and color or defColors[i * 2]
            names[i] = name or ''
            links[i] = link
        end
        
        radius = getArg( 'radius', 150 )
        hideGroupLegends = not nulOrWhitespace( args[keywords.hideGroupLegends] )
        local slicesStr = getArg( 'slices' )
        local prefix = getArg( 'unitsPrefix', '', '_', ' ' )
        local suffix = getArg( 'unitsSuffix', '', '_', ' ' )
        local percent = args[keywords.percent]
        local sum = 0
        local i, value = 0
        for slice in mw.ustring.gmatch( slicesStr or '', "%b()" ) do
            i = i + 1
            addSlice( i, mw.ustring.match( slice, '^%(%s*(.-)%s*%)$' ) )
        end
        
        for k, v in pairs(args) do
            local ind = mw.ustring.match( k, '^' .. keywords.slice .. '%s+(%d+)$' )
            if ind then addSlice( tonumber( ind ), v ) end
        end
        
        for _, val in ipairs( values ) do sum = sum + val end
        for i, value in ipairs( values ) do
            local addprec = percent and string.format( ' (%0.1f%%)', value / sum * 100 ) or ''
            legends[i] = mw.ustring.format( '%s: %s%s%s%s', names[i], prefix, lang:formatNum( value ), suffix, addprec )
            links[i] = mw.text.trim( links[i] or mw.ustring.format( '[[#noSuchAnchor|%s]]', legends[i] ) )
        end
    end

    function addRes( ... )
        for _, v in pairs( { ... } ) do
            table.insert( res, v )
        end
    end

    function createImageMap()
        addRes( '{{#tag:imagemap|', 'Image:Circle frame.svg{{!}}' .. ( radius * 2 ) .. 'px' )
        addRes( unpack( imslices ) )
        addRes( 'desc none', '}}' )
    end

    function drawSlice( i, q, start )
        local color = colors[i]
        local angle = start * 2 * math.pi
        local sin, cos = math.abs( math.sin( angle ) ), math.abs( math.cos( angle ) )
        local wsin, wcos = sin * radius, cos * radius
        local s1, s2, w1, w2, w3, w4, width, border
        local style
        if q == 1 then
            border = 'left'
            w1, w2, w3, w4 = 0, 0, wsin, wcos
            s1, s2 = 'bottom', 'left'
        elseif q == 2 then
            border = 'bottom'
            w1, w2, w3, w4 = 0, wcos, wsin, 0
            s1, s2 = 'bottom', 'right'
        elseif q == 3 then
            border = 'right'
            w1, w2, w3, w4 = wsin, wcos, 0, 0
            s1, s2 = 'top', 'right'
        else
            border = 'top'
            w1, w2, w3, w4 = wsin, 0, 0, wcos
            s1, s2 = 'top', 'left'
        end

        local style = string.format( 'position:absolute;%s:%spx;%s:%spx;width:%spx;height:%spx', s1, radius, s2, radius, radius, radius )
        if start <= ( q - 1 ) * 0.25 then
            style = string.format( '%s;border:0;background-color:%s', style, color )
        else
            style = string.format( '%s;border-width:%spx %spx %spx %spx;border-%s-color:%s', style, w1, w2, w3, w4, border, color )
        end
        addRes( mw.text.tag( 'div', { class = 'transborder', style = style }, '' ) )
    end

    function createSlices()
        function coordsOfAngle( angle )
            return ( 100 + math.floor( 100 * math.cos( angle ) ) ) .. ' ' .. ( 100 - math.floor( 100 * math.sin( angle ) ) )
        end

        local sum, start = 0, 0
        for _, value in ipairs( values ) do sum = sum + value end
        for i, value in ipairs(values) do
            local poly = { 'poly 100 100' }
            local startC, endC =  start / sum, ( start + value ) / sum
            local startQ, endQ = math.floor( startC * 4 + 1 ), math.floor( endC * 4 + 1 )
            for q = startQ, math.min( endQ, 4 ) do drawSlice( i, q, startC ) end
            for angle = startC * 2 * math.pi, endC * 2 * math.pi, 0.02 do
                table.insert( poly,  coordsOfAngle( angle ) )
            end
            table.insert( poly, coordsOfAngle( endC * 2 * math.pi ) .. ' 100 100 ' .. links[i] )
            table.insert( imslices, table.concat( poly, ' ' ) )
            start = start + values[i]
        end
    end

    analyzeParams()
    if #values == 0 then error( "no slices found - can't draw pie chart" ) end
    addRes( mw.text.tag( 'div', { style = string.format( "max-width:%spx", radius * 2 ) } ) )
    addRes( mw.text.tag( 'div', { style = string.format( 'position:relative;min-width:%spx;min-height:%spx;max-width:%spx;overflow:hidden;', radius * 2, radius * 2, radius * 2 ) } ) )
    createSlices()
    addRes( mw.text.tag( 'div', { style = string.format( 'position:absolute;min-width:%spx;min-height:%spx;overflow:hidden;', radius * 2, radius * 2 ) } ) )
    createImageMap()
    addRes( '</div>' ) -- close "position:relative" div that contains slices and imagemap.
    addRes( '</div>' ) -- close "position:relative" div that contains slices and imagemap.
    createGroupList( res, legends, colors ) -- legends
    addRes( '</div>' ) -- close containing div
    return frame:preprocess( table.concat( res, '\n' ) )
end


function barChart( frame )
    local res = {}
    local args = frame.args -- can be changed to frame:getParent().args
    local values, xlegends, colors, tooltips, yscales = {}, {}, {}, {} ,{}, {}, {}
    local groupNames, unitsSuffix, unitsPrefix, links = {}, {}, {}, {}
    local width, height, stack, delimiter = 500, 350, false, args.delimiter or ':'
    local chartWidth, chartHeight, defcolor, scalePerGroup, accumulateTooltip
    -- agregado
    local anchoEscala, altoLeyendas


    local numGroups, numValues
    local scaleWidth

    function validate()
        function asGroups( name, tab, toDuplicate, emptyOK )
            if #tab == 0 and not emptyOK then
                error( "must supply values for " .. keywords[name] )
            end
            if #tab == 1 and toDuplicate then
                for i = 2, numGroups do tab[i] = tab[1] end
            end
            if #tab > 0 and #tab ~= numGroups then
                error ( keywords[name] .. ' should contain the same number of items as the number of groups (' .. numGroups .. ')')
            end
        end

        -- do all sorts of validation here, so we can assume all params are good from now on.
        -- among other things, replace numerical values with mw.language:parseFormattedNumber() result


        chartHeight = height - (altoLeyendas or 80)
        numGroups = #values
        numValues = #values[1]
        defcolor = defcolor or 'blue'
        colors[1] = colors[1] or defcolor
        scaleWidth = scalePerGroup and (anchoEscala or 80) * numGroups or (anchoEscala or 100)
        chartWidth = width -scaleWidth
        asGroups( 'unitsPrefix', unitsPrefix, true, true )
        asGroups( 'unitsSuffix', unitsSuffix, true, true )
        asGroups( 'colors', colors, true, true )
        asGroups( 'groupNames', groupNames, false, false )
        if stack and scalePerGroup then
            error( string.format( 'Illegal settings: %s and %s are incompatible.', keyword.stack, keyword.scalePerGroup ) )
        end
        for gi = 2, numGroups do
            if #values[gi] ~= numValues then error( keywords.group .. " " .. gi .. " does not have same number of values as " .. keywords.group .. " 1" ) end
        end
        if #xlegends ~= numValues then error( 'Illegal number of ' .. keywords.xlegend .. '. Should be exatly ' .. numValues ) end
    end

    function extractParams()
        function testone( keyword, key, val, tab )
            i = keyword == key and 0 or key:match( keyword .. "%s+(%d+)" )
            if not i then return end
            i = tonumber( i ) or error("Expect numerical index for key " .. keyword .. " instead of '" .. key .. "'")
            if i > 0 then tab[i] = {} end
            for s in mw.text.gsplit( val, '%s*' .. delimiter .. '%s*' ) do
                table.insert( i == 0 and tab or tab[i], s )
            end
            return true
        end

        for k, v in pairs( args ) do
            if k == keywords.width then
                width = tonumber( v )
                if not width or width < 200 then
                    error( 'Illegal width value (must be a number, and at least 200): ' .. v )
                end
            elseif k == keywords.height then
                height = tonumber( v )
                if not height or height < 200 then
                    error( 'Illegal height value (must be a number, and at least 200): ' .. v )
                end
            elseif k == keywords.anchoEscala then
               anchoEscala = tonumber(v)
               if not anchoEscala or anchoEscala <= 0 then
                  error("el parámetro ‘" .. keywords.anchoEscala .. "’ debe ser positivo")
               end
            elseif k == keywords.altoLeyendas then
               altoLeyendas = tonumber(v)
               if not altoLeyendas or altoLeyendas <= 0 then
                  error("el parámetro ‘" .. keywords.altoLeyendas .. "’ debe ser positivo")
               end
            elseif k == keywords.stack then stack = true
            elseif k == keywords.scalePerGroup then scalePerGroup = true
            elseif k == keywords.defcolor then defcolor = v
            elseif k == keywords.accumulateTooltip then accumulateTooltip = not nulOrWhitespace( v )
            elseif k == keywords.hideGroupLegends then hideGroupLegends = not nulOrWhitespace( v )
            else
                for keyword, tab in pairs( {
                    group = values,
                    xlegend = xlegends,
                    colors = colors,
                    tooltip = tooltips,
                    unitsPrefix = unitsPrefix,
                    unitsSuffix = unitsSuffix,
                    groupNames = groupNames,
                    links = links,
                    } ) do
                        if testone( keywords[keyword], k, v, tab )
                            then break
                        end
                end
            end
        end
    end

    function roundup( x ) -- returns the next round number: eg., for 30 to 39.999 will return 40, for 3000 to 3999.99 wil return 4000. for 10 - 14.999 will return 15.
        local ordermag = 10 ^ math.floor( math.log10( x ) )
        local normalized = x /  ordermag
        local top = normalized >= 1.5 and ( math.floor( normalized + 1 ) ) or 1.5
        return ordermag * top, top, ordermag
    end

    function calcHeightLimits() -- if limits were passed by user, use them, otherwise calculate. for "stack" there's only one limet.
        if stack then
            local sums = {}
            for _, group in pairs( values ) do
                for i, val in ipairs( group ) do sums[i] = ( sums[i] or 0 ) + val end
            end
            local sum = math.max( unpack( sums ) )
            for i = 1, #values do yscales[i] = sum end
        else
            for i, group in ipairs( values ) do yscales[i] = math.max( unpack( group ) ) end
        end
        for i, scale in ipairs( yscales ) do yscales[i] = roundup( scale * 0.9999 ) end
        if not scalePerGroup then for i = 1, #values do yscales[i] = math.max( unpack( yscales ) ) end end
    end

    function tooltip( gi, i, val )
        if tooltips and tooltips[gi] and not nulOrWhitespace( tooltips[gi][i] ) then return tooltips[gi][i], true end
        local groupName = not nulOrWhitespace( groupNames[gi] ) and groupNames[gi] .. ': ' or ''
        local prefix = unitsPrefix[gi] or unitsPrefix[1] or ''
        local suffix = unitsSuffix[gi] or unitsSuffix[1] or ''
        return mw.ustring.gsub(groupName .. prefix .. mw.getContentLanguage():formatNum( tonumber( val ) or 0 ) .. suffix, '_', ' '), false
    end

    function calcHeights( gi, i, val )
        local barHeight = math.floor( val / yscales[gi] * chartHeight + 0.5 ) -- add half to make it "round" insstead of "trunc"
        local top, base = chartHeight - barHeight, 0
        if stack then
            local rawbase = 0
            for j = 1, gi - 1 do rawbase = rawbase + values[j][i] end -- sum the "i" value of all the groups below our group, gi.
            base = math.floor( chartHeight * rawbase / yscales[gi] ) -- normally, and especially if it's "stack", all the yscales must be equal.
        end
        return barHeight, top - base
    end

    function groupBounds( i )
        local setWidth = math.floor( chartWidth / numValues )
        local setOffset = ( i - 1 ) * setWidth
        return setOffset, setWidth
    end

    function calcx( gi, i )
        local setOffset, setWidth = groupBounds( i )
        if stack or numGroups == 1 then
            local barWidth = math.min( 38, math.floor( 0.8 * setWidth ) )
            return setOffset + (setWidth - barWidth) / 2, barWidth
        end
        setWidth = 0.85 * setWidth
        local barWidth = math.floor( 0.75 * setWidth / numGroups )
        local left = setOffset + math.floor( ( gi - 1 ) / numGroups * setWidth )
        return left, barWidth
    end

    function drawbar( gi, i, val, ttval )
        local color, tooltip, custom = colors[gi] or defcolor or 'blue', tooltip( gi, i, ttval or val )
        local left, barWidth = calcx( gi, i )
        local barHeight, top = calcHeights( gi, i, val )
        local style = string.format("position:absolute;left:%spx;top:%spx;height:%spx;min-width:%spx;max-width:%spx;background-color:%s;box-shadow:2px -1px 4px 0 silver;overflow:hidden;",
                        left, top, barHeight, barWidth, barWidth, color)
        local link = links[gi] and links[gi][i] or ''
        local img = not nulOrWhitespace( link ) and mw.ustring.format( '[[File:Transparent.png|1000px|link=%s|%s]]', link, custom and tooltip or '' ) or ''
        table.insert( res, mw.text.tag( 'div', { style = style, title = tooltip, }, img ) )
    end


    function drawYScale()
        function drawSingle( gi, color, width, single )
            local yscale = yscales[gi]
            local _, top, ordermag = roundup( yscale * 0.999 )
            local numnotches = top <= 1.5 and top * 4
                    or top < 4  and top * 2
                    or top
            local valStyleStr =
                single and 'position:absolute;height=20px;text-align:right;vertical-align:middle;width:%spx;top:%spx;padding:0 2px'
                or 'position:absolute;height=20px;text-align:right;vertical-align:middle;width:%spx;top:%spx;left:3px;background-color:%s;color:white;font-weight:bold;text-shadow:-1px -1px 0 #000,1px -1px 0 #000,-1px 1px 0 #000,1px 1px 0 #000;padding:0 2px'
            local notchStyleStr = 'position:absolute;height=1px;min-width:5px;top:%spx;left:%spx;border:1px solid %s;'
            for i = 1, numnotches do
                local val = i / numnotches * yscale
                local y = chartHeight - calcHeights( gi, 1, val )
                local div = mw.text.tag( 'div', { style = string.format( valStyleStr, width - 10, y - 10, color ) }, mw.getContentLanguage():formatNum( tonumber( val ) or 0 ) )
                table.insert( res, div )
                div = mw.text.tag( 'div', { style = string.format( notchStyleStr, y, width - 4, color ) }, '' )
                table.insert( res, div )
            end
        end

        if scalePerGroup then
            local colWidth = 80
            local colStyle = "position:absolute;height:%spx;min-width:%spx;left:%spx;border-right:1px solid %s;color:%s"
            for gi = 1, numGroups do
                local left = ( gi - 1 ) * colWidth
                local color = colors[gi] or defcolor
                table.insert( res, mw.text.tag( 'div', { style = string.format( colStyle, chartHeight, colWidth, left, color, color ) } ) )
                drawSingle( gi, color, colWidth )
                table.insert( res, '</div>' )
            end
        else
            drawSingle( 1, 'black', scaleWidth, true )
        end
    end

    function drawXlegends()
        local setOffset, setWidth
        local legendDivStyleFormat = "position:absolute;left:%spx;top:10px;min-width:%spx;max-width:%spx;text-align:center;veritical-align:top;"
        local tickDivstyleFormat = "position:absolute;left:%spx;height:10px;width:1px;border-left:1px solid black;"
        for i = 1, numValues do
            if not nulOrWhitespace( xlegends[i] ) then
                setOffset, setWidth = groupBounds( i )
                -- setWidth = 0.85 * setWidth
                table.insert( res, mw.text.tag( 'div', { style = string.format( legendDivStyleFormat, setOffset + 5, setWidth - 10, setWidth - 10 ) }, xlegends[i] or '' ) )
                table.insert( res, mw.text.tag( 'div', { style = string.format( tickDivstyleFormat, setOffset + setWidth / 2 ) }, '' ) )
            end
        end
    end

    function drawChart()
        table.insert( res, mw.text.tag( 'div', { style = string.format( 'max-width:%spx;', width ) } ) )
        table.insert( res, mw.text.tag( 'div', { style = string.format("position:relative;min-height:%spx;min-width:%spx;max-width:%spx;", height, width, width ) } ) )

        table.insert( res, mw.text.tag( 'div', { style = string.format("float:right;position:relative;min-height:%spx;min-width:%spx;max-width:%spx;border-left:1px black solid;border-bottom:1px black solid;", chartHeight, chartWidth, chartWidth ) } ) )
        local acum = stack and accumulateTooltip and {}
        for gi, group in pairs( values ) do
            for i, val in ipairs( group ) do
                if acum then acum[i] = ( acum[i] or 0 ) + val end
                drawbar( gi, i, val, acum and acum[i] )
            end
        end
        table.insert( res, '</div>' )
        table.insert( res, mw.text.tag( 'div', { style = string.format("position:absolute;height:%spx;min-width:%spx;max-width:%spx;", chartHeight, scaleWidth, scaleWidth, scaleWidth ) } ) )
        drawYScale()
        table.insert( res, '</div>' )
        table.insert( res, mw.text.tag( 'div', { style = string.format( "position:absolute;top:%spx;left:%spx;width:%spx;", chartHeight, scaleWidth, chartWidth ) } ) )
        drawXlegends()
        table.insert( res, '</div>' )
        table.insert( res, '</div>' )
        createGroupList( res, groupNames, colors )
        table.insert( res, '</div>' )
    end

    extractParams()
    validate()
    calcHeightLimits()
    drawChart()
    return table.concat( res, "\n" )
end

return {
    ['bar-chart'] = barChart,
    [keywords.barChart] = barChart,
    [keywords.pieChart] = pieChart,
}
--</source>