怎么在图中的右上角在插入一副小图

Question

 

我想在这幅图的右上角再插入一幅图

Answer 1

用 Inset，例如：

Plot[Sin[x], {x, 0, 6 Pi},
 Epilog -> Inset[Plot[Sin[x], {x, 0, 6 Pi}], {6 Pi, 1}, {6 Pi, 1}, 5]]

 

Comments

我画了两幅图，都插入了小图，但是我用Show将两张图合并到一起，只能显示Show中第一幅图的小图，这是什么原因，怎么解决？

---

贴一下代码，看看

---

图像尺寸大了，不好意思，但是结果你也看到了

---

p1 = Plot[Sin[x], {x, 0, 2 Pi}, ImageSize -> 800, 
   Epilog -> 
    Inset[Plot[{cosPowerFlatTop[0.057, 5, 2][t] Sin[0.057 t], 
       cosPowerFlatTop[0.057, 5, 2][
        t], -cosPowerFlatTop[0.057, 5, 2][t]}, {t, 0, 530}, 
      Axes -> False, PlotLabel -> {"脉冲"}], {5, 0.5}]];
p2 = Plot[Sin[x], {x, 0, 2 Pi}, ImageSize -> 800, 
   Epilog -> 
    Inset[Plot[{cosPowerFlatTop[0.057, 5, 2][t] Sin[0.057 t], 
       cosPowerFlatTop[0.057, 5, 2][
        t], -cosPowerFlatTop[0.057, 5, 2][t]}, {t, 0, 530}, 
      Axes -> False, PlotLabel -> {"脉冲"}], {5, -0.5}]];
Show[p1, p2]

---

为什么不把两个Inset都写在Epilog中呢：
Plot[Sin[x], {x, 0, 2 Pi}, ImageSize -> 800,
 Epilog -> {Inset[
    Plot[{cosPowerFlatTop[0.057, 5, 2][t] Sin[0.057 t],
      cosPowerFlatTop[0.057, 5, 2][
       t], -cosPowerFlatTop[0.057, 5, 2][t]}, {t, 0, 530},
     Axes -> False, PlotLabel -> {"脉冲"}], {5, 0.5}],
   Inset[Plot[{cosPowerFlatTop[0.057, 5, 2][t] Sin[0.057 t],
      cosPowerFlatTop[0.057, 5, 2][
       t], -cosPowerFlatTop[0.057, 5, 2][t]}, {t, 0, 530},
     Axes -> False, PlotLabel -> {"脉冲"}], {5, -0.5}]},
 Background -> None]