Draw the heatmap row with geom_tile on precomputed counts

ggplot2's geom_bin2d bins discrete positions with a continuous binwidth, so
the R heatmap came out as tiny disconnected tiles. Counting first and drawing
geom_tile is the idiomatic recipe and matches the pivot-then-draw approach the
matplotlib, seaborn, and hvPlot columns already take. Also stop seaborn from
rotating the clarity labels.

Author: tdhopper

Examples.ipynb

@@ -3044,9 +3044,13 @@
    "outputs": [],
    "source": [
     "%%R -w 10 -h 10 -u in\n",
-    "ggplot(data=diamonds) +\n",
-    "    aes(x=cut, y=clarity) +\n",
-    "    geom_bin2d()"
+    "counts <- as.data.frame(\n",
+    "    table(cut=diamonds$cut,\n",
+    "          clarity=diamonds$clarity),\n",
+    "    responseName=\"count\")\n",
+    "ggplot(data=counts) +\n",
+    "    aes(x=cut, y=clarity, fill=count) +\n",
+    "    geom_tile()"
    ]
   },
   {
@@ -3061,9 +3065,13 @@
    },
    "outputs": [],
    "source": [
-    "(ggplot(diamonds) +\n",
-    "    aes(x=\"cut\", y=\"clarity\") +\n",
-    "    geom_bin2d())"
+    "counts = (diamonds\n",
+    "          .groupby([\"cut\", \"clarity\"])\n",
+    "          .size()\n",
+    "          .reset_index(name=\"count\"))\n",
+    "(ggplot(counts) +\n",
+    "    aes(x=\"cut\", y=\"clarity\", fill=\"count\") +\n",
+    "    geom_tile())"
    ]
   },
   {
@@ -3078,9 +3086,14 @@
    },
    "outputs": [],
    "source": [
-    "(lp.ggplot(diamonds) +\n",
-    "    lp.aes(x=\"cut\", y=\"clarity\") +\n",
-    "    lp.geom_bin2d())"
+    "counts = (diamonds\n",
+    "          .groupby([\"cut\", \"clarity\"])\n",
+    "          .size()\n",
+    "          .reset_index(name=\"count\"))\n",
+    "(lp.ggplot(counts) +\n",
+    "    lp.aes(x=\"cut\", y=\"clarity\",\n",
+    "           fill=\"count\") +\n",
+    "    lp.geom_tile())"
    ]
   },
   {
@@ -3198,8 +3211,9 @@
     "          .groupby(['clarity', 'cut'])\n",
     "          .size()\n",
     "          .unstack())\n",
-    "sns.heatmap(counts,\n",
-    "            cbar_kws=dict(label='count'));"
+    "ax = sns.heatmap(\n",
+    "    counts, cbar_kws=dict(label='count'))\n",
+    "ax.tick_params(axis='y', rotation=0);"
    ]
   }
  ],