アットウィキロゴ

000+++9

google.charts.load('current', {'packages': ['corechart']});
google.charts.setOnLoadCallback(sample);
 
var year=new Array(); 
var artist=new Array(); 
var point=new Array(); 
var number;
 
var v=new Array(); 
var m2=new Array(); 
var week=new Array(); 
var dic=new Array(); 
var delta=new Array(); 
 
function sample(){
 
 
 
 
        var query = new google.visualization.Query(
            'https://docs.google.com/spreadsheets/d/1AG-pZBqFB6M6feahZYisQkmBj9xFdqqFkdynLzdqMfQ/edit?usp=sharing');
        query.send(draw);
      }
      function draw(r) {
 
 
        if (r.isError()) {
          alert('Error in query');
        }
 
        var tc = r.getDataTable();
 
number=tc.getNumberOfRows();
 
for(s=1;s<number+1;s++){
year[s]=tc.getValue(s-1, 0);
artist[s]=tc.getValue(s-1, 1);
point[s]=tc.getValue(s-1, 2)
}
 
 
 dicnumber=0;
 for(s=1;s<number+1;s++){
 h=0;
 for(sx=1;sx<dicnumber+1;sx++){
 if(artist[s]==dic[sx])h=100;
 }
 if(h<50)dicnumber=dicnumber+1;
 if(h<50)dic[dicnumber]=artist[s];
 } 
 
 
 
for(sx=1;sx<dicnumber+1;sx++){
 delta[sx]=0;
 }
 
for(s=1;s<number+1;s++){
 for(sx=1;sx<dicnumber+1;sx++){
 if(artist[s]==dic[sx])delta[sx]=delta[sx]+point[s];
 }
 } 
 
 
for(s=1;s<dicnumber+1;s++){
if(delta[s]>49)$('#sel').append($('<option>').html(dic[s]).val(dic[s]));
}
 
$("select").change(function () {
 
   var abc = $("#sel").val();
 
 play(abc);
 
});
 
 
 
 
 
}
 
 
function play(aaa){
 
for(s=1;s<100;s++){
v[s]=0;
}
 
for(s=1;s<number+1;s++){
sx=year[s]-1980;    
if(artist[s]==aaa)v[sx]=point[s];
}
 
var x=new Array();
 
 for(s=0;s<37;s++){
 x[s]=new Array();    
 }
 
 
 x[0][0]="蟷エ";
 x[0][1]=aaa;
 for(s=1;s<37;s++){
 x[s][0]=""+(s+1980)+"蟷エ";    
 x[s][1]=1*v[s];   
 }
 
 
var data =google.visualization.arrayToDataTable(x);
var op = {title: '繝励Λ繧、繝�繧ソ繧、繝�'};
 
var chart = new google.visualization.LineChart(document.getElementById('memo'));
chart.draw(data, op);
 
 
 
 
 
}
最終更新:2017年08月03日 15:30