ifelse 语句：如果字符串以特定字符集开始或结束，则删除它们

Question

我试图从字符串中删除一些字符，但由于某种原因，我的代码似乎不起作用。 我有以下数据

data <- as.data.frame (structure(list(col_name = c("applexz", "Jack", "Tablesxz", "aorange"))))
    
col_name

applexz
Jack
Tablexz
aorange

如果最后两个字符是“xz”，我试图告诉 R 删除最后两个字符（我想稍后用其他字符串和字符数重复它，例如删除第一个字符，如果它是 'a' ，就像这里的'aorange'）但是当我尝试不同的选项时没有任何反应，或者它在每一列中打印“NO”，没有检测到 substring - 问题出在哪里？

data$col2 <- ifelse (str_sub(data$col_name,  -1) == "xz", str_sub(data$col_name,1, nchar(data$col_name))-2, data$col_name) #this is to remove the last two characters if the condition is met

data$col2 <- ifelse (str_sub(data$col_name,  -1) == "xz", 'YES', 'NO')

data$col2 <- ifelse(grepl('^xz', data$col_name), 'YES', 'NO')

Answer 1

一个简单的正则表达式可以更简单地做到这一点：

sub("xz$", "", data$col_name)
# [1] "apple"   "Jack"    "Tables"  "aorange"

但是对于您的代码：

• str_sub(., -1)仅返回最后一个字母，您应该在假设ifelse知道如何处理它之前检查代码正在使用的内部值：

   stringr::str_sub(data$col_name, -1) # [1] "z" "k" "z" "e" ifelse(stringr::str_sub(data$col_name, -2) == "xz", 'YES', 'NO') # [1] "YES" "NO" "YES" "NO"

• 您的grepl正则表达式正在查看字符串的开头（ ^ ）而不是结尾（ $ ）。

   grepl("xz$", data$col_name) # [1] TRUE FALSE TRUE FALSE ifelse(grepl('xz$', data$col_name), 'YES', 'NO') # [1] "YES" "NO" "YES" "NO"

Answer 2

如果字符串以它们开头或结尾，这是一种删除特定字符集的方法：

mylist <- c("applexz", "xzJack", "Tablesxz", "aorange")
sub("^xz|xz$", "", mylist)
# [1] "apple"   "Jack"    "Tables"  "aorange"

使用 sub 时，如果字符串以它们开头 ("^xz") 或结尾 ("xz$")，则您将删除这些字符。 我相信这完全回答了这个问题。

Answer 3

str_sub() 将所有 arguments 回收为与最长参数相同的长度。 你需要使用

str_sub(data$col_name, start=-2, end=-1)

表示最后两个字符。 我不确定 str_sub() 如何用子字符串替换整个 data.frame，但是对于 data.frame 中的单个元素，您可以编写一个 for 循环来替换所有尾部“xz”

for(i in 1:length(data)){
  if(str_sub(data[i],  -2,-1) == "xz")
    str_sub(data[2],  -2,-1) <- ""
}

您也可以尝试 function 像 gsub() 或 sub()

sub("xz","",data$col_name)

此方法有一个潜在的缺点，即它将替换您的 data.frame 中找到的所有“xz”

例如，如果您有一个额外的条目“xzdef”，则 function 也会将“xzdef”变为“def”。