Получение и удаление первого символа строки

Question

Я хотел бы сделать несколько двумерных прогулок, используя строки символов, назначая разные значения каждому символу.Я планировал «вытолкнуть» первый символ строки, использовать его и повторить для остальной части строки.

Как мне добиться чего-то подобного?

x <- 'hello stackoverflow'

Iхотел бы иметь возможность сделать что-то вроде этого:

a <- x.pop[1]

print(a)

'h'
print(x)

'ello stackoverflow'

Answer 1

См. ?substring.

x <- 'hello stackoverflow'
substring(x, 1, 1)
## [1] "h"
substring(x, 2)
## [1] "ello stackoverflow"

---

Идея иметь метод pop, который одновременно возвращает значение и имеет побочный эффект обновления данных, хранящихся в x, в значительной степени является концепцией объектно-ориентированного программирования. Таким образом, вместо определения функции pop для работы с символьными векторами, мы можем создать ссылочный класс с помощью метода pop.

PopStringFactory <- setRefClass(
  "PopString",
  fields = list(
    x = "character"  
  ),
  methods = list(
    initialize = function(x)
    {
      x <<- x
    },
    pop = function(n = 1)
    {
      if(nchar(x) == 0)
      {
        warning("Nothing to pop.")
        return("")
      }
      first <- substring(x, 1, n)
      x <<- substring(x, n + 1)
      first
    }
  )
)

x <- PopStringFactory$new("hello stackoverflow")
x
## Reference class object of class "PopString"
## Field "x":
## [1] "hello stackoverflow"
replicate(nchar(x$x), x$pop())
## [1] "h" "e" "l" "l" "o" " " "s" "t" "a" "c" "k" "o" "v" "e" "r" "f" "l" "o" "w"

Answer 2

Существует также str_sub из пакета stringr

x <- 'hello stackoverflow'
str_sub(x, 2) # or
str_sub(x, 2, str_length(x))
[1] "ello stackoverflow"

Answer 3

Используйте эту функцию из stringi пакета

> x <- 'hello stackoverflow'
> stri_sub(x,2)
[1] "ello stackoverflow"

Answer 4

substring определенно лучше, но вот одна альтернатива strsplit, так как я еще не видел ее.paste остаток строки обратно вместе.

> paste0(strsplit(x, '')[[1]][-1], collapse = '')
## [1] "ello stackoverflow"

Answer 5

удаление первых символов:

x <- 'hello stackoverflow'
substring(x, 2, nchar(x))

Идея состоит в том, чтобы выбрать все символы, начиная с 2 до количества символов в x. Это важно, если у вас есть неравное количество символов в слове или фразе.

Выбор первой буквы тривиален, как и предыдущие ответы:

substring(x,1,1)

Answer 6

Другой альтернативой является использование захвата подвыражений с функциями регулярных выражений regmatches и regexec.

# the original example
x <- 'hello stackoverflow'

# grab the substrings
myStrings <- regmatches(x, regexec('(^.)(.*)', x))

. Возвращает всю строку, первый символ и результат «вытолкнутый»в списке длиной 1.

myStrings
[[1]]
[1] "hello stackoverflow" "h"                   "ello stackoverflow" 

, что эквивалентно list(c(x, substr(x, 1, 1), substr(x, 2, nchar(x)))).То есть он содержит супер набор нужных элементов, а также полную строку.

---

Добавление sapply позволит этому методу работать для символьного вектора длины> 1.

# a slightly more interesting example
xx <- c('hello stackoverflow', 'right back', 'at yah')

# grab the substrings
myStrings <- regmatches(x, regexec('(^.)(.*)', xx))

Возвращает список с совпавшей полной строкой в ​​качестве первого элементаи соответствующие подвыражения, захваченные () как следующие элементы.Так что в регулярном выражении '(^.)(.*)', (^.) соответствует первому символу, а (.*) соответствует оставшимся символам.

myStrings
[[1]]
[1] "hello stackoverflow" "h"                   "ello stackoverflow" 

[[2]]
[1] "right back" "r"          "ight back" 

[[3]]
[1] "at yah" "a"      "t yah" 

Теперь мы можем использовать надежный метод sapply + [вытащите нужные подстроки.

myFirstStrings <- sapply(myStrings, "[", 2)
myFirstStrings
[1] "h" "r" "a"
mySecondStrings <- sapply(myStrings, "[", 3)
mySecondStrings
[1] "ello stackoverflow" "ight back"          "t yah"