Làm thế nào để ngăn chặn hợp nhất từ ​​cột sắp xếp lại

Question

Trong ví dụ sau

x <- data.frame(code = 7:9, food = c('banana', 'apple', 'popcorn')) 
y <- data.frame(food = c('banana', 'apple', 'popcorn'), 
       isfruit = c('fruit', 'fruit', 'not fruit')) 

Tôi muốn làm x <- merge(x, y), nhưng vấn đề là merge() sắp xếp lại các cột để cột by (thức ăn) đến trước. Làm cách nào để ngăn chặn điều này và có merge(x, y) sử dụng cùng thứ tự cột của x và chỉ chèn biến mới (isFruit) làm cột thứ ba (tức là "mã, thực phẩm, isFruit" thay vì "food, code, isFruit")?

Tôi đã cố gắng này, không có kết quả:

merge(x, y, sort = F) 

workaround của tôi là để làm điều này sau đó

x <- x[c(2, 1, 3)] 

Answer 1

Dưới đây là một phiên bản generic của workaround cơ sở của bạn:

merge(x, y)[, union(names(x), names(y))] 

Answer 2

Bạn có thể bọc nó trong chức năng tùy chỉnh của bạn. Ví dụ:

merge.keep <- function(...,ord=union(names(x), names(y)))merge(...)[ord] 

sau đó ví dụ:

merge.keep(x,y) 
    code food isfruit 
1 8 apple  fruit 
2 7 banana  fruit 
3 9 popcorn not fruit 

EDIT tôi sử dụng ý tưởng @Eddi để thiết lập giá trị mặc định của ord.

Answer 3

plyr làm cho điều này dễ dàng:

x <- data.frame(code = 7:9, food = c('banana', 'apple', 'popcorn')) 
y <- data.frame(food = c('banana', 'apple', 'popcorn'), 
       isfruit = c('fruit', 'fruit', 'not fruit')) 

library(plyr) 
join(x,y) 

     #GOOD 
#Joining by: food 
# code food isfruit 
#1 7 banana  fruit 
#2 8 apple  fruit 
#3 9 popcorn not fruit 

    #BAD 
# merge(x,y) 
#  food code isfruit 
#1 apple 8  fruit 
#2 banana 7  fruit 
#3 popcorn 9 not fruit 

Answer 4

Nếu bạn chỉ mang lại trong một cột và muốn gắn nó kéo dài thì có lẽ merge là overkill và bạn chỉ có thể thực hiện một giải pháp với phương thức lập chỉ mục match - [:

> x$isfruit <- y$isfruit[match(y$food, x$food)] 
> x 
    code food isfruit 
1 7 banana  fruit 
2 8 apple  fruit 
3 9 popcorn not fruit 

(Không có thiết bị chuyển mạch để ném vào chức năng hợp nhất để làm những gì bạn yêu cầu.)