Sparkline 

O estilo Sparkline produz gráficos na escala de texto, constituídos de projeções de dados simples, com uma relação de aspecto larga, excluindo eixos e rótulos.

mostre o input completo de Wolfram Languageoculte o input

In[1]:=

X companies = {"MMM", "AXP", "T", "BA", "CAT", "CVX", "CSCO", "KO", "DD", "XOM", "GE", "GS", "HD", "INTC", "IBM", "JNJ", "JPM", "MCD", "MRK", "MSFT", "NKE", "PFE", "PG", "TRV", "UNH", "UTX", "VZ", "V", "WMT", "DIS"}; panel[data_] := Style[Panel@ Grid[data, Frame -> All, FrameStyle -> White, Alignment -> {{Right, Left, Right}}, Background -> {Automatic, {{LightGray, White}}}]]

In[2]:=

X data = Table[{ticker, FinancialData[ticker, "Company"], FinancialData[ticker], d = FinancialData[ticker, {0, -1, 0} + DateList[][[1 ;; 3]]]; DateListPlot[d, PlotTheme -> "Sparkline", PlotStyle -> If[d[[1, 2]] > d[[-1, 2]], Red, Hue[.3, 1, .7]]] }, {ticker, companies}]; panel[data]

Out[2]=