Вот мой вопрос, первый фрейм данных выводится внутри функции, которая будет применяться к большему фрейму данных2 для его поднабора.
# dataframe1
loc <- c(paste('Loc', 1:9, sep = ''))
qit <- c(13, 27, 16, 14, 15, 21, 12, 11, 8)
mydf <- data.frame(loc, qit)
loc qit
1 Loc1 13
2 Loc2 27
3 Loc3 16
4 Loc4 14
5 Loc5 15
6 Loc6 21
7 Loc7 12
8 Loc8 11
9 Loc9 8
#dataframe 2
loc <- c(paste('Loc', 1:9, sep = ''))
vloc <- c(rep(loc, each=2))
allele <- c(
13, 12, 27, 20, 16, 18,
14, 17, 15, 22, 21, 26,
12, 14, 11, 18, 8, 24
)
afreq <- c( 0.308, 0.4, 0.041, 0.5, 0.125, 0.5,
0.139, 0.2, 0.219, 0.2,0.176, 0.33,
0.358, 0.4, 0.274, 0.5, 0.173, 0.15)
loctab <- data.frame(vloc, allele, afreq)
vloc allele afreq
1 Loc1 13 0.308
2 Loc1 12 0.400
3 Loc2 27 0.041
4 Loc2 20 0.500
5 Loc3 16 0.125
6 Loc3 18 0.500
7 Loc4 14 0.139
8 Loc4 17 0.200
9 Loc5 15 0.219
10 Loc5 22 0.200
11 Loc6 21 0.176
12 Loc6 26 0.330
13 Loc7 12 0.358
14 Loc7 14 0.400
15 Loc8 11 0.274
16 Loc8 18 0.500
17 Loc9 8 0.173
18 Loc9 24 0.150
То, что я хочу сделать новый фрейм данных, как mydf, с дополнительной переменной afreq из dataframe2.Я попытался поднастроить это:
loctab[loctab$allele %in% mydf$qit, ]
vloc allele afreq
1 Loc1 13 0.308
2 Loc1 12 0.400
3 Loc2 27 0.041
5 Loc3 16 0.125
7 Loc4 14 0.139
9 Loc5 15 0.219
11 Loc6 21 0.176
13 Loc7 12 0.358
14 Loc7 14 0.400
15 Loc8 11 0.274
17 Loc9 8 0.173
Я не получил то, что хочу.Здесь подмножество не заботится о переменной vloc или loc.При этом всякий раз, когда он получает совпадение для всех значений в qit, будет его поднабор.Есть ли в любом случае подмножество, поставив ссылку на loc или vloc.