I am running a GSEA analysis of differential expression of a deep sequencing RNA dataset, using the ClusterProfiler package in R.

myGSEA.res <- GSEA(mydata.gsea, TERM2GENE=hs_gsea_c2, verbose=FALSE)
myGSEA.df <- as_tibble(myGSEA.res@result)

I was able to obtain the table. However, I need to re-create a heatmap in R, similar to the one that I can obtain on the GSEA software, as shown below:

Can someone help me on how to create this heatmap with the output from clusterprofiler?