python - R 是否像 python 一样具有函数开头或结尾？

Question

> startsWith('abc', 'a')
[1] TRUE
> startsWith('abc', 'c')
[1] FALSE

> endsWith('abc', 'a')
[1] FALSE  
> endsWith('abc', 'c')
[1] TRUE

Answer 1

正如在 3.3.0中添加的base那样，startsWith(and endsWith) 就是这样。

> startsWith("what", "wha")
[1] TRUE
> startsWith("what", "ha")
[1] FALSE

https://stat.ethz.ch/R-manual/R-devel/library/base/html/startsWith.html

Answer 2

不是这样内置的。

选项包括grepl和substr。

x <- 'ABCDE'
grepl('^AB', x) # starts with AB?
grepl('DE$', x) # ends with DE?
substr(x, 1, 2) == 'AB'
substr('ABCDE', nchar(x)-1, nchar(x)) == 'DE'

Answer 3

dplyr 包的select声明支持starts_with和ends_with. 例如，这会选择 iris 数据帧中以Petal

library(dplyr)
select(iris, starts_with("Petal"))

select也支持其他子命令。试试?select。

Answer 4

我能想到的最简单的方法是使用%like%运算符：

library(data.table)

"foo" %like% "^f" 

评估为TRUE- 以f 开头

"foo" %like% "o$" 

评估为- 以oTRUE结尾

"bar" %like% "a"

评估为TRUE-包含

Answer 5

这通过使用 substring 函数相对简单：

> strings = c("abc", "bcd", "def", "ghi", "xyzzd", "a")
> str_to_find = "de"
> substring(strings, 1, nchar(str_to_find)) == str_to_find
[1] FALSE FALSE  TRUE FALSE FALSE FALSE

您使用子字符串将每个字符串切割成所需的长度。长度是您在每个字符串的开头查找的字符数。

Answer 6

dplyr从包中借用一些代码[see this]你可以这样做：

starts_with <- function(vars, match, ignore.case = TRUE) {
  if (ignore.case) match <- tolower(match)
  n <- nchar(match)

  if (ignore.case) vars <- tolower(vars)
  substr(vars, 1, n) == match
}

ends_with <- function(vars, match, ignore.case = TRUE) {
  if (ignore.case) match <- tolower(match)
  n <- nchar(match)

  if (ignore.case) vars <- tolower(vars)
  length <- nchar(vars)

  substr(vars, pmax(1, length - n + 1), length) == match
}