哪一組符合標(biāo)準(zhǔn)a<b<c取決于條件

我的標(biāo)題可能信息量不大,但這是一個(gè)暴露我問(wèn)題的例子:

我有這個(gè)數(shù)據(jù)框:

df=data.frame(cond1=c(1,1,1,2,2,2,3,3,3,1,1,1,2,2,2,3,3,3),
              group=c("F","V","M","F","V","M","F","V","M","F","V","M","F","V","M","F","V","M"),
              gene=c("A","A","A","A","A","A","A","A","A","B","B","B","B","B","B","B","B","B"),
              value=c(1,2,3,4,5,6,7,8,9,1,3,2,4,3,2,2,3,4))
df
       cond1 group gene value
    1      1     F    A     1
    2      1     V    A     2
    3      1     M    A     3
    4      2     F    A     4
    5      2     V    A     5
    6      2     M    A     6
    7      3     F    A     7
    8      3     V    A     8
    9      3     M    A     9
    10     1     F    B     1
    11     1     V    B     3
    12     1     M    B     2
    13     2     F    B     4
    14     2     V    B     3
    15     2     M    B     2
    16     3     F    B     2
    17     3     V    B     3
    18     3     M    B     4

我想得到的是,對(duì)于每個(gè)基因,有多少不同的cond1的值對(duì)應(yīng)于F組,小于它們對(duì)應(yīng)于V的值,它們對(duì)應(yīng)于M的值。

在前三個(gè)品系中,我們的第二個(gè)基因是A。對(duì)應(yīng)于組F=1、V=2、M=3的值。因此,對(duì)于cond1=1組的A基因,F(xiàn)<V<M。

我對(duì)基因A的預(yù)期輸出是3,因?yàn)樗衏ond1組的值都滿足F<V<M。我對(duì)基因B的預(yù)期輸出是1,因?yàn)橹挥衏ond1=3組的值符合F<V<M。

理想情況下,我希望的輸出是一個(gè)數(shù)據(jù)幀,其中包含gene和cond1之和,不滿足我的標(biāo)準(zhǔn):

  gene count
1    A     3
2    B     1

如果你能給我一些建議,告訴我該怎么做,我將不勝感激

? 最佳回答:

檢查所有數(shù)據(jù)是否按遞增順序排列,并計(jì)算每個(gè)gene存在多少這樣的值。

library(dplyr)

df %>%
  #If the data is not ordered, order it using arrange
  #arrange(gene, cond1, match(group, c('F', 'V', 'M'))) %>%
  group_by(gene, cond1) %>%
  summarise(cond = all(diff(value) > 0)) %>%
  summarise(count = sum(cond))

#  gene  count
#  <chr> <int>
#1 A         3
#2 B         1
主站蜘蛛池模板: 天堂资源中文最新版在线一区| 国偷自产Av一区二区三区吞精| 国产福利在线观看一区二区| 日本不卡免费新一区二区三区| 日本韩国一区二区三区| 久久国产精品一区免费下载 | 国产成人无码AV一区二区在线观看| 极品人妻少妇一区二区三区| 国产色综合一区二区三区 | 在线观看午夜亚洲一区| 国产剧情一区二区| 99国产精品欧美一区二区三区| 国产成人精品久久一区二区三区| 日本成人一区二区三区| 韩日午夜在线资源一区二区 | 精品不卡一区中文字幕 | 成人精品一区二区三区不卡免费看| 波多野结衣中文一区| 日韩伦理一区二区| 精品无码中出一区二区| 日本一区二区三区日本免费| 在线不卡一区二区三区日韩| 亚洲AV无码一区二区三区性色| 国产精品高清一区二区三区不卡| 人妻体内射精一区二区三区| 久久精品黄AA片一区二区三区| 久久久精品人妻一区二区三区四 | 亚洲国产成人精品久久久国产成人一区二区三区综 | 日本道免费精品一区二区| 中文字幕乱码一区二区免费| 久久久一区二区三区| 亚洲国产福利精品一区二区| 亚洲A∨精品一区二区三区下载 | 亚洲一区二区电影| 亚洲综合色一区二区三区小说| 国产成人欧美一区二区三区| 国产成人精品视频一区| 变态调教一区二区三区| 亚洲综合色自拍一区| 国产乱码精品一区二区三区中| 欧美人妻一区黄a片|