设置数据集子集

Question

我有以下数据(我只给出了前10行)。我想要得到subject == 19和stim == 1100-2时TRBV == TRBV20-1的值的倍数。

我尝试了下面的代码来隐藏数据

new_data <- my_data[my_data (my_data$subject == 'HAT-19' & my_data$stim == '1100-2'), TRBV == 'TRBV20-1')]

它给了我错误。

你能帮帮忙吗？

subject    stim       TRBV    
   <chr>   <chr>      <chr>   
 1 HAT-19  (2) 1100-2 TRBV20-1
 2 HAT-19  (2) 1100-2 TRBV7-6 
 3 HAT-19  (2) 1100-2 TRBV6-4 
 4 HAT-19  (2) 1100-2 TRBV6-4 
 5 HAT-1001 (3) BSV18  TRBV3-1 
 6 HAT-1  (3) BSV18  TRBV6-4 
 7 HAT-10 (2) 1100-2 TRBV3-1 
 8 HAT-12  (2) 1100-2 TRBV6-4 
 9 HAT-38  (2) 1100-2 TRBV6-1 
10 HAT-15 (2) 1100-2 TRBV6-1 

Answer 1

我只会使用dplyr和ifelse语句：

my_data %>%
  mutate(numoftimes = ifelse(subject == 'HAT-19' & stim == '1100-2' & TRBV == 'TRBV20-1',1,0)) %>% 
  sum(numoftimes)