t = time1690;
d = data1690;

names = { ...
'Angels', ...
'Astros', ...
'Athletics', ...
'Blue Jays', ...
'Braves', ...
'Brewers', ...
'Cardinals', ...
'Cubs', ...
'Diamondbacks', ...
'Dodgers', ...
'Giants', ...
'Indians', ...
'Mariners', ...
'Marlins', ...
'Mets', ...
'Nationals', ...
'Orioles', ...
'Padres', ...
'Phillies', ...
'Pirates', ...
'Rangers', ...
'Rays', ...
'Red Sox', ...
'Reds', ...
'Rockies', ...
'Royals', ...
'Tigers', ...
'Twins', ...
'White Sox', ...
'Yankees'};

nlEast = [16 14 15 5 19];
nlCentral = [24 7 20 2 6 8];
nlWest = [10 11 9 25 18];
nlAll = [nlEast nlCentral nlWest];
allTeams = 1:30;
alEast = [4 17 22 23 30];
alCentral = [12 26 27 28 29];
alWest = [1 3 13 21];
alAll = [alEast alCentral alWest];

indexList = alAll;

plot(t,d(:,indexList))
for i = indexList
  text(t(end),d(end,i),[' ' names{i}]);
end
hold off

datetick
ylabel('Win Ratio (out of 1000)')