Làm thế nào tốt nhất để sụp đổ hai yếu tố bằng NA vào một biến

Question

Tôi có rất nhiều bộ biến như thế này:

Var1 Var2 
"Asian"  NA 
    NA "Black" 
"White"  NA 

Tôi muốn để thuận tiện nhận được chúng vào biểu mẫu này:

Race 
"Asian" 
"Black" 
"White" 

tôi đã thử một số nội dung như:

Race <- ifelse(is.na(Var1), Var2, Var1) 

Nhưng điều này chuyển đổi giá trị thành số cho các cấp và nu mbers không phù hợp (ví dụ: sản lượng đó là 1, 1, 2). Có cách nào thuận tiện để làm điều này (lý tưởng với mã ngắn, tự giải thích)? (Bạn có thể nhận ra điều này với as.character, nhưng đó có phải là một cách tốt hơn.)

Answer 1

Với một chuyển đổi trung gian qua as.character:
Giả sử đây là của bạn dữ liệu:

dat <- data.frame(Var1=c("Asian",NA,"White"),Var2=c(NA,"Black",NA)) 

do.call(pmax,c(lapply(dat,as.character),na.rm=TRUE)) 
#[1] "Asian" "Black" "White" 

Nếu bạn cần phải làm việc trên một tập hợp con đặc biệt mà bạn có thể làm:

do.call(pmax,c(lapply(dat[c("Var1","Var2")],as.character),na.rm=TRUE)) 

---

Một thay thế không đòi hỏi as.character sẽ là:

dat[cbind(1:nrow(dat),max.col(!is.na(dat)))] 
#[1] "Asian" "Black" "White" 

Answer 2

gì về giải pháp này ?:

ind <- apply(df, 1, function(x) which(!is.na(x))) 
df[cbind(seq_along(ind), ind)] 
[1] "Asian" "Black" "White" 

Answer 3

Một giải pháp (khá lạ Tôi đồng ý và khá ngắn, các cột của bạn cần phải được nhân vật như nó có vẻ là trong ví dụ của bạn):

> library(tidyr) 
> unite(replace(df, is.na(df), ""), V, c(Var1, Var2), sep=''))$V 
#[1] "Asian" "Black" "White" 

Hoặc, nó có thể là mạo hiểm khi dùng gsub nhưng ở đây NA là một phần của một chuỗi nhân vật rất an toàn:

> gsub("NA", "", unite(df, V, c(Var1, Var2), sep='')$V) 
#[1] "Asian" "Black" "White"