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

我想用R来播放音乐。虽然R可能不是这个目的的最佳工具，但它是我熟悉的工具，在这样一个欢乐的场合向其他人展示它的灵活性是很好的。

我怎么能做到这一点？

Answer 1

如果你真的想这样做：

 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 <- "DDEDGF# DDEDAGDD D5 BGF# E C5 C5 BGAG" 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) 

有几点需要注意。 音符的默认八度音程是八度音阶4，其中A4是440Hz（用于调音乐团的音符）。 八度变化在C，所以C3比B2高一个半音。 make_sine淡入淡出的原因是没有它，在开始和停止音符的时候就会有可听见的popup。