{tidytable}: 兼具快速和简单的数据处理R包～

install.packages("tidytable")

library(tidytable)

mydata <- data.table(
  group = c(rep("G1", 3), rep("G2", 4)),
  value = 1:7
)

mydata

mydata1 <- as_tidytable(mydata)

mydata1

mydata1 %>% 
  select(value)

mydata1 %>% 
  filter(group == "G1")

mydata1 %>% 
  mutate(mean_value = mean(value), 
         double_value = value * 2)

mydata1 %>% 
  group_by(group) %>% 
  summarize(mean_value = mean(value))

mydata1 %>%
  filter(group == "G2") %>%
  mutate(mean_value = mean(value), double_value = value * 2) %>%
  arrange(desc(double_value)) %>% 
  select(-value)

mydata2 <- 
  data.table(group = c("G1", "G3"),
             label = c("A", "B")) %>% 
  as_tidytable()

mydata2

mydata_co <- inner_join(mydata1, mydata2, by = "group")

mydata_co

[1]. https://markfairbanks.github.io/tidytable/