如何绘制双纵轴坐标图形?

jimogsh

现在需要作出这样一张图，如附件
数据共用一个横轴，但纵轴不同。不能直接让某一组数据直接乘一个常数以画到一起。
麻烦大家看一下。本版有过关于双坐标轴的讨论，但好像跟这个情况都不太一样，故再此一问。

guocong89

1# jimogsh
参考这个

1. Plot[{Sin[x], Cos[x]}, {x, -1, 1},
   
2. Frame -> {{True, True}, {True, False}},
   
3. FrameTicks -> {{Automatic, {{-0.5, 5}, {0, 10}, {0.5,
   
4.       15}}}, {Automatic, None}},
   
5. FrameLabel -> {{"Left", "Right"}, {None, None}}]

复制代码

jimogsh

2# guocong89
不错，我看看去。谢谢了

guocong89

3# jimogsh
你应该今年毕业了吧,接下来干啥呢

jimogsh

4# guocong89
看图啊，我就分析树木年轮呢。。保研了
你说的那还是以左边的轴的画的吧，右边的轴是手动放上去的，那怎么对的准啊？我这个数据是散点的，右边的轴不好对啊。

guocong89

5# jimogsh
右边那个建了一个映射关系，这个确实得慢慢调调

TBE_Legend

origin 做这个要更方便吧

sunt05

试试这个～
可以参考这个帖子：
https://groups.google.com/d/msg/comp.soft-sys.math.mathematica/CKE9Ghn43x8/F1_JnIbCYjsJ

1. Clear[TwoAxisDateListPlot];
   
2. 
   
3. TwoAxisDateListPlot[f_List, g_List, opts : OptionsPattern[]] :=
   
4. Module[{p1, p2, fm, fM, gm, gM, old, new, newg},
   
5.   p1 = DateListPlot[f, Axes -> True, Frame -> False,
   
6.     PlotRange -> Automatic];
   
7.   p2 = DateListPlot[g, Axes -> True, Frame -> False,
   
8.     PlotRange -> Automatic];
   
9.   {fm, fM} = AbsoluteOptions[p1, PlotRange][[1, 2, 2]];
   
10.   {gm, gM} = AbsoluteOptions[p2, PlotRange][[1, 2, 2]];
    
11.   old = AbsoluteOptions[p2, Ticks][[1, 2, 2]];
    
12.   new = Flatten[{Rescale[First[#1], {gm, gM}, {fm, fM}], Rest[#1]},
    
13.       1] & /@ old;
    
14.   newg = {#[[1]], Rescale[#[[2]], {gm, gM}, {fm, fM}]} & /@ g;
    
15.   DateListPlot[{f, newg}, Axes -> False, Frame -> True,
    
16.    FrameTicks -> {Automatic, Automatic, None, new},
    
17.    PlotRange -> {fm, fM}, opts]]
    
18. 
    
19. Clear[TwoAxisReverseDateListPlot];
    
20. 
    
21. TwoAxisReverseDateListPlot[f_List, g_List, opts : OptionsPattern[]] :=
    
22.   Module[{p1, p2, fm, fM, gm, gM, old, new, newg},
    
23.   p1 = DateListPlot[f, Axes -> True, Frame -> False,
    
24.     PlotRange -> Automatic];
    
25.   p2 = DateListPlot[g, Axes -> True, Frame -> False,
    
26.     PlotRange -> Automatic];
    
27.   {fm, fM} = AbsoluteOptions[p1, PlotRange][[1, 2, 2]];
    
28.   {gm, gM} = AbsoluteOptions[p2, PlotRange][[1, 2, 2]];
    
29.   old = AbsoluteOptions[p2, Ticks][[1, 2, 2]];
    
30.   new = Flatten[{fM + fm - Rescale[First[#1], {gm, gM}, {fm, fM}],
    
31.        Rest[#1]}, 1] & /@ old;
    
32.   newg = {#[[1]], fM + fm - Rescale[#[[2]], {gm, gM}, {fm, fM}]} & /@
    
33.     g;
    
34.   DateListPlot[{f, newg}, Axes -> False, Frame -> True,
    
35.    FrameTicks -> {Automatic, Automatic, None, new},
    
36.    PlotRange -> {fm, fM}, opts]]
    
37. 
    
38. TwoAxisReverseDateListPlot[f_List, g_List, r_,
    
39.   opts : OptionsPattern[]] :=
    
40. Module[{p1, p2, gg, pg2, m, M, fm, fM, gm, gM, ggm, ggM, old, new,
    
41.    newg}, p1 =
    
42.    DateListPlot[f, Axes -> True, Frame -> False,
    
43.     PlotRange -> Automatic];
    
44.   gg = g;
    
45.   gg[[All, 2]] /= 1 - r;
    
46.   p2 = DateListPlot[g, Axes -> True, Frame -> False,
    
47.     PlotRange -> Automatic];
    
48.   pg2 = DateListPlot[gg, Axes -> True, Frame -> False,
    
49.     PlotRange -> Automatic];
    
50.   {fm, fM} = AbsoluteOptions[p1, PlotRange][[1, 2, 2]];
    
51.   {m, M} = {fm, 1/r fM};
    
52.   {gm, gM} = AbsoluteOptions[p2, PlotRange][[1, 2, 2]];
    
53.   {ggm, ggM} = AbsoluteOptions[pg2, PlotRange][[1, 2, 2]];
    
54.   old = AbsoluteOptions[pg2, Ticks][[1, 2, 2]];
    
55.   new = Flatten[{(M + m - Rescale[First[#1], {ggm, ggM}, {m, M}]),
    
56.        Rest[#1]}, 1] & /@ old;
    
57.   newg = {#[[
    
58.        1]], (M + m - (1 - r) Rescale[#[[2]], {gm, gM}, {m, M}])} & /@
    
59.     g;
    
60.   DateListPlot[{f, newg}, Axes -> False, Frame -> True,
    
61.    FrameTicks -> {Automatic, new, None, All}, PlotRange -> {m, M},
    
62.    opts]]

复制代码

jimogsh

话说 我们师兄就是用origin的，我想先用Mathematica试试来着

TBE_Legend

话说 我们师兄就是用origin的，我想先用Mathematica试试来着
jimogsh 发表于 2011-5-19 09:40

试试这个？

http://wnsl.physics.yale.edu/levelscheme/