load(file = "topMat.rda")
mat <- matrix(topMat, nrow = 11)
y = c('Alex','Nicole','Sara','Etienne','Chelsea','Jody',
      'Marianne', 'Maya', 'Mathews', 'John', 'Julia')

Data checking:

dim(mat)

## [1]  11 716

plot_ly(z = ~mat, type = "heatmap", y = y) %>%
    layout(title = "Cohort genetic variation")