Skip to main content

graphics - BarChart that lines up with dates in DateListPlot


I am trying to create a chart similar to the view offered by TradingChart, but with custom data not relating to finance.


allData = {{"2014-03-31", 91.0657, 91.5555, Null, 79.4144, 90.0735, 86.9567, 87.1578, 79},
           {"2014-04-06", Null, 90.9839, 85.0053, 79.2423, 87.7565, 85.0126, Null, 108},
           {"2014-04-22", 90.9086, 90.9959, Null, 78.9365, 87.5949, 86.1197, Null, 93},
           {"2014-04-28", 92.3299, 92.068, Null, 79.7057, 90.187, 86.4088, Null, 98}}


I am using the first column as a date marker, the last column as a volume counter, and the remaining columns as data for the line graph. I should be clear that the size of these data sets are flexible. There may be more or fewer dates and there may be more or fewer columns for lines. I clean up the data a little then place it into a DateListPlot (on the actual plots I have included a legend and better markers, but that is not so important here):


temp = Drop[allData, None, {-1}];

lineData = {};
For[i = 2, i < Length @ temp[[1]], i++,
    AppendTo[lineData, Transpose[{temp[[;; , 1]], temp[[;; , i]]}]]
];

DateListPlot[lineData, 
    Joined -> True,

    PlotStyle -> Thick, 
    ImageSize -> Scaled[0.75], 
    PlotMarkers -> Automatic ,
    PlotRange -> {Automatic, {70, 100}}
]

Here is the output:


Graph


As you can see the data is sporadic. Some dates have no entries at all, some columns have Null values. It seems Mma is having some trouble with the sparse data. Ideally the lines would pass straight through to the next non-null entry, so some help with doing that would be appreciated.


But the main question I have is with regards to putting a bar chart underneath this that matches up with the dates and uses the last column of allData as the volume. It is not clear if there is any way to do this with Histogram or with BarChart and I am not so experienced with Mma to know if I have to do this with Graphics primitives.



Eventually I would like to add some interactivity, which is what drew me to the TradingChart:


CountBars



Answer



There is a very quick way to arrive at this. If you are new to Mathematica then maybe this is a starting point.


lineData = {allData[[All, {1, 2}]], allData[[All, {1, 3}]], 
  allData[[All, {1, 4}]], allData[[All, {1, 5}]], 
  allData[[All, {1, 6}]], allData[[All, {1, 7}]]}

volume = allData[[All, {1, -1}]]


p1 = DateListPlot[lineData, Joined -> True, PlotStyle -> Thick, 
  ImageSize -> Scaled[0.75], PlotMarkers -> Automatic, 
  PlotRange -> {Automatic, {70, 100}}];

p2 = DateListPlot[volume, AspectRatio -> 0.15, Joined -> False, 
  Filling -> 0, 
  FillingStyle -> 
   Directive[CapForm["Butt"], AbsoluteThickness[20], Blue], 
  PlotStyle -> None, ImageSize -> Scaled[0.75], PlotMarkers -> None, 
  PlotRange -> {Automatic, {0,Automatic}}];


Column[{p1, p2}]

enter image description here


There is a lot more you can do with this. For example to mimic the trading chart you may want to remove frame ticks on the bottom of p2 and add GridLines -> Automatic, GridLinesStyle -> Dotted to both plots. For regular use you will probably need to specify identical ImagePaddingin each plot to ensure that they line up. But this is a easy way to implement "on the run".


Comments

Post a Comment

Popular posts from this blog

mathematical optimization - Minimizing using indices, error: Part::pkspec1: The expression cannot be used as a part specification

I want to use Minimize where the variables to minimize are indices pointing into an array. Here a MWE that hopefully shows what my problem is. vars = u@# & /@ Range[3]; cons = Flatten@ { Table[(u[j] != #) & /@ vars[[j + 1 ;; -1]], {j, 1, 3 - 1}], 1 vec1 = {1, 2, 3}; vec2 = {1, 2, 3}; Minimize[{Total@((vec1[[#]] - vec2[[u[#]]])^2 & /@ Range[1, 3]), cons}, vars, Integers] The error I get: Part::pkspec1: The expression u[1] cannot be used as a part specification. >> Answer Ok, it seems that one can get around Mathematica trying to evaluate vec2[[u[1]]] too early by using the function Indexed[vec2,u[1]] . The working MWE would then look like the following: vars = u@# & /@ Range[3]; cons = Flatten@{ Table[(u[j] != #) & /@ vars[[j + 1 ;; -1]], {j, 1, 3 - 1}], 1 vec1 = {1, 2, 3}; vec2 = {1, 2, 3}; NMinimize[ {Total@((vec1[[#]] - Indexed[vec2, u[#]])^2 & /@ R...
Post a Comment
Read more

functions - Get leading series expansion term?

Given a function f[x] , I would like to have a function leadingSeries that returns just the leading term in the series around x=0 . For example: leadingSeries[(1/x + 2)/(4 + 1/x^2 + x)] x and leadingSeries[(1/x + 2 + (1 - 1/x^3)/4)/(4 + x)] -(1/(16 x^3)) Is there such a function in Mathematica? Or maybe one can implement it efficiently? EDIT I finally went with the following implementation, based on Carl Woll 's answer: lds[ex_,x_]:=( (ex/.x->(x+O[x]^2))/.SeriesData[U_,Z_,L_List,Mi_,Ma_,De_]:>SeriesData[U,Z,{L[[1]]},Mi,Mi+1,De]//Quiet//Normal) The advantage is, that this one also properly works with functions whose leading term is a constant: lds[Exp[x],x] 1 Answer Update 1 Updated to eliminate SeriesData and to not return additional terms Perhaps you could use: leadingSeries[expr_, x_] := Normal[expr /. x->(x+O[x]^2) /. a_List :> Take[a, 1]] Then for your examples: leadingSeries[(1/x + 2)/(4 + 1/x^2 + x), x] leadingSeries[Exp[x], x] leadingSeries[(1/x + 2 + (1 - 1/x...
Post a Comment
Read more

What is and isn't a valid variable specification for Manipulate?

I have an expression whose terms have arguments (representing subscripts), like this: myExpr = A[0] + V[1,T] I would like to put it inside a Manipulate to see its value as I move around the parameters. (The goal is eventually to plot it wrt one of the variables inside.) However, Mathematica complains when I set V[1,T] as a manipulated variable: Manipulate[Evaluate[myExpr], {A[0], 0, 1}, {V[1, T], 0, 1}] (*Manipulate::vsform: Manipulate argument {V[1,T],0,1} does not have the correct form for a variable specification. >> *) As a workaround, if I get rid of the symbol T inside the argument, it works fine: Manipulate[ Evaluate[myExpr /. T -> 15], {A[0], 0, 1}, {V[1, 15], 0, 1}] Why this behavior? Can anyone point me to the documentation that says what counts as a valid variable? And is there a way to get Manpiulate to accept an expression with a symbolic argument as a variable? Investigations I've done so far: I tried using variableQ from this answer , but it says V[1...
Post a Comment
Read more