In loosolab/i2dash.scrnaseq: Iterative and Interactive Dashboards for single-cell RNA-sequencing data

Silhouette plot

# Handle colormaps
if(grouping_{{ env_id }} %in% names(colormaps)) colors_{{ env_id }} <- colormaps[[grouping_{{ env_id }}]] else colors_{{ env_id }} <- "Set1"

sil_plot <- plotly::plot_ly(sd_{{ env_id }}, colors = colors_{{ env_id }}) %>%
  plotly::add_bars(color = df_{{ env_id }}[[grouping_{{ env_id }}]], name = df_{{ env_id }}[[grouping_{{ env_id }}]], orientation = 'h', y = ~cell, x = ~silhouette) %>%
  plotly::layout(yaxis = list(showticklabels = FALSE), showlegend = FALSE) %>%
  plotly::highlight(on = "plotly_selected", dynamic = F, selectize = F)
sil_plot

#
# Output
#
output$plot_sil_{{ env_id }} <- plotly::renderPlotly({
  # Handle colormaps
  if(df_{{ env_id }}()$grouping %in% names(colormaps)) colors <- colormaps[[df_{{ env_id }}()$grouping]] else colors <- "Set1"

  sil_plot <- plotly::plot_ly(df_{{ env_id }}()$sd, colors = colors) %>%
  plotly::add_bars(color = df_{{ env_id }}()$df[[df_{{ env_id }}()$grouping]], name = df_{{ env_id }}()$df[[df_{{ env_id }}()$grouping]], orientation = 'h', y = ~cell, x = ~silhouette) %>%
  plotly::layout(yaxis = list(showticklabels = FALSE), showlegend = FALSE) %>%
  plotly::highlight(on = "plotly_selected", dynamic = F, selectize = F)
  sil_plot
})

#
# Layout of component
#
renderUI({plotly::plotlyOutput("plot_sil_{{ env_id }}", height = "100%")})

loosolab/i2dash.scrnaseq documentation built on Jan. 1, 2021, 8:23 a.m.