如果/其他基于最后一个字符

Question

我想对字符串的最后一个字符执行if / else

数据如下所示：

Product:     
ANCHOR AEROSOL CREAM 250G - 2003726   
ARLA B.O.B SKIMMED MILK 2L - 7787579

如果它有一个LI想要将1.03放在一列中否则为1

到目前为止，我将字符串拆分并绑定

extra <- str_split(sains_part$Product, "-", simplify = TRUE)
final <- cbind(sains_part, extra)

但是现在我不怎么说如果数据以'L'结尾，则将1.03否则为1并重新组合

Answer 1

您可以使用一些正则表达式来代替拆分字符串。 获取"-"之前的字符，并检查它是"L"还是"G"并相应地分配值。

df$Value <- c(1, 1.03)[(sub(".*(.)\\s+-.*", "\\1", df$Product) == "L") + 1]
df
#                               Product value
#1  ANCHOR AEROSOL CREAM 250G - 2003726  1.00
#2 ARLA B.O.B SKIMMED MILK 2L - 7787579  1.03

数据

df <- structure(list(Product = structure(1:2, .Label = c("ANCHOR AEROSOL 
CREAM 250G - 2003726", 
"ARLA B.O.B SKIMMED MILK 2L - 7787579"), class = "factor")), class = 
"data.frame", row.names = c(NA, -2L))

Answer 2

我们可以使用grepl

df$Value <- c(1, 1.03)[grepl("\\b\\d+L\\b", df$Product) + 1]
df$Value
#[1] 1.00 1.03

数据

df <- structure(list(Product = c("ANCHOR AEROSOL CREAM 250G - 2003726", 
"ARLA B.O.B SKIMMED MILK 2L - 7787579")), class = "data.frame",
row.names = c(NA, 
-2L))

Answer 3

如果字符串的两个部分始终由' - '分隔，并且该字符序列在其他任何地方都没有出现，则可以避免使用特殊的正则表达式元字符，而是检查字符串是否包含'L - '

df$value <- 1 + grepl('L - ', df$Product)*.03