How do you remove empty rows and add descriptive columns?

问题

A follow-up question to this one

Once I introduce some more complexity in my table, I'm seeing empty rows where no group-subgroup combination exists. Could those be remove?

I'm also wanting to add a "descriptive" column which does not fit into the cell-row-column tabulation, could I do that?

Here's an example:

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()

You will see the column "name" doesn't feature in the table currently. I would just like to put it next to each animal and before the Age/Field summaries. Is this possible?

Thanks in advance!

回答1:

As for empty categories - there is a special function for that - '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()

As for column "name" - you can add name to value label with pipe separator: dog|fred' or as in the example above, via%nest%`.

UPDATE: If you need it as column with heading then it is better to place names as statistics:

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()

来源：https://stackoverflow.com/questions/58879269/how-do-you-remove-empty-rows-and-add-descriptive-columns

标签

expss