rowSums đột biến loại trừ một cột

Question

Tôi có một khung dữ liệu như thế này

> df 
Source: local data frame [4 x 4] 

     a x y z 
1 name1 1 1 1 
2 name2 1 1 1 
3 name3 1 1 1 
4 name4 1 1 1 

Muốn đột biến nó bằng cách thêm cột x, y, và z (có thể có nhiều cột số nhiều). Cố gắng loại trừ cột 'a' như sau không hoạt động.

dft <- df %>% mutate(funs(total = rowSums(.)), -a) 
Error: not compatible with STRSXP 

này cũng tạo ra một lỗi:

dft <- df %>% mutate(total = rowSums(.), -a) 
Error in rowSums(.) : 'x' must be numeric 

đúng cách là gì?

Answer 1

Nếu bạn muốn giữ lại các cột không phải số trong kết quả, bạn có thể làm điều này:

dat %>% mutate(total=rowSums(.[, sapply(., is.numeric)])) 

Answer 2

này nên làm việc:

#dummy data  
df <- read.table(text="a x y z 

1 name1 1 1 1 
2 name2 1 1 1 
3 name3 1 1 1 
4 name4 1 1 1",header=TRUE) 

library(dplyr) 

df %>% select(-a) %>% mutate(total=rowSums(.)) 

Đầu tiên loại trừ cột văn bản - a, sau đó làm rowSums trên cột số còn lại.

Answer 3

Bạn có thể sử dụng bộ chọn phong phú với select() bên trong gọi đến rowSums()

df %>% transmute(a, total = rowSums(select(., -a)))