import hail as hl
hl.init()

from bokeh.io import show, output_notebook
from bokeh.layouts import gridplot
output_notebook()

hl.utils.get_1kg('data/')
mt = hl.read_matrix_table('data/1kg.mt')
table = (hl.import_table('data/1kg_annotations.txt', impute=True)
         .key_by('Sample'))
mt = mt.annotate_cols(**table[mt.s])
mt = hl.sample_qc(mt)

mt.describe()

"""
Explanation: Plotting Tutorial
The Hail plot module allows for easy plotting of data. This notebook contains examples of how to use the plotting functions in this module, many of which can also be found in the first tutorial.
End of explanation
"""


dp_hist = mt.aggregate_entries(hl.expr.aggregators.hist(mt.DP, 0, 30, 30))
p = hl.plot.histogram(dp_hist, legend='DP', title='DP Histogram')
show(p)

"""
Explanation: Histogram
The histogram() method takes as an argument an aggregated hist expression, as well as optional arguments for the legend and title of the plot.
End of explanation
"""


p = hl.plot.histogram(mt.DP, range=(0, 30), bins=30)
show(p)

"""
Explanation: This method, like all Hail plotting methods, also allows us to pass in fields of our data set directly. Choosing not to specify the range and bins arguments would result in a range being computed based on the largest and smallest values in the dataset and a default bins value of 50.
End of explanation
"""


p = hl.plot.cumulative_histogram(mt.DP, range=(0,30), bins=30)
show(p)

"""
Explanation: Cumulative Histogram
The cumulative_histogram() method works in a similar way to histogram().
End of explanation
"""


p = hl.plot.scatter(mt.sample_qc.dp_stats.mean, mt.sample_qc.call_rate, xlabel='Mean DP', ylabel='Call Rate')
show(p)

"""
Explanation: Scatter
The scatter() method can also take in either Python types or Hail fields as arguments for x and y.
End of explanation
"""


mt = mt.filter_cols((mt.sample_qc.dp_stats.mean >= 4) & (mt.sample_qc.call_rate >= 0.97))
ab = mt.AD[1] / hl.sum(mt.AD)
filter_condition_ab = ((mt.GT.is_hom_ref() & (ab <= 0.1)) |
                        (mt.GT.is_het() & (ab >= 0.25) & (ab <= 0.75)) |
                        (mt.GT.is_hom_var() & (ab >= 0.9)))
mt = mt.filter_entries(filter_condition_ab)
mt = hl.variant_qc(mt).cache()
common_mt = mt.filter_rows(mt.variant_qc.AF[1] > 0.01)
gwas = hl.linear_regression_rows(y=common_mt.CaffeineConsumption, x=common_mt.GT.n_alt_alleles(), covariates=[1.0])
pca_eigenvalues, pca_scores, _ = hl.hwe_normalized_pca(common_mt.GT)

p = hl.plot.scatter(pca_scores.scores[0], pca_scores.scores[1],
                    label=common_mt.cols()[pca_scores.s].SuperPopulation,
                    title='PCA', xlabel='PC1', ylabel='PC2', collect_all=True)
show(p)

"""
Explanation: We can also pass in a Hail field as a label argument, which determines how to color the data points.
End of explanation
"""


p2 = hl.plot.scatter(pca_scores.scores[0], pca_scores.scores[1],
                    label=common_mt.cols()[pca_scores.s].SuperPopulation,
                    title='PCA (downsampled)', xlabel='PC1', ylabel='PC2', collect_all=False, n_divisions=50)

show(gridplot([p, p2], ncols=2, plot_width=400, plot_height=400))

"""
Explanation: Hail's downsample aggregator is incorporated into the scatter(), qq(), and manhattan() functions. The collect_all parameter tells the plot function whether to collect all values or downsample. Choosing not to set this parameter results in downsampling.
End of explanation
"""


p = hl.plot.histogram2d(pca_scores.scores[0], pca_scores.scores[1])
show(p)

"""
Explanation: 2-D histogram
For visualizing relationships between variables in large datasets (where scatter plots may be less informative since they highlight outliers), the histogram_2d() function will create a heatmap with the number of observations in each section of a 2-d grid based on two variables.
End of explanation
"""


p = hl.plot.qq(gwas.p_value, collect_all=True)
p2 = hl.plot.qq(gwas.p_value, n_divisions=75)

show(gridplot([p, p2], ncols=2, plot_width=400, plot_height=400))

"""
Explanation: Q-Q (Quantile-Quantile)
The qq() function requires either a Python type or a Hail field containing p-values to be plotted. This function also allows for downsampling.
End of explanation
"""


p = hl.plot.manhattan(gwas.p_value)
show(p)

"""
Explanation: Manhattan
The manhattan() function requires a Hail field containing p-values.
End of explanation
"""


hover_fields = dict([('alleles', gwas.alleles)])
p = hl.plot.manhattan(gwas.p_value, hover_fields=hover_fields, collect_all=True)
show(p)

"""
Explanation: We can also pass in a dictionary of fields that we would like to show up as we hover over a data point, and choose not to downsample if the dataset is relatively small.
End of explanation
"""


