У меня есть строка, которая выглядит так:
str<-"a\f\r"
Я пытаюсь удалить обратную косую черту, но ничего не работает:
gsub("\","",str, fixed=TRUE)
gsub("\\","",str)
gsub("(\)","",str)
gsub("([\])","",str)
... в основном все варианты, которые вы можете себе представить. Я даже попробовал функцию string_replace_all. ЛЮБАЯ ПОМОЩЬ?
Я использую R 3.1.1; Mac OSX 10.7; dput для одной строки в моем векторе строк дает:
dput(line)
"ud83d\ude21\ud83d\udd2b"
Я импортировал файл, используя readLines из стандартного .txt. Содержимое файла выглядит примерно так:
got an engineer booked for this afternoon \ud83d\udc4d all now hopefully sorted\ud83d\ude0a I m going to go insane ud83d\ude21\ud83d\udd2b in utf8towcs …
Спасибо.
Поскольку нет прямых способов борьбы с одиночными обратными косыми чертами, здесь самое близкое решение проблемы, предложенное Дэвидом Аренбургом в разделе комментариев
gsub("[^A-Za-z0-9]", "", str) #remove all besides the alphabets & numbers
При вводе обратной косой черты с клавиатуры всегда избегайте их.
str <-"this\\is\\my\\string" # note doubled backslashes -> 'this\is\my\string'
gsub("\\", "", str, fixed=TRUE) # ditto
str2 <- "a\\f\\r" # ditto -> 'a\f\r'
gsub("\\", "", str2, fixed=TRUE)# ditto
Обратите внимание, что если вы делаете
str <- "a\f\r"
тогда str содержит обратной косой черты. Он состоит из 3 символов a, \f (которые обычно не печатаются, кроме как \f и \r (то же самое).
И просто чтобы избежать возможного вопроса. Если ваши данные были прочитаны из файла, файл не должен иметь двойной обратной косой черты. Например, если у вас есть файл test.txt содержащий
a\b\c\d\e\f
и вы делаете
str <- readLines("test.txt")
тогда str будет содержать строку a\b\c\d\e\f как и следовало ожидать: 6 букв, разделенных 5 одиночными обратными слешами. Но вам все равно придется вводить двойную обратную косую черту, если вы хотите работать с ней.
str <- gsub("\\", "", str, fixed=TRUE) # now contains abcdef
С точки dput, похоже, что у вас есть текст в кодировке UTF-16, который, вероятно, пришел с машины Windows. В соответствии с
он кодирует глифы в дополнительной многоязычной плоскости, которая довольно неясна. Я предполагаю, что вам нужно предоставить аргумент encoding="UTF-16" для readLines когда вы читаете в файле.
Это может быть полезно:)
require(stringi)
stri_escape_unicode("ala\\ma\\kota")
## [1] "ala\\\\ma\\\\kota"
stri_unescape_unicode("ala\\ ma\\ kota")
## [1] "ala ma kota"
Одно вполне универсальное решение
gsub("\\\\", "", str)
Благодаря вышеприведенному комментарию.
Это то же самое, что и принятый ответ, но меньше удаляется (только символы не ascii):
gsub("[^ -~]", '', "a\f\r")
## [1] "a"
вы можете использовать str_replace_all (str, "\\" "/" ) после добавления еще одной обратной косой черты как "a\f\r"