제목 - xlab size in r




R에는 Perl의 qw()와 같은 연산자가 있습니까? (4)

누구든지 R에 문자 벡터를 생성하기위한 Perl의 qw() 와 같은 따옴표와 같은 연산자가 있다면 알 수 있습니까?


Rprofile.site 파일에이 함수를 추가했습니다 (익숙하지 않은 경우 ?Startup 참조).

qw <- function(x) unlist(strsplit(x, "[[:space:]]+"))

qw("You can type    text here
    with    linebreaks if you
    wish")
#  [1] "You"        "can"        "type"       "text"      
#  [5] "here"       "with"       "linebreaks" "if"        
#  [9] "you"        "wish"    

널리 사용되는 Hmisc 패키지Cs() 함수를 제공합니다.

library(Hmisc)
Cs(foo,bar)
[1] "foo" "bar"

hadley의 대답과 비슷한 전략을 사용합니다.

Cs
function (...) 
{
    if (.SV4. || .R.) 
        as.character(sys.call())[-1]
    else {
        y <- ((sys.frame())[["..."]])[[1]][-1]
        unlist(lapply(y, deparse))
    }
}
<environment: namespace:Hmisc>

아니요, 직접 작성할 수 있습니다.

q <- function(...) {
  sapply(match.call()[-1], deparse)
}

그리고 그것을 단지 보여주기 위해 :

> q(a, b, c)
[1] "a" "b" "c"

qw = function(s) unlist(strsplit(s,' '))






perl