In TongZhou2017/ttfriends: An R Package with Toolkits Developed for Tong's Friends

knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

library(ttfriends)

Combine groups by column

Create example data

df <- data.frame(x= c("A","A","B","B","B","C"),y=c("a","b","a","a","b","a"),z=1:6)
df

Default parameter

table_bind_group(object = df,id = "x",col = "y")

Keep the other columns

table_bind_group(object = df,id = "x",col = "y",keep = TRUE)

Turn off unique filter

table_bind_group(object = df,id = "x",col = "y",unique = FALSE)

Add count

table_bind_group(object = df,id = "x",col = "y",count = TRUE)

Split groups by column

Default parameter

df2 <- data.frame(x=c("A","B"),y=c("123","4567"),z=c("C","D"))
df2

table_split_group(object = df2, col="y")

Ignore header

df3 <- data.frame(x=c("A","B"),y=c("apple123","banana4567"),z=c("C","D"))
df3

table_split_group(object = df3, col="y", header=c("apple","banana"))

Custom separator

df4 <- data.frame(x=c("A","B"),y=c("OTU1;k=1;p=2;c=3","OTU2;k=1;p=2;c=4"),z=c("C","D"))
df4

table_split_group(object = df4, col="y", header="OTU.;", sep=";")

TongZhou2017/ttfriends documentation built on June 10, 2025, 5:36 p.m.