Заменить определенные символы в строках

262

Я хотел бы удалить определенные символы из строк в векторе, аналогично функции поиска и замены в Excel.

Вот данные, с которых я начинаю:

group <- data.frame(c("12357e", "12575e", "197e18", "e18947")

Я начинаю только с первого столбца; Я хочу создать второй столбец, удалив e:

group       group.no.e
12357e      12357
12575e      12575
197e18      19718
e18947      18947
Люк
источник

Ответы:

399

С регулярным выражением и функцией gsub():

group <- c("12357e", "12575e", "197e18", "e18947")
group
[1] "12357e" "12575e" "197e18" "e18947"

gsub("e", "", group)
[1] "12357" "12575" "19718" "18947"

Что gsubделает здесь , чтобы заменить каждое вхождение "e"с пустой строкой "".


Смотрите ?regexpили gsubдля получения дополнительной помощи.

Andrie
источник
15
fixed = TRUEсделает это быстрее.
Rich Scriven
4
@RichScriven, не могли бы вы вкратце объяснить, почему?
застеклено
6
fixed=TRUEне позволяет R использовать регулярные выражения, которые позволяют более гибко сопоставлять шаблоны, но требуют времени для вычислений. Если все, что нужно, это удалить одну постоянную строку «е», они не нужны.
mm689
Будет ли sub("e", "", group)держать тот же результат?
Матеус Сантана
просто заменит первый eнайденный в каждом элементе
sindri_baldur
47

Регулярные выражения ваших друзей:

R> ## also adds missing ')' and sets column name
R> group<-data.frame(group=c("12357e", "12575e", "197e18", "e18947"))  )
R> group
   group
1 12357e
2 12575e
3 197e18
4 e18947

Теперь используйте gsub()самый простой шаблон замены: empty string:

R> group$groupNoE <- gsub("e", "", group$group)
R> group
   group groupNoE
1 12357e    12357
2 12575e    12575
3 197e18    19718
4 e18947    18947
R> 
Дирк Эддельбюттель
источник
3
Также ...require(stringr);group$groupNoE <- str_replace(group$group, "e", "")
Дикоа
26
Ну, я мог бы посмеяться над тем, что «Те, кто не понимает базовых функций, обречены на их замену». Что именно здесь делает Стрингер, помимо увеличения количества подчеркиваний в вашем исходном файле?
Дирк Эддельбюттель
8
« stringr - это набор простых оболочек, которые делают строковые функции R более согласованными, простыми и удобными в использовании » от автора пакета. Так что, если то, что вы говорите, верно (многие подчеркивают, чтобы обернуть базовые функции ...), нет никаких оснований для существования этого пакета (отказ от ответственности: я в основном использую функции базовых регулярных выражений, но я знаю, что они могут быть трудными для новых пользователей ... )
dickoa
17
@dickoa: str_replaceобертывания sub, поэтому он заменит только первое вхождение шаблона. Вам нужно будет использовать, str_replace_allесли вы хотите такое же поведение, как gsub.
Джошуа Ульрих
24

Обобщая 2 способа замены строк:

group<-data.frame(group=c("12357e", "12575e", "197e18", "e18947"))

1) Использование gsub

group$group.no.e <- gsub("e", "", group$group)

2) Используйте stringrпакет

group$group.no.e <- str_replace_all(group$group, "e", "")

Оба будут производить вывод желания:

   group group.no.e
1 12357e      12357
2 12575e      12575
3 197e18      19718
4 e18947      18947
Мегатрон
источник
3
В то время вам приходилось читать всю страницу, включая комментарии, чтобы узнать синтаксис для stringr, моего предпочтительного метода, так как он в основном обсуждался в комментариях. Это решение быстро представляет оба варианта, поэтому я и предложил его. Я надеялся помочь другим пользователям отфильтровать то же самое, что и я, когда был новичком в R. Я боролся с gsub, прежде чем нашел stringr, потому что об этом не было сказано в ответе с большим количеством голосов. Опять же, цель состоит не в том, чтобы собрать голоса, а попытаться выручить новых пользователей R.
Мегатрон
Если вы найдете информацию в других ответах / комментариях, которую вы найдете полезной и хотите преобразовать в ответ, вы можете по крайней мере предоставить некоторую атрибуцию, чтобы показать, откуда вы получили информацию / сделать ответ в Comminuty Wiki, вместо того, чтобы просто сделать его как твой собственный.
Давид Аренбург
Спасибо - буду иметь в виду на следующий раз. Никогда раньше не создавал вики сообщества, поэтому не знал, что это вариант.
Мегатрон
1
Вариант 2 прекрасно работает при применении к столбцу данных во фрейме данных без указания всех значений в столбце. Очевидно, вариант 1 является повторением, но вариант 2 работает очень хорошо и заслуживает одобрения за добавленную функциональность.
Phil_T
6

Вам не нужно создавать фрейм данных из вектора строк, если вы хотите заменить некоторые символы в нем. Регулярные выражения - хороший выбор для этого, поскольку это уже упоминалось @Andrie и @Dirk Eddelbuettel.

Обратите внимание: если вы хотите заменить специальные символы, такие как точки, вы должны использовать полный синтаксис регулярного выражения, как показано в примере ниже:

ctr_names <- c("Czech.Republic","New.Zealand","Great.Britain")
gsub("[.]", " ", ctr_names)

это будет производить

[1] "Czech Republic" "New Zealand"    "Great Britain" 
Александр
источник
Вы можете просто убежать от них, но вы также должны убежать от побега, потому что он в кавычках:gsub("\\.", " ", ctr_names)
Kamil S Jaron
4

Используйте пакет stringi :

require(stringi)

group<-data.frame(c("12357e", "12575e", "197e18", "e18947"))
stri_replace_all(group[,1], "", fixed="e")
[1] "12357" "12575" "19718" "18947"
MERose
источник
0
      library(stringi)

            group <- c('12357e', '12575e', '12575e', ' 197e18',  'e18947')

            pattern <- "e"  
            replacement <-  ""  
            group <- str_replace(group, pattern, replacement)      
            group    

[1] "12357"  "12575"  "12575"  " 19718" "18947" 
Аня Сти
источник