如何创建具有循环操作的多个向量结果的单个数据框？

Question

我有一个.wav 文件，想要获得连续无重叠时间的功率谱 windows。功率谱数据是通过下一个 function 获得的，一旦加载了seewave和tuneR库：

 n <- 0:1 
 sound1 <- readWave("D:\\sound.wav")
 result <- do.call(cbind, lapply(n, function(x) 
 meanspec(sound1,from=x,to=x+1,wl=16,plot=FALSE)))
 result1 <- data.frame(result)

输出将是

 structure(list(x = c(0, 2.75625, 5.5125, 8.26875, 11.025, 13.78125, 
 16.5375, 19.29375), y = c(1, 0.551383594277632, 0.0742584974502194, 
 0.0399059818168578, 0.0218500553648978, 0.0176655910374274, 
 0.00904887363707214, 
 0.00333698474894753), x.1 = c(0, 2.75625, 5.5125, 8.26875, 11.025, 
 13.78125, 16.5375, 19.29375), y.1 = c(1, 0.558106398109396, 
 0.145460335046358, 
 0.0804097312947365, 0.0476025570412434, 0.0393549921764155, 
 0.0203584314573552, 
 0.00737927765210362)), class = "data.frame", row.names = c(NA,

但是在结果 df 中我只需要y和y.1但不需要x和x.1 。 您可能会注意到x和1.x具有相同的数据，并且此类信息是多余的。 简而言之：我只需要y 个数据。

谢谢您的建议！

Answer 1

有多种方法可以完成您所说的事情。 我不知道你正在谈论的向量的长度，也不知道 meanspec 返回其数据的方式，所以你必须自己填写

vec_length <- length(amplitude_vector)
wav_df <- data.frame(matrix(nrow = 0, ncol = vec_length + 1))

for(i in 0:(end-1)){
    #Add relevant code to get the amplitude vector from the function below
    amp_vec <- meanspec(sound1, from = i, to = i+1, plot = FALSE)... 
    wav_df <- rbind(wav_df,c(i,amp_vec))
}

colnames(wav_df) <- c("start-time",...)#Add in the other column names that you want

然后wav_df应该有你想要的信息。

Answer 2

你可以使用lapply -

n <- 0:9 #to end at 9-10;change as per your preference
Sound1 <- readWave("D:\\Sound.wav")
result <- do.call(rbind, lapply(n, function(x) 
                  meanspec(sound1,from=x,to=x+1,plot=FALSE)))
result
#to get dataframe as output
#result <- data.frame(result)