我正在尝试自学 R,在做一些示例问题时,我发现需要反转字符串。
这是我到目前为止所尝试过的,但粘贴操作似乎没有任何效果。
一定有一些我不理解列表的地方? (我也不明白为什么在 strsplit 之后需要 [[1]]。)
test <- strsplit("greg", NULL)[[1]]
test
# [1] "g" "r" "e" "g"
test_rev <- rev(test)
test_rev
# [1] "g" "e" "r" "g"
paste(test_rev)
# [1] "g" "e" "r" "g"
来自
?strsplit
,一个可以反转字符串向量中每个字符串的函数:
## a useful function: rev() for strings
strReverse <- function(x)
sapply(lapply(strsplit(x, NULL), rev), paste, collapse="")
strReverse(c("abc", "Statistics"))
# [1] "cba" "scitsitatS"
stringi
这个功能已经很久了:
stringi::stri_reverse("abcdef")
## [1] "fedcba"
另请注意,它是矢量化的:
stringi::stri_reverse(c("a", "ab", "abc"))
## [1] "a" "ba" "cba"
正如 @mplourde 指出的,你想要
collapse
参数:
paste(test_rev, collapse='')
R 中的大多数命令都是向量化的,但命令如何准确地处理向量取决于命令。
paste
将在多个向量上进行操作,组合每个向量的第 i
个元素:
> paste(letters[1:5],letters[1:5])
[1] "a a" "b b" "c c" "d d" "e e"
collapse
告诉它在向量内操作。
以下可能是反转字符串向量
x
的有用方法,并且速度稍快(并且内存效率更高),因为它避免了生成列表(如使用strsplit
):
x <- rep( paste( collapse="", LETTERS ), 100 )
str_rev <- function(x) {
sapply( x, function(xx) {
intToUtf8( rev( utf8ToInt( xx ) ) )
} )
}
str_rev(x)
如果您知道要使用 ASCII 字符并且速度很重要,可以使用快速 C 实现来反转内置于
Kmisc
中的字符串向量:
install.packages("Kmisc")
str_rev(x)
您还可以使用
IRanges
套餐。
library(IRanges)
x <- "ATGCSDS"
reverse(x)
# [1] "SDSCGTA"
您还可以使用
Biostrings
套餐。
library(Biostrings)
x <- "ATGCSDS"
reverse(x)
# [1] "SDSCGTA"
如果您的数据位于
data.frame
中,您可以使用 sqldf
:
myStrings <- data.frame(forward = c("does", "this", "actually", "work"))
library(sqldf)
sqldf("select forward, reverse(forward) `reverse` from myStrings")
# forward reverse
# 1 does seod
# 2 this siht
# 3 actually yllautca
# 4 work krow
这是一个返回整个反转字符串的函数,或者可选地返回仅保留由
index
指定的元素的反转字符串,从最后一个字符向后计数。
revString = function(string, index = 1:nchar(string)){
paste(rev(unlist(strsplit(string, NULL)))[index], collapse = "")
}
首先定义一个容易识别的字符串作为例子:
(myString <- paste(letters, collapse = ""))
[1] "abcdefghijklmnopqrstuvwxyz"
现在尝试使用和不使用索引的功能
revString
:
revString(myString)
[1] "zyxwvutsrqponmlkjihgfedcba"
revString(myString, 1:5)
[1] "zyxwv"
反转字符串最简单的方法:
#reverse string----------------------------------------------------------------
revString <- function(text){
paste(rev(unlist(strsplit(text,NULL))),collapse="")
}
#example:
revString("abcdef")
您可以使用前一篇文章中提到的 rev() 函数。
`X <- "MyString"
RevX <- paste(rev(unlist(strsplit(X,NULL))),collapse="")
输出:“gnirtSyM”
谢谢,
这是另一种基本 R 解决方案:
# Define function
strrev <- function(x) {
nc <- nchar(x)
paste(substring(x, nc:1, nc:1), collapse = "")
}
# Example
strrev("Sore was I ere I saw Eros")
[1] "sorE was I ere I saw eroS"
解决方案的灵感来自于这些美国奥克兰幻灯片。
以下代码将获取用户的输入并反转整个字符串 -
revstring=function(s)
print(paste(rev(strsplit(s,"")[[1]]),collapse=""))
str=readline("Enter the string:")
revstring(str)
这是
gsub
的解决方案。虽然我同意使用 strsplit
和 paste
更容易(正如其他答案中指出的那样),但看到它也适用于正则表达式可能会很有趣:
test <- "greg"
n <- nchar(test) # the number of characters in the string
gsub(paste(rep("(.)", n), collapse = ""),
paste("", seq(n, 1), sep = "\\", collapse = ""),
test)
# [1] "gerg"
##function to reverse the given word or sentence
reverse <- function(mystring){
n <- nchar(mystring)
revstring <- rep(NA, n)
b <- n:1
c <- rev(b)
for (i in 1:n) {
revstring[i] <- substr(mystring,c[(n+1)- i], b[i])
}
newrevstring <- paste(revstring, sep = "", collapse = "")
return (cat("your string =", mystring, "\n",
("reverse letters = "), revstring, "\n",
"reverse string =", newrevstring,"\n"))
}
因此,显然前端 JS 开发人员被要求在 JS 中执行此操作(用于面试),而不使用内置的反向函数。我花了几分钟,但我想出了:
string <- 'hello'
foo <- vector()
for (i in nchar(string):1) foo <- append(foo,unlist(strsplit(string,''))[i])
paste0(foo,collapse='')
所有这些都可以包装在一个函数中......
高阶泛函呢?减少?
可能不如这里的其他答案那么有效,但是
substr
- 与substring
相反(参见这个答案) - 可以通过使用重复值向量或Map
函数强制字符串反转:
S="olYUH nitup"
paste0(substr(rep(S, n<-nchar(S)), n:1, n:1), collapse="")
>[1] "putin HUYlo"
Reduce(paste0, Map(\(j)substr(S, j, j), nchar(S):1))
>[1] "putin HUYlo"