diff --git a/ui.R b/ui.R
index 2646836b52ba997a916022ca6a5d77d5db68bb6d..708e18a2ef9e1ae52a3e44f649908485bdab4cbb 100644
--- a/ui.R
+++ b/ui.R
@@ -33,13 +33,20 @@ dashboardHeader(title = "Easy16S"),
       menuItem("Barplot", tabName = "barplot", icon = icon("chart-bar")),
       menuItem("Heatmap", tabName = "heatmap", icon = icon("chess-board")),
       menuItem("Rarefaction curves", tabName = "rarefactionCurve", icon = icon("chart-line")),
-      menuItem(HTML("α-diversity"), tabName = "richnessA", icon = icon("dashboard")),
-      menuItem(HTML("β-diversity"), tabName = "richnessB", icon = icon("dashboard")),
+      menuItem(HTML("α-diversity"), icon = icon("th"),
+               menuSubItem("Plots", tabName = "alphaPlot"),
+               menuSubItem("Table", tabName = "alphaTable")
+      ),
+      menuItem(HTML("β-diversity"), icon = icon("th"),
+               menuSubItem("Samples clustering", tabName = "betaCluster"),
+               menuSubItem("Samples heatmap", tabName = "betaHeatmap"),
+               menuSubItem("Networks", tabName = "betaNetworks"),
+               menuSubItem("Table", tabName = "betaTable")
+      ),
       menuItem("MultiDimensional Scaling", tabName = "mds", icon = icon("dot-circle")),
       menuItem("PCA", tabName = "pca", icon = icon("bullseye")),
       menuItem("Phylogenetic tree", tabName = "tree", icon = icon("tree")),
-      menuItem("Clustering", tabName = "cluster", icon = icon("dashboard")),
-      menuItem("Help", tabName = "Help", icon = icon("dashboard"))
+      menuItem("Help", tabName = "Help", icon = icon("info-circle"))
   )),
   dashboardBody(
     tabItems(
@@ -47,12 +54,15 @@ dashboardHeader(title = "Easy16S"),
       tabItem(tabName = "barplot", barplot),
       tabItem(tabName = "heatmap", heatmap),
       tabItem(tabName = "rarefactionCurve", rarefactionCurve),
-      tabItem(tabName = "richnessA", richnessA),
-      tabItem(tabName = "richnessB", richnessB),
+      tabItem(tabName = "alphaPlot", alphaPlot),
+      tabItem(tabName = "alphaTable", alphaTable),
+      tabItem(tabName = "betaCluster", betaCluster),
+      tabItem(tabName = "betaHeatmap", betaHeatmap),
+      tabItem(tabName = "betaNetworks", betaNetworks),
+      tabItem(tabName = "betaTable", betaTable),
       tabItem(tabName = "mds", mds),
       tabItem(tabName = "pca", pca),
       tabItem(tabName = "tree", tree),
-      tabItem(tabName = "cluster", cluster),
       tabItem(tabName = "Help", Help)
       )
     )