Sociophonetic properties of vowels and fricatives#
[4]
LING 497 Phonetic Analysis: Articulation, Acoustics, Audition
The Pennsylvania State University
Revised
25 May 2023
Programming Environment#
Show code cell source
R.version.string # R.Version()
.libPaths()
packages <- c(
'gridExtra',
'magrittr',
'phonR',
'repr',
'scales',
'tidyverse',
'vowels'
)
# Install packages not yet installed
installed_packages <- packages %in% rownames(installed.packages())
if (any(installed_packages == FALSE)) {
install.packages(packages[!installed_packages])
}
# Load packages
invisible(lapply(packages, library, character.only = TRUE))
── Attaching core tidyverse packages ───────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────── tidyverse 2.0.0 ──
✔ dplyr 1.1.2 ✔ readr 2.1.4
✔ forcats 1.0.0 ✔ stringr 1.5.0
✔ ggplot2 3.4.3 ✔ tibble 3.2.1
✔ lubridate 1.9.2 ✔ tidyr 1.3.0
✔ purrr 1.0.2
── Conflicts ─────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────── tidyverse_conflicts() ──
✖ readr::col_factor() masks scales::col_factor()
✖ dplyr::combine() masks gridExtra::combine()
✖ purrr::discard() masks scales::discard()
✖ tidyr::extract() masks magrittr::extract()
✖ dplyr::filter() masks stats::filter()
✖ dplyr::lag() masks stats::lag()
✖ purrr::set_names() masks magrittr::set_names()
ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errors
Vowels#
A comparison of my acoustic vowel space with those of other North American English dialects#
My vowel space#
Show code cell source
myVowels <- read.csv('L3_avg.csv')
myVowels
options(repr.plot.width=10, repr.plot.height=10)
plt <- ggplot(myVowels, aes(x=F2_Hz, y=F1_Hz, label=vowel, color=vowel)) +
geom_text(size=10) +
scale_x_reverse(
position='bottom',
breaks=seq(0, 3000, 200)) +
scale_y_reverse(
position='left',
breaks=seq(0, 1000, 100)) +
labs(
x='F2 [Hz]\n',
y='F1 [Hz]\n',
title='MY VOWELS [F1 vs F2]') +
theme(
legend.position='none',
plot.title=element_text(hjust=0.5),
text=element_text(size=20)
)
suppressWarnings(print(plt))
Some North American English dialect vowel spaces#
Examine the acoustic F1-F2 vowel spaces of different North American English dialects and how the acoustic properties of the vowels differ in order to better understand sociophonetic claims about these dialects.
Note that the plots provided of the different North American English dialects vary in terms of their representation of (i) region size (small vs large), (ii) tokens (IPA vs words), and (iii) data type (aggregate vs individual).
some North American English dialects
Midwestern
[W] Southern
Alabama
Northern Atlantic
Western North American
Approximate formant ranges based on visual inspection
F1 F2
me 300-800 965-2445
MIDLAND 410-820 1175-2375
W PA 400-800 1125-2375
C OH 450-975 1375-2400
N OH 350-750 1200-2400
S US 450-810 1175-2225
AL 325-875 1100-2500
W NE 440-830 1175-2275
Atlantic 360-820 1225-2500
W US 400-810 1225-2400
W Ca 380-830 1110-2475
[1] What surprises you about any of the vowel plots or how they compare to your own?
[2] Which of the vowel plots looks the most similar to yours?
My dialect of spoken North American English is most closely related to Philadelphia English.
[3] Does [1] make sense in terms of which geographical area you would expect your vowels to match the most?
[4] What else, if anything, stands out about this data?
Corpus vowel observations#
Show code cell source
df0 <- data.frame(
vowel=c(
'i','u','æ','ɑ',
#'ɔ',
'ɛ','ɪ',
#'ʊ',
'ʌ','e','o'
),
F1=c(
265.5198425198318,
265.85733916924033,
617.377618617203,
640.7758865066211,
#0,
544.5743823332352,
408.2927482004889,
#0,
553.5343117038954,
356.1113950654619,
343.94824459258894
),
F2=c(
2199.498417751351,
1189.0378933015656,
1722.7116555777932,
1159.8028169201725,
#0,
1562.3880459617742,
1579.1947625778555,
#0,
1182.0606741128356,
2166.9128120306286,
1633.1822369113345
)
)
df0
vowel | F1 | F2 |
---|---|---|
<chr> | <dbl> | <dbl> |
i | 265.5198 | 2199.498 |
u | 265.8573 | 1189.038 |
æ | 617.3776 | 1722.712 |
ɑ | 640.7759 | 1159.803 |
ɛ | 544.5744 | 1562.388 |
ɪ | 408.2927 | 1579.195 |
ʌ | 553.5343 | 1182.061 |
e | 356.1114 | 2166.913 |
o | 343.9482 | 1633.182 |
A comparison of my vowel space with the corpus vowel space#
Show code cell source
options(repr.plot.width=20, repr.plot.height=10)
plt0 <- ggplot(df0, aes(x=F2, y=F1, label=vowel, color=vowel)) +
geom_text(size=10) +
scale_x_reverse(
position='bottom',
breaks=seq(0, 3000, 200)) +
scale_y_reverse(
position='left',
breaks=seq(0, 1000, 100)) +
labs(
x='F2 [Hz]\n',
y='F1 [Hz]\n',
title='CORPUS VOWELS [F1 vs F2]') +
theme(
legend.position='none',
plot.title=element_text(hjust=0.5),
text=element_text(size=20)
)
plt1 <- ggplot(myVowels, aes(x=F2_Hz, y=F1_Hz, label=vowel, color=vowel)) +
geom_text(size=10) +
scale_x_reverse(
position='bottom',
breaks=seq(0, 3000, 200)) +
scale_y_reverse(
position='left',
breaks=seq(0, 1000, 100)) +
labs(
x='F2 [Hz]\n',
y='F1 [Hz]\n',
title='MY VOWELS [F1 vs F2]') +
theme(
legend.position='none',
plot.title=element_text(hjust=0.5),
text=element_text(size=20)
)
suppressWarnings(grid.arrange(plt0,plt1,ncol=2))
Fricatives#
Spectrograms#
Power Spectra#
Spectral Measurements#
Show code cell source
fricatives <- tribble(
~subject,~fricative,~spectral_peak_Hz,~spectral_peak_dB,
#-------|----------|-----------------|------------------
'eng81', 's', 3593.21, 26.2,
'eng81', 'sh', 2920.75, 36.9,
'me', 's', 4476.06, 25.2,
'me', 'sh', 5248.52, 26.7
)
fricatives
subject | fricative | spectral_peak_Hz | spectral_peak_dB |
---|---|---|---|
<chr> | <chr> | <dbl> | <dbl> |
eng81 | s | 3593.21 | 26.2 |
eng81 | sh | 2920.75 | 36.9 |
me | s | 4476.06 | 25.2 |
me | sh | 5248.52 | 26.7 |
Terms#
[W] American English
[W] Appalachian English
[W] Atlantic Canadian English
[W] Atlantic Provinces
[W] The Atlas of North American English
[W] Australian English
[W] Baltimorese
[W] British English
[W] California English
[W] Canadian English
[W] Canadian Raising
[W] Canadian Shift
[W] Chain Shift
[W] Cot-Caught Merger
[W] Dialect Continuum
[W] Dialect Leveling
[W] Early Modern English
[W] Eastern New England English
[W] English-language vowel changes before historic /r/
[W] General American English
[W] Great Vowel Shift
[W] Inland Northern American English (Great Lakes Dialect)
[W] Irish English
[W] Indian English
[W] Koiné
[W] Mid Atlantic Accent
[W] Middle English
[W] Middle English phonology
[W] Midland American English
[W] Modern English
[W] New England English
[W] New York Accent
[W] New York City English
[W] North American English regional phonology
[W] North American English
[W] Northern American English
[W] Northern Central American English
[W] Old English
[W] Old English phonology
[W] older Southern American dialects
[W] Pacific Northwest English
[W] Philadelphia English
[W] phonological history of English close front vowels
[W] phonological history of English open back vowels
[W] Received Pronunciation (RP)
[W] Rhoticity in English
[W] South African English
[W] Southern American English
[W] Standard Canadian English
[W] Standard English
[W] Texan English
[W] Vowel Shift
[W] Western American English
[W] Western New England English
[W] Western Pennsylvania English (Pittsburghese)
Bibliography#
[W] Labov, William; Sharon Ash; & Charles Boberg. (2006). The Atlas of North American English. Berlin: Mouton-de Gruyter.
english81. The Speech Accent Archive. Page.