gg_freiburg {audiometry}

Freiburger Sprachtest data with ggplot2

Description

Draws the most influential speech intelligibility test in German speaking countries. This function serves as a starting point for plotting data in way that reflects the usual representation of Freiburger Sprachtest results.

Usage

gg_freiburg(
  data = data.frame(),
  mapping = aes(),
  horizontal = FALSE,
  xlab = "Sprachschallpegel [dB]",
  ylab = "Sprachverstehen [%]",
  x_ticks_at = seq(0, 110, 10),
  y_ticks_at = seq(0, 100, 20),
  plot_reference = TRUE,
  plot_reference_lwd_1 = 0.8,
  plot_reference_lwd_2 = 0.8,
  plot_reference_color_1 = "darkgrey",
  plot_reference_color_2 = "darkgrey",
  plot_discr_loss_scale = TRUE,
  plot_discr_loss_scale_values = seq(0, 90, 10),
  plot_discr_loss_scale_color = "darkgrey",
  NC_alpha = NULL,
  HV_color = NULL
)

Arguments

data

a data.frame that is given to ggplot for initialization

mapping

same as mapping in ggplot2::ggplot

horizontal

logical whether to orient the plot horizontally

xlab

label on the x axis

ylab

label on the y axis

x_ticks_at

vector of x values where numbers on x axis should appear. This is seq(0, 110, 10) in the DIN but c(0, seq(5, 120, 15)) in Muster 13.

y_ticks_at

corresponding to x_ticks_at for the y axis. Set to seq(0,100,10) to mimick the DIN, seq(0, 100, 20) to mimick Muster 13.

plot_reference

logical whether to plot the normal hearing curves for numbers and syllables

plot_reference_lwd_1

line width for reference line 1

plot_reference_lwd_2

line width for reference line 2

plot_reference_color_1

line color for reference line 1

plot_reference_color_2

line color for reference line 2

plot_discr_loss_scale

logical whether to print discrimination loss values in the middle of the plot (likely to change in later versions)

plot_discr_loss_scale_values

numeric vector of discrimination loss values (likely to change in later versions)

plot_discr_loss_scale_color

color value of discrimination loss values (likely to change in later versions)

NC_alpha

deprecated parameter that was used only in version 0.2.0

HV_color

deprecated parameter that was used only in version 0.2.0

Value

a ggplot suitable for adding Freiburger Sprachtest data as geom_*

Examples

library(ggplot2)
data.frame(loud = c(20, 35, 50, 65), perc = c(0,10,65,100)) |>
gg_freiburg(aes(x = loud, y = perc)) +
  geom_point() +
    geom_line()


id = gl(25,4)
gender=gl(2,25, label =c("Frauen", "M\u00e4nner"))
x = rep(c(35, 50, 65, 80), 25)
y = 100*boltzmann(jitter(x,3), 45, .03)
example <- data.frame(Patient=id, Geschlecht = gender, x=x, y=y)
p <- gg_freiburg() +
        geom_boxplot(aes(x = x, y = y, group = x), example) +
        geom_line(aes(x = x, y = y, color = Geschlecht, group = id), example)
print(p)

gg_freiburg(plot_reference_lwd_1 = 2.5, plot_reference_lwd_2 = 3,
           plot_reference_color_1 = "green", plot_reference_color_2 = "pink")