如何使用 R 播放生日音乐？

小开

最佳答案

如果你真的想这么做:

library("audio")


bday_file <- tempfile()
download.file("http://www.happybirthdaymusic.info/01_happy_birthday_song.wav", bday_file, mode = "wb")
bday <- load.wave(bday_file)
play(bday)

注意，您首先需要 install.packages("audio")。如果您已经有了一个特定的文件，那么首先需要将其转换为 WAV 格式。

如果你想要比播放 WAV 文件更加程序化一点的东西，这里有一个版本可以从一系列正弦波中生成曲调:

library("dplyr")
library("audio")
notes <- c(A = 0, B = 2, C = 3, D = 5, E = 7, F = 8, G = 10)
pitch <- "D D E D G F# D D E D A G D D D5 B G F# E C5 C5 B G A G"
duration <- c(rep(c(0.75, 0.25, 1, 1, 1, 2), 2),
0.75, 0.25, 1, 1, 1, 1, 1, 0.75, 0.25, 1, 1, 1, 2)
bday <- data_frame(pitch = strsplit(pitch, " ")[[1]],
duration = duration)


bday <-
bday %>%
mutate(octave = substring(pitch, nchar(pitch)) %>%
{suppressWarnings(as.numeric(.))} %>%
ifelse(is.na(.), 4, .),
note = notes[substr(pitch, 1, 1)],
note = note + grepl("#", pitch) -
grepl("b", pitch) + octave * 12 +
12 * (note < 3),
freq = 2 ^ ((note - 60) / 12) * 440)


tempo <- 120
sample_rate <- 44100


make_sine <- function(freq, duration) {
wave <- sin(seq(0, duration / tempo * 60, 1 / sample_rate) *
freq * 2 * pi)
fade <- seq(0, 1, 50 / sample_rate)
wave * c(fade, rep(1, length(wave) - 2 * length(fade)), rev(fade))
}


bday_wave <-
mapply(make_sine, bday$freq, bday$duration) %>%
do.call("c", .)


play(bday_wave)

有几点需要注意。音符的默认八度是四度，其中 A4是440赫兹(用于调谐管弦乐队的音符)。八度在 C 处变化，所以 C3比 B2高一个半音。make_sine渐变的原因是，如果没有它，在开始和停止音符时就会有可听到的声音。