Warning: file_get_contents(/data/phpspider/zhask/data//catemap/9/loops/2.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
循环向量(R中的内省?)或其他方法_R_Loops - Fatal编程技术网

循环向量(R中的内省?)或其他方法

循环向量(R中的内省?)或其他方法,r,loops,R,Loops,我有一个带有列标题的tf值表共振峰元音长度IL SG 这就是我获得他们价值观的方式: f1a <- subset(tf, tf$vowel=='a' & tf$formant=='F1')$IL f2a <- subset(tf, tf$vowel=='a' & tf$formant=='F2')$IL f1e <- subset(tf, tf$vowel=='e' & tf$formant=='F1')$IL f2e <- subset(tf,

我有一个带有列标题的
tf
值表
共振峰元音长度IL SG

这就是我获得他们价值观的方式:

f1a <- subset(tf, tf$vowel=='a' & tf$formant=='F1')$IL
f2a <- subset(tf, tf$vowel=='a' & tf$formant=='F2')$IL

f1e <- subset(tf, tf$vowel=='e' & tf$formant=='F1')$IL
f2e <- subset(tf, tf$vowel=='e' & tf$formant=='F2')$IL

f1a看看
split

tf <- data.frame(
  formant = sample(c("F1","F2"), 100, T),
  vowels = sample(c('a', 'e', 'i', 'o', 'u'), 100, T),
  IL = runif(100)
)
split(tf$IL, paste(tolower(tf$formant), tf$vowels, sep=""))
tf使用此数据集:

tf <- data.frame(formant=c("F1","F2"),vowel=c('a', 'e', 'i', 'o', 'u'),IL=rnorm(100))

vowel<-c('a', 'e', 'i', 'o', 'u')
另一个选项,使用plyr:

library(plyr)
foo<-dlply(tf,.(formant,vowel),function(x)x$IL)

foo$F1.e
foo$F2.a
库(plyr)

Foo你对列表有什么感觉?列表在我的学习日程上,谢谢你提醒我!:)谢谢,萨卡。当我试图用
重塑
解决上述问题时,我遇到了
plyr
,但它似乎令人困惑。我也会试试这个。
library(plyr)
foo<-dlply(tf,.(formant,vowel),function(x)x$IL)

foo$F1.e
foo$F2.a