R:grepl和if组合

Question

我有一张数据文件，看起来是这样的：

prccd  isin 
2      AR7463
7      AR12345
4      BD5347
5      CF29394

现在，如果第二列以AR开始，则目标是用数字(例如，5)乘第一列，如果第二列以BD开始，则用例如2乘以它，等等。我能做到吗？我试过这样的方法：

currencies<-function(GBP,CHF){
  if (grepl("^GB",data$isin)==TRUE){
    data[,"prccd"]*GBP[,"one_GBP_equivalent_to_x_EUR"]
  }
  if (grepl("^CH",data$isin)==TRUE){
    data[,"prccd"]*CHF[,"one_CHF_equivalent_to_x_EUR"]
  }
}

但我收到以下警告：

Warning messages:
1: In if (grepl("^GB", data$isin) == TRUE) { :
  the condition has length > 1 and only the first element will be used

Answer 1

类似于前两个条件，在第三个条件中，您可以根据第二列中的前两个字母来替换任何想要乘的条件。

library(dplyr)
df %>% mutate(col = case_when(substr(isin,1,2) == 'AR' ~ prccd * 5,
                               substr(isin,1,2) == 'BD' ~ prccd * 2,
                               TRUE ~ prccd * 1))
# A tibble: 4 x 3
  prccd isin      col
  <dbl> <chr>   <dbl>
1     2 AR7463     10
2     7 AR12345    35
3     4 BD5347      8
4     5 CF29394     5