字符串的链接

zfb

在stringr中有一个str_c的函数用来连接字符串，
为什么不能在R中建立一个类似与python或者ruby中的+函数来连接字符串呢？

实现如下：


library(stringr)
"+.character" <- function(x,y){
  str_c(x,y)
}

测试时，报错


> "a"+"b"
Error in "a" + "b" : non-numeric argument to binary operator

sxu341

我觉得可以直接用paste吧，比如

paste("a","b",sep=",")
[1] "a,b"

zfb

[未知用户]
确实可以，但如果能用通用的+号来实现应该会节省点存储。

doubletang

Try this:

`+` <- function(x,y){
str_c(x,y)
}

zfb

[未知用户]
这样会覆盖原有的+


> "+" <- function(x,y) str_c(x,y)
> 1 + 2
[1] "12"

ryo

回复 5 楼的 zfb：
[未知用户]
原来函数还可以使用引号哦，不过尝试'abc'却不行！呵呵，学习学习... :-)
1+1=11

> "+" <- function(x,y) str_c(x,y)
> +
+ \
Error: unexpected input in:
"+
\"
> 1 + 2
[1] "12"
> "abc" <- function(x,y) str_c(x,y)
> 1 abc 2
Error: unexpected symbol in "1 abc"
> "a" <- function(x,y) str_c(x,y)
> 1 a 2
Error: unexpected symbol in "1 a"
> 1a2
Error: unexpected symbol in "1a2"
> "" <- function(x,y) str_c(x,y)
Error: attempt to use zero-length variable name
> 'abc' <- function(x,y) str_c(x,y)
> 1 abc 2
Error: unexpected symbol in "1 abc"
> 1 'abc' 2

zfb

[未知用户]
其他的中置操作符需要用%包起来：


> "%abc%" <- function(x,y) str_c(x,y)
> 1 %abc% 2
[1] "12"