如何删除空行并添加描述性列？

Question

this one 的后续问题

在表中引入更多复杂性后，我会看到不存在组-子组组合的空行。可以去掉那些吗？

我还想添加一个“描述性”列，它不适合单元格行列列表，我可以这样做吗？

这是一个例子：

animals_2 <- data.table(
  family = rep(c(1, 1, 1, 1, 1, 1, 2, 2 ,2 ,3 ,3 ,3), 2),
  animal = rep(c(1, 1, 1, 2, 2, 2, 3, 3, 3, 4, 4, 4), 2),
  name = rep(c(rep("fred", 3), rep("tod", 3), rep("timmy", 3), rep("johnno", 3)), 2),
  age = rep(c(1, 2, 3, 1, 2, 3, 1, 2, 3, 1, 2, 3), 2),
  field = c(rep(1, 12), rep(2, 12)),
  value = c(c(25, 45, 75, 10, 25, 50, 10, 15, 25, 5, 15, 20), c(5, 15, 30, 3, 9, 13, 2, 5, 9, 1, 2, 3.5))
)

animals_2 <- expss::apply_labels(
  animals_2,
  family = "|",
  family = c("mammal" = 1, "reptilia" = 2, "amphibia" = 3),
  animal = "|",
  animal = c("dog" = 1, "cat" = 2, "turtle" = 3, "frog" = 4),
  name = "|",
  age = "age",
  age = c("baby" = 1, "young" = 2, "mature" = 3),
  field = "|",
  field = c("height" = 1, "weight" = 2),
  value = "|"
)

expss::expss_output_viewer()

animals_2 %>%
  expss::tab_cells(value) %>%
  expss::tab_cols(age %nest% field) %>%
  expss::tab_rows(family %nest% animal) %>%
  expss::tab_stat_sum(label = "") %>%
  expss::tab_pivot()

您将看到“名称”列当前不在表中。我只想把它放在每只动物旁边和年龄/字段摘要之前。这可能吗？

提前致谢！

Answer 1

至于空类别 - 有一个特殊功能 - 'drop_empty_rows'：

library(expss)
animals_2 <- data.table(
    family = rep(c(1, 1, 1, 1, 1, 1, 2, 2 ,2 ,3 ,3 ,3), 2),
    animal = rep(c(1, 1, 1, 2, 2, 2, 3, 3, 3, 4, 4, 4), 2),
    name = rep(c(rep("fred", 3), rep("tod", 3), rep("timmy", 3), rep("johnno", 3)), 2),
    age = rep(c(1, 2, 3, 1, 2, 3, 1, 2, 3, 1, 2, 3), 2),
    field = c(rep(1, 12), rep(2, 12)),
    value = c(c(25, 45, 75, 10, 25, 50, 10, 15, 25, 5, 15, 20), c(5, 15, 30, 3, 9, 13, 2, 5, 9, 1, 2, 3.5))
)

animals_2 <- expss::apply_labels(
    animals_2,
    family = "|",
    family = c("mammal" = 1, "reptilia" = 2, "amphibia" = 3),
    animal = "|",
    animal = c("dog" = 1, "cat" = 2, "turtle" = 3, "frog" = 4),
    name = "|",
        age = "age",
        age = c("baby" = 1, "young" = 2, "mature" = 3),
        field = "|",
        field = c("height" = 1, "weight" = 2),
        value = "|"
    )

expss::expss_output_viewer()

    animals_2 %>%
        expss::tab_cells(value) %>%
        expss::tab_cols(age %nest% field) %>%
        expss::tab_rows(family %nest% animal %nest% name) %>%
        expss::tab_stat_sum(label = "") %>%
        expss::tab_pivot() %>% 
        drop_empty_rows()

对于“名称”列 - 您可以使用管道分隔符将名称添加到值标签：dog|fred' or as in the example above, via%nest%`。

更新： 如果您需要它作为带有标题的列，那么最好将名称作为统计信息：

animals_2 %>%
    expss::tab_rows(family %nest% animal) %>%
    # here we create separate column for name
    expss::tab_cols(total(label = "name")) %>% 
    expss::tab_cells(name) %>% 
    expss::tab_stat_fun(unique) %>% 
    # end of creation
    expss::tab_cols(age %nest% field) %>%
    expss::tab_cells(value) %>%
    expss::tab_stat_sum(label = "") %>%
    expss::tab_pivot(stat_position = "outside_columns") %>% 
    drop_empty_rows()