我有两个长data.frame
的以下子集:
df1 <- data.frame("trial" = c('SA1','SA2','ES1','SA3','SA4','ES5'), "Genotype" = c('GID1','GID1','GID1','GID2','GID2','GID2'))
df2 <- data.frame('GID1'= c('0','1'),'GID2'=c('1','0'))
我想做的是,我想用df1$Genotype
的同名索引df2
列,并通过将df2
的值替换为df1$trial
的值来展开df2
列。 df3
。
因此,我将df2
扩展为df3 <- data.frame('SA1'=c(0,1), 'SA2'=c(0,1), 'ES1'=c(0,1), 'SA3'= c(1,0),'SA4'=c(1,0),'ES5'=c(1,0))
如下:
data.frame
请注意,match
很大,我尝试了%in%
和<div slot="modal-footer" class="w-100">
<p class="float-left">Modal Footer Content</p>
<b-btn size="sm" class="float-right" variant="primary" @click="show=false">
Close
</b-btn>
</div>
之类的函数,但没有成功。
谢谢。
答案 0 :(得分:1)
比看起来容易:
registery.stop();
我们需要做的就是从@KafkaListener
中为df3 <- df2[df1$Genotype]
colnames(df3) <- df1$trial
df3
# SA1 SA2 ES1 SA3 SA4 ES5
# 1 0 0 0 1 1 1
# 2 1 1 1 0 0 0
的每一行选择正确的列,而我的第一行正是这样做的。