tablo

Question

Veri yapısına sütun toplamı Add

  a  b c Total 
married  50 20 5 75 
single  10 10 10 30 
widow  5  50 0 55 

Bir satır toplamı ekleme seçeneği sağlayan farklı bir tablo işlevi var mı?

Answer 1

sonradan cbind ve rowSums kullanabilirsiniz:

tab <- table(df$Company,df$Marital) 
tab <- cbind(tab, Total = rowSums(tab)) 

da kullanabilirsiniz

addmargins fonksiyonu dahili:

tab <- addmargins(table(df$Company,df$Marital), 2) 

(2 bir miktar sütunu eklemek için anlamı, ancak bir toplam satır-bunu atlayabilir ve her ikisini de alacaksınız).

Answer 2

Sen addmargins

x <- table(df$Company,df$Marital) 
addmargins(x)   # option 1 
ftable(addmargins(x)) # option 2 

Answer 3

library(dplyr) 

df <- tribble(
     ~status,  ~a, ~b, ~c, 
     "married",  50, 20, 5, 
     "single",  10, 10, 10, 
     "widow",  5,  50, 0 
     ) 

df %>% 
    mutate(Total_Row = rowSums(.[2:4])) 
#> # A tibble: 3 x 5 
#> status  a  b  c Total_Row 
#> <chr> <dbl> <dbl> <dbl>  <dbl> 
#> 1 married 50.0 20.0 5.00  75.0 
#> 2 single 10.0 10.0 10.0  30.0 
#> 3 widow 5.00 50.0 0   55.0 

df %>% 
    mutate(Total_Row = select(., 2:4) %>% rowSums()) 
#> # A tibble: 3 x 5 
#> status  a  b  c Total_Row 
#> <chr> <dbl> <dbl> <dbl>  <dbl> 
#> 1 married 50.0 20.0 5.00  75.0 
#> 2 single 10.0 10.0 10.0  30.0 
#> 3 widow 5.00 50.0 0   55.0