Customize my graphics

Plot[Sin[x], {x, 0, 2π}]

-Graphics-

Plot[Sin[x], {x, 0, 2π}, PlotLabel -> Sin[x]]

-Graphics-

Plot[Sin[x], {x, 0, 2π}, PlotLabel -> Style[Sin[x], {Red, 18}]]

-Graphics-

Plot[Sin[x], {x, 0, 2π}, PlotStyle -> Directive[Thick, Dashed, Red]]

-Graphics-

Plot[Sin[x], {x, 0, 2π}, AxesStyle -> Directive[Thick, Dashed, Red]]

-Graphics-

Plot[Sin[x], {x, 0, 2π}, LabelStyle -> Directive[Thick, Dashed, Red]]

-Graphics-

Plot[Sin[x], {x, 0, 2π}, Filling -> Axis]

-Graphics-

Plot[Sin[x], {x, 0, 2π}, GridLines -> Automatic]

-Graphics-

Plot[Sin[x], {x, 0, 2π}, Ticks -> {Range[0, 2π, π / 2], Range[-1, 1, 0.5]}]

-Graphics-

Plot[Sin[x], {x, 0, 2π}, Prolog -> {Red, PointSize[0.02], Point[{{π / 2, 1}, {3π / 2, -1}}]},
	Epilog -> {Green, PointSize[0.02], Point[{{0, 0}, {π, 0}, {2π, 0}}]}]

-Graphics-

Plot[Sin[x], {x, 0, 2π}, Epilog -> {
	{Red, Text["extrema", {4, 0.5}, {-1, -1}]},
	{Blue, Arrowheads[{-0.04, 0.04}], Arrow[{{π / 2, 1}, {4, 0.5}, {3π / 2, -1}}]}}]

-Graphics-

Plot3D[Sin[x] + Sin[y], {x, -6, 6}, {y, -6, 6}]

-Graphics3D-

Plot3D[Sin[x] + Sin[y], {x, -6, 6}, {y, -6, 6}, Boxed -> False, AxesOrigin -> {-6, -6, -2}]

-Graphics3D-

Plot3D[Sin[x] + Sin[y], {x, -6, 6}, {y, -6, 6}, Mesh -> False]

-Graphics3D-

Column[Table[Plot3D[Sin[x] + Sin[y], {x, -6, 6}, {y, -6, 6}, Mesh -> m], {m, {All, Full, 5}}]]

Column[{-Graphics3D-, -Graphics3D-, -Graphics3D-}]

Plot3D[{-x ^ 4 - y ^ 4, x ^ 2 + y ^ 2, (x / 1.3) ^ 5 + (y / 1.3) ^ 5}, {x, -2, 2}, {y, -2, 2}]

-Graphics3D-

Plot3D[{-x ^ 4 - y ^ 4, x ^ 2 + y ^ 2, (x / 1.3) ^ 5 + (y / 1.3) ^ 5}, {x, -2, 2}, {y, -2, 2}, RegionFunction -> Function[{x, y, z}, x ^ 4 + y ^ 4 ≤ 4]]

-Graphics3D-

Plot3D[{-x ^ 4 - y ^ 4, x ^ 2 + y ^ 2, (x / 1.3) ^ 5 + (y / 1.3) ^ 5} , {x, -2, 2}, {y, -2, 2}, RegionFunction -> Function[{x, y, z}, x ^ 4 + y ^ 4 ≤ 4], Mesh -> None, Lighting -> {{"Point", Yellow, {0, -5, -5}}, {"Point", Blue, {0, 3, 3}}, {"Point", Red, {-3, -3, 0}}, {"Point", Green, {5, 5, 0}}}]

-Graphics3D-

Plot3D[{-x ^ 4 - y ^ 4, x ^ 2 + y ^ 2, (x / 1.3) ^ 5 + (y / 1.3) ^ 5}, {x, -2, 2}, {y, -2, 2}, RegionFunction -> Function[{x, y, z}, x ^ 4 + y ^ 4 ≤ 4], BoxRatios -> {1, 1, 1}, Axes -> False, Background -> Black, Boxed -> False, Mesh -> None]

-Graphics3D-

Row[Column /@ {Options[Plot], Options[Plot3D]}]

Column[{AlignmentPoint -> Center, AspectRatio -> GoldenRatio^(-1), Axes -> True, AxesLabel -> None, AxesOrigin -> Automatic, AxesStyle -> {}, Background -> None, BaselinePosition -> Automatic, BaseStyle -> {}, ClippingStyle -> None, ColorFunction -> Automatic, ColorFunctionScaling -> True, ColorOutput -> Automatic, ContentSelectable -> Automatic, CoordinatesToolOptions -> Automatic, DisplayFunction :> $DisplayFunction, Epilog -> {}, Evaluated -> Automatic, EvaluationMonitor -> None, Exclusions -> Automatic, ExclusionsStyle -> None, Filling -> None, FillingStyle -> Automatic, FormatType :> TraditionalForm, Frame -> False, FrameLabel -> None, FrameStyle -> {}, FrameTicks -> Automatic, FrameTicksStyle -> {}, GridLines -> None, GridLinesStyle -> {}, ImageMargins -> 0., ImagePadding -> All, ImageSize -> Automatic, ImageSizeRaw -> Automatic, IntervalMarkers -> Automatic, IntervalMarkersStyle -> Automatic, LabelingSize -> Automatic, LabelStyle -> {}, MaxRecursion -> Automatic, Mesh -> None, MeshFunctions -> {#1 & }, MeshShading -> None, MeshStyle -> Automatic, Method -> Automatic, PerformanceGoal :> $PerformanceGoal, PlotHighlighting -> Automatic, PlotInteractivity :> $PlotInteractivity, PlotLabel -> None, PlotLabels -> None, PlotLayout -> Automatic, PlotLegends -> None, PlotPoints -> Automatic, PlotRange -> {Full, Automatic}, PlotRangeClipping -> True, PlotRangePadding -> Automatic, PlotRegion -> Automatic, PlotStyle -> Automatic, PlotTheme :> $PlotTheme, PreserveImageOptions -> Automatic, Prolog -> {}, RegionFunction -> (True & ), RotateLabel -> True, ScalingFunctions -> None, TargetUnits -> Automatic, Ticks -> Automatic, TicksStyle -> {}, WorkingPrecision -> MachinePrecision}]Column[{}]