Mất tên của các dấu mờ của một bảng sau khi nhập hoặc viết

Question

Sau cbind hoặc rbind đối tượng bảng (ví dụ, thêm một số tiền hoặc somesuch), tên của các tên mờ bị mất (xem y). Tôi tìm thấy điều này "workaround" nhưng đã tự hỏi nếu có một trong các giải pháp túi này có vẻ ít hacky. Có lẽ một cái gì đó có thể được thực hiện trên bay? Tôi muốn giữ đối tượng của lớp table.

> (x <- table(1:3, sample(1:3), dnn = c("rows", "cols"))) 
    cols 
rows 1 2 3 
    1 1 0 0 
    2 0 0 1 
    3 0 1 0 
> (y <- cbind(x, "4" = 4:6)) # "rows" and "cols" get lost 
    1 2 3 4 
1 1 0 0 4 
2 0 0 1 5 
3 0 1 0 6 
> names(dimnames(y)) <- names(dimnames(x)) 
> y 
    cols 
rows 1 2 3 4 
    1 1 0 0 4 
    2 0 0 1 5 
    3 0 1 0 6 

Answer 1

Làm thế nào về addmargins? Nó tính toán các khoản tiền theo mặc định, nhưng bạn có thể cắm bất kỳ (các) hàm tùy chỉnh nào. Ví dụ:

> addmargins(x, margin=c(2,2), FUN=list('sum', 'mean')) 
Margins computed over dimensions 
in the following order: 
1: cols 
2: cols 
    cols 
rows 1 2 3 sum mean 
    1 0.0 1.0 0.0 1.0 0.5 
    2 0.0 0.0 1.0 1.0 0.5 
    3 1.0 0.0 0.0 1.0 0.5