library(tidyverse)

data %>%  # 假设数据是data.frame形式，变量名'data'

    # 针对每行处理的问题可以转化为根据行数来分组

    group_by(row_number()) %>%

    # 将C1到C5的维度折叠至一个统一的维度'col_seq'

    gather(col_seq, value, 1:5) %>%

    # 根据现在组内的顺序增加‘标记’

    mutate(seq = row_number()) %>%

    # 去除原来的C1，C2列的数据

    filter(seq >= 3) %>%

    # 去除数值小于4的数据

    filter(value >=4) %>%

    # 每一组（原每一行）符合条件的第一个数据保留

    slice(1) %>% 

    # 将对应的顺序标记提取出来。

    pull(seq)