Hi Sandu,

Maybe this will help !

JanOnly =
  {{{2014, 1, 1}, 58}, {{2014, 1, 2}, 29}, {{2014, 1, 3}, 
    67}, {{2014, 1, 4}, 31}, {{2014, 1, 5}, 72}, {{2014, 1, 6}, 
    40}, {{2014, 1, 7}, 25}, {{2014, 1, 8}, 70}, {{2014, 1, 9}, 
    31}, {{2014, 1, 10}, 14}, {{2014, 1, 11}, 96}, {{2014, 1, 12}, 
    44}, {{2014, 1, 13}, 75}, {{2014, 1, 14}, 75}, {{2014, 1, 15}, 
    42}, {{2014, 1, 16}, 59}, {{2014, 1, 17}, 80}, {{2014, 1, 18}, 
    58}, {{2014, 1, 19}, 7}, {{2014, 1, 20}, 70}, {{2014, 1, 21}, 
    55}, {{2014, 1, 22}, 23}, {{2014, 1, 23}, 73}, {{2014, 1, 24}, 
    78}, {{2014, 1, 25}, 20}, {{2014, 1, 26}, 29}, {{2014, 1, 27}, 
    64}, {{2014, 1, 28}, 34}, {{2014, 1, 29}, 71}, {{2014, 1, 30}, 
    12}, {{2014, 1, 31}, 70}};

DateListPlot[JanOnly
 , FrameTicks -> {Automatic, Range[0, 100, 10]}
 , InterpolationOrder -> 0]

Good luck,........Jos

Attachments:

But, that is not a DateListPlot, Jos. After some time spent searching though my notebooks today, I found this function, which apparently I have used before ( not written by me, but I had to correct it a bit - the second vertical axis did not display the values):

TwoAxisDateListPlot[f_List, g_List, opts : OptionsPattern[]] := 
 Module[{p1, p2, fm, fM, gm, gM, old, new, newg},
  p1 = DateListPlot[f, Axes -> True, Frame -> False, 
    PlotRange -> Automatic];
  p2 = DateListPlot[g, Axes -> True, Frame -> False, 
    PlotRange -> Automatic];
  {fm, fM} = AbsoluteOptions[p1, PlotRange][[1, 2, 2]];
  {gm, gM} = AbsoluteOptions[p2, PlotRange][[1, 2, 2]];
  old = AbsoluteOptions[p2, Ticks][[1, 2, 2]];
  new = Flatten[{Rescale[First[#1], {gm, gM}, {fm, fM}], Rest[#1]}, 
      1] & /@ old;
  newg = {#[[1]], Rescale[#[[2]], {gm, gM}, {fm, fM}]} & /@ g;
  DateListPlot[{f, newg}, Axes -> False, Frame -> True, 
   FrameTicks -> {{Automatic, new}, {Automatic, Automatic}}, 
   PlotRange -> {fm, fM}, opts]]

Which if applied to some weather data

{T, W} = WeatherData[
"Copenhagen", #, {{2015, 12, 24}, 
DateList[]}] & /@ {"Temperature", "WindSpeed"};

TwoAxisDateListPlot[{T["Dates"], 
T["Path"][[All, 2, 1]]}\[Transpose], {W["Dates"], 
W["Path"][[All, 2, 1]] 10/36}\[Transpose], 
PlotLegends -> {"Temperature", "WindSpeed"}, 
FrameLabel -> {None, "\[Degree]C", None, "m/s"}, 
FrameStyle -> {Automatic, RGBColor[0.368417`, 0.506779`, 0.709798`], 
White, RGBColor[0.880722`, 0.611041`, 0.142051`]}, 
PlotLabel -> "Copenhagen Weather since Christmas"]

Outputs:

Hi Sandu,

I am sorry, the only option I know for 'DateListPlot' is 'Overplotting'.......Jos

Just for fun I thought I would show how one would do the Sandu Ursu example in Presentations. I have to admit this did take me awhile because I don't do much downloading of curated data nor do I make many data plots. Presentations works with graphics primitives and it is much easier to combine them and also to manipulate the primitives. For example, here I decided to separate the two sets of data by moving the Windspeed up by 10 units using a form of the Translate routine. Presentations also has CustomTicks and CustomDateTicks routines so I could obtain a more precise labeling of the dates with the endpoints labeled and I could adjust the right and left ticks to match the range of the two data sets. Also it was easy to label the two data sets directly with Text statements and eliminate a legend.

First we have to import the data and extract the relevant parts.

{T, W} = WeatherData[
     "Copenhagen", #, {{2016, 1, 1}, {2016, 1, 
       20}}] & /@ {"Temperature", "WindSpeed"};
temperatureData = Extract[#, {{1}, {2, 1}}] & /@ T["Path"];
windspeedData = Extract[#, {{1}, {2, 1}}] & /@ W["Path"];

Then we can compose the graphic.

leftTicks = CustomTicks[Identity, {-10, 10, 5, 5}];
rightTicks = CustomTicks[# + 10 &, {0, 25, 5, 5}];
dateTicks = 
  CustomDateTicks[{{2016, 1, 1}, {2016, 1, 22}, {5, "Day"}, 5}, 
   DateString[#, {"DayShort", " ", "MonthNameShort"}] &];

Draw2D[
 {DateListDraw[temperatureData,
   Joined -> True, PlotStyle -> Blue],
  Blue, Text["Temperature \[Degree]C", {3.6611*^9, -9}],
  DateListDraw[windspeedData,
    Joined -> True, PlotStyle -> Orange] // TranslateOp[{0, 10}],
  Orange, Text["Windspeed Km/h", {3.6617*^9, 30}]},

 AspectRatio -> 1/3,
 PlotRange -> {{AbsoluteTime[{2015, 12, 31, 12}], 
    AbsoluteTime[{2016, 1, 21, 12}]}, {-15, 50}},
 Frame -> True, 
 FrameLabel -> {{"Temperature", "Windspeed"}, {"Date", None}},
 FrameTicks -> {{leftTicks, rightTicks}, {dateTicks, Automatic}},
 BaseStyle -> {FontSize -> 12, Bold},
 ImageSize -> 700
 ]