The manager packages provides functions for geochemical plots.

# load example data
data("gw_data")

gw_data %>%
  piper_plot()

gw_data %>%
  schoeller_plot()