plotACMTslice: Multipanel Plot of AC and MT Samples by Slice
In JVAdams/EchoNet2Fish: Estimate Fish Abundance from Acoustic Echoes and Net Catch

Multipanel plot of acoustics and midwater trawl samples by slice.

plotACMTslice(
  MTgroup,
  ACgroup,
  sug = sort(unique(c(MTgroup, ACgroup))),
  MTbd,
  ACbd,
  MTwd,
  ACwd,
  Gcol = NULL,
  boxcol = "gray",
  axlabelcol = "gray",
  axtitlecol = "darkgray",
  mar = c(0, 0, 3, 3),
  oma = c(1.5, 2, 2.5, 2)
)

`MTgroup`	Vector, identifying the group membership (typically, the slice) of the midwater trawl tow locations to be mapped.
`ACgroup`	Vector, identifying the group membership (typically, the slice) of the acoustic transect locations to be mapped.
`sug`	Vector, identifying the unique groups to which locations may belong, default sort(unique(c(`MTgroup`, `ACgroup`))).
`MTbd`	Numeric vector of bottom depths sampled by midwater trawl tows, same length as `MTgroup`.
`ACbd`	Numeric vector of bottom depths sampled by acoustic transects, same length as `ACgroup`.
`MTwd`	Numeric vector of water depths sampled by midwater trawl tows, same length as `MTgroup`.
`ACwd`	Numeric vector of water depths sampled by acoustic transects, same length as `ACgroup`.
`Gcol`	A vector, the color used for plot symbols, same length as `sug`. If NULL, the default, colors will be assigned automatically.
`boxcol`	A scalar, the color of the three- to five-sided box around the scatterplot, default "gray".
`axlabelcol`	A scalar, the color of the axis labels, default "gray".
`axtitlecol`	A scalar, the color of the axis titles, default "darkgray".
`mar`	A numeric vector of length 4, the number of lines of margin c(bottom, left, top, right) around each plotted map plot, default c(0, 0, 2.5, 0).
`oma`	A numeric vector of length 4, the number of lines of outer margin c(bottom, left, top, right) around the multipanel plots, default c(1.5, 2, 1.5, 2).

# acoustic transects
agroup <- c("Main", "Bay")[c(1, 1, 1, 1, 2, 2, 2)]
abd <- c(50, 100, 50, 100, 50, 100, 50)
awd <- c(10, 10, 20, 20, 10, 10, 20)

# midwater trawls
mgroup <- c("Main", "Bay")
mbd <- c(30, 80)
mwd <- c(15, 60)

plotACMTslice(MTgroup=mgroup, ACgroup=agroup, MTbd=mbd, ACbd=abd,
  MTwd=mwd, ACwd=awd)