替换R中字符串中的元素

Question

我在R的数据框中有一行，它由长度不确定的0s 1s和2s作为字符的序列组成。 所以“ 01”，“ 010”，“ 201”，“ 102”，“ 00012” ...这样的事情。

我想找到一种方法来确定字符串中的最后一个字符是否在数值上最大。 将行保留在数据框中作为字符用于其他目的很重要。 因此，基本上我想使用substr(x, nchar(x), nchar(x))并确定它是否为数字，是字符串中最大的数字。

我对如何执行此操作迷失了，因为我对正则表达式并不十分熟悉，而且我不得不在处理字符和数字等元素之间来回切换。

提前致谢。

〜莫琳

Answer 1

令df为数据帧的名称，字符串序列为“ 01”，“ 010”，“ 201”，“ 102”，“ 00012”的行为No.2。 如果字符串中的最后一个字符在数值上最大，则可以得到一个向量来回答这个问题：

sapply(strsplit(as.character(df[2,]),""),function(x) x[length(x)] >= max(x))
[1]  TRUE FALSE FALSE  TRUE TRUE

Answer 2

一种方法是

p <- as.numeric(strsplit("0120102","")[[1]])
if (max(p) == p[length(p)]) {
   print("yes")
}

实际上，您可以忽略as.numeric（），因为“ 2”>“ 1”>“ 0”：

p <- strsplit("0120102", "")[[1]]

如果要将其应用于data.frame A：

apply(A, c(1,2), function(z) {p<-strsplit(z, "")[[1]];(max(p) == p[length(p)])})

Answer 3

正则表达式为[0-9] $以获得最后一个数字，其余逻辑取决于您所开发的环境。

Answer 4

我认为您最好的选择是看看regex在R语言中的工作方式：

http://www.regular-expressions.info/rlanguage.html

就像上面的帖子中的Dan Heberden所说的那样，您需要对在示例中给出的字符串进行标记化，然后grep（...？）将正则表达式“ [0-9] $”的标记化。 顺便说一下，使用正则表达式，您可以将所有内容都视为字符，因此，除了在获取grep函数的结果并将其解析为数字形式时，您不必在数字和字符模式之间来回穿梭比较。