Transfer dist to b_dist

Plot dist

Plot b_dist

as.b_dist(dist, group_df = NULL)

# S3 method for class 'dist'
plot(x, group_df = NULL, ...)

# S3 method for class 'b_dist'
plot(x, mode = 1, c_group = "inter", ...)

Arguments

dist

a dist object

group_df

a dataframe with rowname same to dist and one group column

x

a b_dist

...

additional

mode

1~3

c_group

"inter" or "intra" or both to plot

Value

a b_dist with annotation by group

a pheatmap

a ggplot or pheatmap

Examples

data(otutab, package = "pcutils")
mat_dist(otutab) %>% as.b_dist(., group_df = metadata["Group"]) -> aa
plot(aa)

plot(aa, mode = 2)