Reference:Country
From Metabolomics.JP
(Difference between revisions)
m |
|||
(13 intermediate revisions by one user not shown) | |||
Line 1: | Line 1: | ||
− | {{#def:countryNames|{{#SearchTitle:Country/ | + | <!---この内容は、将来的に著者によって多く書き換えられることを想定して、意図的にReference namespaceに置かれています。Index namespaceは主に自動的に作成されるページを置きます。---> |
− | + | {{#def:countryNames|{{#SearchTitle:Country/.*|Reference}}}} | |
− | + | {{#def:countryStat|{{#repeat:List_Country/CountAuthor|1|{{#var:countryNames}}}}}} | |
+ | <table> | ||
+ | <th colspan=2>Top 10 nationality of authors</th> | ||
+ | <tr><td> | ||
+ | {{#repeat:List_Country/rank|1| | ||
{{#lua: | {{#lua: | ||
local list = {}; | local list = {}; | ||
local hash = {}; | local hash = {}; | ||
− | for | + | local count = {}; |
− | num | + | local name, num; |
+ | for num, name in stdin:gmatch("(%d+):([%a/_]+)") do | ||
+ | num = tonumber(num); | ||
table.insert(list, num); | table.insert(list, num); | ||
if (hash[num] == null) then | if (hash[num] == null) then | ||
− | hash[num] = name; | + | hash[num] = name; count[num] = 1; |
else | else | ||
− | hash[num] = hash[num] .. "," .. name; | + | hash[num] = hash[num] .. ", " .. name; |
+ | count[num] = count[num] + 1; | ||
end | end | ||
end | end | ||
− | + | table.sort(list); | |
− | + | local i=0; | |
+ | local output = ""; | ||
+ | while(i < 10) do | ||
+ | num = table.remove(list); | ||
+ | if (num == null) then break; end | ||
+ | name = hash[num]; | ||
+ | i = i + count[num]; | ||
+ | output = output .. string.sub(name,9) .. " (" .. num ..");"; | ||
end | end | ||
− | + | print(output); | |
− | }} | + | |{{#var:countryStat}} |
+ | }}|;}} | ||
+ | </td> | ||
+ | <td> | ||
+ | {{#graph:pie|size=350x200;title=;legend=0.0x0.0;label=; | ||
+ | {{#lua: | ||
+ | local output = ""; | ||
+ | local count=0; | ||
+ | for word in stdin:gmatch("[%d%a/_:]+") do | ||
+ | num, name = string.match(word,"(%d+):([%a/_]+)"); | ||
+ | num = tonumber(num); | ||
+ | name = string.sub(name, 9); | ||
+ | if (num > 170) then | ||
+ | output = output .. name .. "=" .. num .. ";"; | ||
+ | else | ||
+ | count = count + num; | ||
+ | end | ||
+ | end | ||
+ | output = output .. "others=" .. count .. ";"; | ||
+ | print(output); | ||
+ | |{{#var:countryStat}} | ||
+ | }} }} | ||
+ | </td> | ||
+ | </tr> | ||
+ | </table> | ||
+ | ==Choose Your Country== | ||
+ | <small>(This list is better viewed by FireFox than by Internet Explorer.)</small> | ||
<div style="column-count:3; -moz-column-count:3;"> | <div style="column-count:3; -moz-column-count:3;"> | ||
− | {{#repeat:List_Country|1|{{#var:countryNames}}}} | + | {{#repeat:List_Country|1| {{#var:countryNames}} }} |
</div> | </div> |
Latest revision as of 22:00, 6 October 2008
Top 10 nationality of authors | |
---|---|
|
[edit] Choose Your Country
(This list is better viewed by FireFox than by Internet Explorer.)
- Algerie
- Argentina
- Australia
- Austria
- Bangladesh
- Belgium
- Bolivia
- Botswana
- Brazil
- Bulgaria
- Burkina_Faso
- Cambodia
- Cameroon
- Canada
- Chile
- China
- Colombia
- Congo
- Costa_Rica
- Czechoslovakia
- Denmark
- Egypt
- El_Salvador
- Ethiopia
- Finland
- France
- Georgia
- Germany
- Greece
- Guyana
- Hungary
- India
- Indonesia
- Iran
- Iraq
- Ireland
- Israel
- Italy
- Jamaica
- Japan
- Jordan
- Kenya
- Korea
- Lithuania
- Madagascar
- Malaysia
- Mexico
- Mongolia
- Morocco
- New_Zealand
- Nigeria
- Northern_Ireland
- Norway
- Pakistan
- Panama
- Papua_New_Guinea
- Paraguay
- Philippines
- Poland
- Portugal
- Romania
- Russia
- Saudi_Arabia
- Serbia
- Singapore
- Somalia
- South_Africa
- Spain
- Sri_Lanka
- Sudan
- Sultanate_of_Oman
- Sweden
- Switzerland
- Taiwan
- Tanzania
- Thailand
- The_Netherlands
- Tunisia
- Turkey
- UAR
- UK
- USA
- Uganda
- Ukraine
- Uruguay
- Uzbekistan
- Venezuela
- Viet_Nam
- Yugoslavia
- Zimbabwe