Message Boards

WOLFRAM COMMUNITY

3523 Views

3 Replies

1 Total Likes

View groups...

Follow this post

Share this post:

GROUPS:

Mathematica Graphics and Visualization Wolfram Language

How to integrate DateLispPlot and TimeLinePlot correctly?

Tsai Ming-Chou

Tsai Ming-Chou, National Defense Medical Center

Posted 5 years ago

I need to integrate DateLispPlot with TimeLinePlotLinePlot. Try to use Show instruction, but although the graphs overlap, the time axis (X-axis), GridLines and DateTicks cannot be properly aligned. Is there a correct way? ClearAll["Global`*"] ts = DateListPlot[ CountryData[#, {"Population", {1900, 2000}}] &@"United States", GridLines -> Automatic]; ww = TimelinePlot[{Entity["HistoricalEvent", "WorldWar1"], Entity["HistoricalEvent", "WorldWar2"], Entity["HistoricalEvent", "VietnamWar"], Entity["HistoricalEvent", "KoreanWarBegins"]}, GridLines -> Automatic]; Show[{ts, ww}]

I need to integrate DateLispPlot with TimeLinePlotLinePlot. Try to use Show instruction, but although the graphs overlap, the time axis (X-axis), GridLines and DateTicks cannot be properly aligned. Is there a correct way?

ClearAll["Global`*"]
ts = DateListPlot[
   CountryData[#, {"Population", {1900, 2000}}] &@"United States", 
   GridLines -> Automatic];
ww = TimelinePlot[{Entity["HistoricalEvent", "WorldWar1"], 
    Entity["HistoricalEvent", "WorldWar2"], 
    Entity["HistoricalEvent", "VietnamWar"], 
    Entity["HistoricalEvent", "KoreanWarBegins"]}, 
   GridLines -> Automatic];
Show[{ts, ww}]

enter image description here

POSTED BY: Tsai Ming-Chou

3 Replies

Sort By:

Neil Singer

Neil Singer, AC Kinetics, Inc.

Posted 5 years ago

You just need to adjust your spacings because when you combine the plots, it uses the scaling from the y axis of the population plot: ts = DateListPlot[ CountryData[#, {"Population", {1900, 2000}}] &@"United States", GridLines -> Automatic]; ww = TimelinePlot[{Entity["HistoricalEvent", "WorldWar1"], Entity["HistoricalEvent", "WorldWar2"], Entity["HistoricalEvent", "VietnamWar"], Entity["HistoricalEvent", "KoreanWarBegins"]}, GridLines -> Automatic, Spacings -> {2*^7}]; Show[ts, ww, ImageSize -> Large] to get Regards, Neil

You just need to adjust your spacings because when you combine the plots, it uses the scaling from the y axis of the population plot:

ts = DateListPlot[
   CountryData[#, {"Population", {1900, 2000}}] &@"United States", 
   GridLines -> Automatic];
ww = TimelinePlot[{Entity["HistoricalEvent", "WorldWar1"], 
    Entity["HistoricalEvent", "WorldWar2"], 
    Entity["HistoricalEvent", "VietnamWar"], 
    Entity["HistoricalEvent", "KoreanWarBegins"]}, 
   GridLines -> Automatic, Spacings -> {2*^7}];
Show[ts, ww, ImageSize -> Large]

to get

enter image description here