Skip to content

Latest commit

 

History

History
92 lines (77 loc) · 2.83 KB

绘图的艺术.md

File metadata and controls

92 lines (77 loc) · 2.83 KB
Raw

基本模板

plt = ListLinePlot[{dt[[All, 1]], dt[[All, 2]], dt[[All, 3]]}, 
  Mesh -> None, PlotStyle -> {PointSize[0.015]},
  PlotLabel -> 
   Style["The SIR Model", FontSize -> 20, FontColor -> Red, 
    FontFamily -> "Latin Modern Roman 8"],
  FrameTicksStyle -> 
   Directive[FontSize -> 12, FontFamily -> "Latin Modern Roman 8", 
    FontColor -> Purple],
  PlotLabels -> Placed[{
     Style["Removed", FontFamily -> "Latin Modern Roman 8", 
      FontWeight -> Bold, FontSize -> 12],
     Style["Not Illed" , FontFamily -> "Latin Modern Roman 8", 
      FontWeight -> Bold, FontSize -> 12],
     Style["Illed" , FontFamily -> "Latin Modern Roman 8", 
      FontWeight -> Bold, FontSize -> 12]
     }, Above],
  Frame -> {{True, False}, {True, False}},
  FrameLabel -> {
    Style["Number of days" , FontFamily -> "Latin Modern Roman 8", 
     FontWeight -> Bold, FontSize -> 14],
    Style["Number of person" , FontFamily -> "Latin Modern Roman 8", 
     FontWeight -> Bold, FontSize -> 14]
    },
  PlotMarkers -> {Automatic}
  ]

效果

image

矢量导出

Export["Path", 
 Show[plt, ImageSize -> Large]]

效果 a

实例 2

plt = ListLinePlot[
  {dt[[All, 1]], dt[[All, 2]], dt[[All, 3]]},
  Mesh -> None,
  PlotStyle -> {{PointSize[0.015], Red}, {PointSize[0.015], 
     Blue}, {PointSize[0.015], Green}},
  PlotLabel -> 
   Style["(Figure 01)* - Airlines Circle", FontSize -> 20, 
    FontColor -> Black, FontFamily -> "Latin Modern Roman 8"],
  FrameStyle -> Directive[Black, AbsoluteThickness[1.3]],
  FrameTicksStyle -> 
   Directive[FontSize -> 12, FontFamily -> "Latin Modern Roman 8", 
    FontColor -> Purple],
  PlotLabels -> Placed[
    {
     Style["US Airways", FontFamily -> "Iosevka", FontWeight -> Bold, 
      FontSize -> 12],
     Style["United Airlines" , FontFamily -> "Iosevka", 
      FontWeight -> Bold, FontSize -> 12],
     Style["American Airlans" , FontFamily -> "Iosevka", 
      FontWeight -> Bold, FontSize -> 12]
     },
    Right],
  Frame -> {{True, False}, {True, False}},
  FrameLabel -> {
    Style["Number of days" , FontFamily -> "Latin Modern Roman 8", 
     FontWeight -> Bold, FontSize -> 14],
    Style["Number of person" , FontFamily -> "Latin Modern Roman 8", 
     FontWeight -> Bold, FontSize -> 14]
    },
  PlotMarkers -> {Automatic}, PlotRange -> {{0, 25}, {2000, 8000}}
  ]

效果

image

矢量导出 a

多个图像

分别让 a = Plot[...]; b = Plot[...] 然后 Show[a, b]