如何使用 Mathematica 为二维图形制作标签

Question

目标：得到图5中图C这样的图形格式enter link description here

假设：我们绘制 Sin[x]，范围从 0 到 2Pi。

Plot[Sin[2 x], {x, 0, 2 Pi}, AxesLabel -> {Style["time (hr)", 20], Style["Concentration (nM)", 20]},AxesStyle -> Directive[Thick, FontSize -> 15]]

问题：如何在不添加烦人的框架的情况下为 x 轴和 y 轴制作标签？

更重要的是：

Plot[Sin[2 x], {x, 0, 2 Pi}, AxesLabel -> {Style["hr", 20], Style["nM", 20]},AxesStyle -> Directive[Thick, FontSize -> 20]]

这样的代码在图6的A中无法获得类似的格式，尤其是"hr"和"nM"。

请帮我一个忙！

Answer 1

Labeled[
 Plot[Sin[2 x], {x, 0, 2 Pi},
  AxesStyle -> Directive[Thick, FontSize -> 15]],
 {Style["time (hr)", 20, FontFamily -> "Arial", Darker@Gray],
  Rotate[
   Style["Concentration (nM)", 20, FontFamily -> "Arial", Darker@Gray],
   90 Degree]},
 {Bottom, Left}]

Labeled[
 Plot[Sin[2 x], {x, 0, 2 Pi},
  AxesLabel -> {Style["\nhr", 20]},
  AxesStyle -> Directive[Thick, FontSize -> 20]],
 {Style["nM", 20, FontFamily -> "Arial", Darker@Gray]},
 {{Left, Top}}]

回复。导出 PNG 时出现问题

没有明显的问题：-

如何使用 Mathematica 为二维图形制作标签

How to make labels for a 2-D figure with Mathematica

wolfram-mathematica