我想知道如何在 R 中编写字符串连接运算符，例如 ||在 SAS 中，在 Java/C# 中为 + 或在 Visual Basic 中为 &。
最简单的方法是使用 % 创建一个特殊的运算符，例如
`%+%` <- function(a, b) paste(a, b, sep="")
但这会导致代码中有很多丑陋的%。
我注意到+ 是在 Ops 组中定义的，您可以为该组编写 S4 方法，所以也许这样的方法是可行的。但是，我完全没有使用 S4 语言功能的经验。如何修改上述函数以使用 S4？
【问题讨论】：
`%+%` = paste0 与 OP 的实现相同。
标签： string r string-concatenation
我会试试这个（相对更干净的 S3 解决方案）
`+` <- function (e1, e2) UseMethod("+")
`+.default` <- function (e1, e2) .Primitive("+")(e1, e2)
`+.character` <- function(e1, e2)
if(length(e1) == length(e2)) {
paste(e1, e2, sep = '')
} else stop('String Vectors of Different Lengths')
上面的代码会将+改为泛型，并将+.default设置为原来的+，然后将新方法+.character添加到+
【讨论】：
"baz" + "foobar" 可以，"baz" + c("foo", "bar") 不行。
正如其他人所提到的，您不能覆盖密封的 S4 方法“+”。但是，您无需定义新类即可为字符串定义加法函数；这并不理想，因为它迫使您转换字符串类，从而导致更丑陋的代码。相反，可以简单地覆盖“+”函数：
"+" = function(x,y) {
if(is.character(x) || is.character(y)) {
return(paste(x , y, sep=""))
} else {
.Primitive("+")(x,y)
}
}
那么以下应该都按预期工作：
1 + 4
1:10 + 4
"Help" + "Me"
这个解决方案感觉有点像 hack，因为您不再使用正式的方法，而是获得您想要的确切行为的唯一方法。
【讨论】：
Primitive("+") 确实允许混合类型（例如TRUE+1L、1L+1.0）。我建议您添加自己的答案，而不是更改接受的答案。
?ggplot2::%+%``。
如果 R 完全符合 S4，那么以下内容就足够了：
setMethod("+",
signature(e1 = "character", e2 = "character"),
function (e1, e2) {
paste(e1, e2, sep = "")
})
但这会导致方法被密封的错误:((。希望这会在 R 的功能版本中改变。
你能做的最好的就是定义一个新的类“字符串”，它的行为与“字符”类完全一样：
setClass("string", contains="character")
string <- function(obj) new("string", as.character(obj))
并定义 R 允许的最通用方法：
setMethod("+", signature(e1 = "character", e2 = "ANY"),
function (e1, e2) string(paste(e1, as.character(e2), sep = "")))
现在试试：
tt <- string(44444)
tt
#An object of class "string"
#[1] "44444"
tt + 3434
#[1] "444443434"
"sfds" + tt
#[1] "sfds44444"
tt + tt
#[1] "4444444444"
343 + tt
#Error in 343 + tt : non-numeric argument to binary operator
"sdfs" + tt + "dfsd"
#An object of class "string"
#[1] "sdfs44444dfsd"
【讨论】：
您也可以为此使用 S3 类：
String <- function(x) {
class(x) <- c("String", class(x))
x
}
"+.String" <- function(x,...) {
x <- paste(x, paste(..., sep="", collapse=""), sep="", collapse="")
String(x)
}
print.String <- function(x, ...) cat(x)
x <- "The quick brown "
y <- "fox jumped over "
z <- "the lazy dog"
String(x) + y + z
【讨论】：
你已经给了自己正确的答案——R 中的一切都是函数，你不能定义新的运算符。所以%+% 是最好的。
【讨论】：