Antropogenic noise and song structure in Zonotrichia capensis

Exploratory graphs

Parametros:

• frecuencia minima -> mindom

• frecuencia maxima -> maxdom

• frecuencia minima -> intro.mindom

• frecuencia pico -> songpeakf

• rango de frecuencia -> dfrange

• numero de notas -> num.elms

• duracion de las notas -> elm.duration

• duracion total -> duration

library(ggplot2)

pool_params <- read.csv("song_trill_intro_parameters.csv",stringsAsFactors = FALSE)

pool_params$Area <- factor(pool_params$Area, levels = c("Silvestre", "Rural", "Suburbana", "Urbana"))

ggplot(pool_params, aes(y = `LeqA..dB.`, x = Area)) +
  geom_violin(fill = viridis::viridis(10, alpha = 0.5)[8]) +
  theme_classic(base_size = 18)

# ggplot(pool_params, aes(y = `LeqA..dB.`, x = Area)) +
#   geom_boxplot(fill = viridis::viridis(10, alpha = 0.5)[4]) +
#   theme_classic(base_size = 18)

ggplot(pool_params, aes(y = `Lmax..dB.`, x = Area)) +
  geom_violin(fill = viridis::viridis(10, alpha = 0.5)[8]) +
  theme_classic(base_size = 18)

ggplot(pool_params, aes(y = song.duration, x = Area)) +
  geom_violin(fill = viridis::viridis(10, alpha = 0.5)[8]) +
  theme_classic(base_size = 18)

ggplot(pool_params, aes(y = song.peakf, x = Area)) +
  geom_violin(fill = viridis::viridis(10, alpha = 0.5)[8]) +
  theme_classic(base_size = 18)

ggplot(pool_params, aes(y = song.mindom, x = Area)) +
  geom_violin(fill = viridis::viridis(10, alpha = 0.5)[8]) +
  theme_classic(base_size = 18)

ggplot(pool_params, aes(y = song.maxdom, x = Area)) +
  geom_violin(fill = viridis::viridis(10, alpha = 0.5)[8]) +
  theme_classic(base_size = 18)

ggplot(pool_params, aes(y = intro.peakf, x = Area)) +
  geom_violin(fill = viridis::viridis(10, alpha = 0.5)[8]) +
  theme_classic(base_size = 18)

ggplot(pool_params, aes(y = intro.mindom, x = Area)) +
  geom_violin(fill = viridis::viridis(10, alpha = 0.5)[8]) +
  theme_classic(base_size = 18)

ggplot(pool_params, aes(y = trill.peakf, x = Area)) +
  geom_violin(fill = viridis::viridis(10, alpha = 0.5)[8]) +
  theme_classic(base_size = 18)

ggplot(pool_params, aes(y = trill.mindom, x = Area)) +
  geom_violin(fill = viridis::viridis(10, alpha = 0.5)[8]) +
  theme_classic(base_size = 18)

ggplot(pool_params, aes(y = trill.maxdom, x = Area)) +
  geom_violin(fill = viridis::viridis(10, alpha = 0.5)[8]) +
  theme_classic(base_size = 18)

ggplot(pool_params, aes(y = song.num.elms, x = Area)) +
  geom_violin(fill = viridis::viridis(10, alpha = 0.5)[8]) +
  theme_classic(base_size = 18)

ggplot(pool_params, aes(y = intro.num.elms, x = Area)) +
  geom_violin(fill = viridis::viridis(10, alpha = 0.5)[8]) +
  theme_classic(base_size = 18)

ggplot(pool_params, aes(y = song.rate, x = Area)) +
  geom_violin(fill = viridis::viridis(10, alpha = 0.5)[8]) +
  theme_classic(base_size = 18)

ggplot(pool_params, aes(y = intro.rate, x = Area)) +
  geom_violin(fill = viridis::viridis(10, alpha = 0.5)[8]) +
  theme_classic(base_size = 18)

## Warning: Removed 4 rows containing non-finite values (stat_ydensity).

ggplot(pool_params, aes(y = trill.rate, x = Area)) +
  geom_violin(fill = viridis::viridis(10, alpha = 0.5)[8]) +
  theme_classic(base_size = 18)

ggplot(pool_params, aes(y = trill.rate, x = Area)) +
  geom_violin(fill = viridis::viridis(10, alpha = 0.5)[8]) +
  theme_classic(base_size = 18)