我有一个看起来像这样的数据（较大集合的一部分）：（由于整个数据帧的设置方式，每个元音不能超过一行）
info.df <- data.frame(
vowelFormantF2_90 = c(1117, 1433, 2392),
vowelFormantF3_90 = c(2820, 3062, 2670),
vowelFormantF2_50 = c(1016, 1313, 2241),
vowelFormantF3_50 = c(2842, 3150, 3038),
previousVowel = c("U", "U", "ae"))
50和90对应于时间（元音持续时间的50％点在元音持续时间的90％点之前）。
我想将时间绘制为x轴，将共振峰值（四位数）绘制为y轴。我想按列名称中的F2或F3对颜色进行分组。该previousVowel列也很重要，因为最终我将要通过元音对数据进行子集化。我计划使用ggplot2，但我愿意接受其他绘图方法。
我考虑过做这样的事情：
time <- c(50,50,50,50,50,50)
formant <- c("F2","F2","F2","F3","F3","F3")
hz <- c(info.df$vowelFormantF2_50, info.df$vowelFormantF3_50)
newdataframe.df <- data.frame(time, formant, hz)
但是，随着此数据集的增长，这似乎很麻烦，并且也不会考虑元音本身。
有没有一种方法可以按照我想要的方式格式化此数据？
我会用tidyr：
library(tidyr)
df <- info.df %>% gather(var, val, -vowel) %>%
separate(var, into = c("formant", "time"))
这将给：
vowel formant time val
1 U vowelFormantF2 90 1117
2 U vowelFormantF2 90 1433
3 ae vowelFormantF2 90 2392
4 U vowelFormantF3 90 2820
5 U vowelFormantF3 90 3062
6 ae vowelFormantF3 90 2670
您可以添加：
library(dplyr)
df %>% mutate(formant = sub("vowelFormant", "", formant))
删除vowelFormant，只有F2，F3等。
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句