Làm thế nào tôi có thể ghép các đối tượng ngôn ngữ ghép trong R?

Question

Tôi đang cố gắng xây dựng các biểu thức trong R bằng cách ghép các biểu thức nhỏ hơn. Ví dụ trong S + tôi có thể làm điều này:

> x = substitute({a;b;c}) 
> y = substitute({d;e;f}) 
> c(x,y) 
{ 
    a 
    b 
    c 
    d 
    e 
    f 
} 

nhưng nếu tôi thử nó trong R, tôi có được điều này:

> c(x,y) 
[[1]] 
{ 
    a 
    b 
    c 
} 

[[2]] 
{ 
    d 
    e 
    f 
} 

Tôi có nên làm điều này một cách khác?

Answer 1

Các nhận xét gắn liền với câu trả lời @ baptiste làm cho điểm x và y không phải là đối tượng thuộc loại "expression" (một trong chín loại vectơ cơ bản được R) sử dụng. Do đó, chúng không thể kết hợp bằng cách sử dụng c(), vì chúng có thể nếu chúng thực tế là các vectơ expression.

Nếu bạn thực sự muốn kết hợp đối tượng của lớp "{" (được gọi là "đối tượng ngôn ngữ hợp chất" trong this section của Definition R Language) bạn có thể làm một cái gì đó như thế này:

x <- substitute({a;b;c}) 
y <- substitute({d;e;f}) 
class(x) 
# [1] "{" 

as.call(c(as.symbol("{"), c(as.list(x)[-1], as.list(y)[-1]))) 
{ 
    a 
    b 
    c 
    d 
    e 
    f 
} 

Sau đó, nếu bạn sẽ thực hiện việc này thường xuyên, bạn có thể tạo một hàm kết hợp một bộ đối tượng tùy ý của lớp "{":

myC <- function(...) { 
    ll <- list(...) 
    ll <- lapply(ll, function(X) as.list(X)[-1]) 
    ll <- do.call("c", ll) 
    as.call(c(as.symbol("{"), ll)) 
} 

# Try it out 
myC(x, y, y, y, x) 

Answer 2

Tôi nghĩ một cách là lấy các thành phần của x và y. Nó sẽ luôn luôn là trường hợp mà x[1] là "{}", vì vậy bạn có thể làm:

x[(length(x)+1):(length(x)+length(y)-1)] <- y[2:(length(y))] 

Mặc dù tôi tưởng tượng có một cách rõ ràng hơn.

Answer 3

Bỏ qua ví dụ bạn đưa ra trong câu hỏi của bạn trong thời gian tới,

x = expression(a,b,c) 
y = expression(d,e,f) 
c(x,y) 

Bây giờ, những gì sắp xếp của các đối tượng bạn đang cố gắng để tiếp nhau?