在R中使用tally过滤数据

Question

我使用tally()生成了一个应急表，但是有一些无效的数据：

structure(c(0L, 5L, 0L, 1L, 2L, 4L, 3L, 2L, 0L, 3L, 11L, 7L, 
3L, 6L, 3L, 26L, 27L, 16L, 5L, 4L, 69L, 78L, 36L, 19L, 12L, 88L, 
133L, 70L, 29L, 25L, 84L, 132L, 58L, 24L, 23L, 44L, 52L, 25L, 
16L, 3L), .Dim = c(5L, 8L), .Dimnames = list(D5 = c("1", "2", 
"3", "4", NA), X4.1 = c("-9", "1", "2", "3", "4", "5", "6", "7"
)), class = "table")

我需要删除这类的行&列--我需要删除第一列和最后一行。我试过使用%>%操作符，但是一直都有错误。

有小费吗？

Answer 1

它是一个table对象，而不是一个data.frame。

> str(df1)
 'table' int [1:5, 1:8] 0 5 0 1 2 4 3 2 0 3 ...
 - attr(*, "dimnames")=List of 2
  ..$ D5  : chr [1:5] "1" "2" "3" "4" ...
  ..$ X4.1: chr [1:8] "-9" "1" "2" "3" ...

因此，我们可以使用索引来执行删除-- nrow(df1)返回行数，使用它作为行索引与-一起删除最后一行，使用-1作为列索引来删除第一列。

df2 <- df1[-nrow(df1), -1]
df2
 X4.1
D5    1   2   3   4   5   6   7
  1   4  11  26  69  88  84  44
  2   3   7  27  78 133 132  52
  3   2   3  16  36  70  58  25
  4   0   6   5  19  29  24  16