diff --git a/blog/2022/11/20/brief-update-ea-funding/.source/analysis.R b/blog/2022/11/20/brief-update-ea-funding/.source/analysis.R
index 16e9909..f502549 100644
--- a/blog/2022/11/20/brief-update-ea-funding/.source/analysis.R
+++ b/blog/2022/11/20/brief-update-ea-funding/.source/analysis.R
@@ -93,7 +93,7 @@ title_text="Open Philanthropy allocation by year and cause area"
 subtitle_text="with my own aggregation of categories"
 palette = "Classic Red-Blue"
 direction = -1
-open_philanthropy_plot <- ggplot(data=df2, aes(x=year, y=amount, fill=area, group=amount))+
+open_philanthropy_plot <- ggplot(data=df2, aes(x=year, y=amount, fill=area))+
   geom_bar(stat="identity")+
   labs(
     title=title_text,
@@ -133,7 +133,7 @@ coeff <- 10^7*4
 wealth <- c(6, 8, 12, 15, 18, 12, 14, 19, 14)
 df2$wealth <- rep(wealth * coeff, num_areas)
 
-open_philanthropy_plot_with_fortune <- ggplot(data=df2, aes(x=year, y=amount, fill=area, group=amount))+
+open_philanthropy_plot_with_fortune <- ggplot(data=df2, aes(x=year, y=amount, fill=area))+
   geom_bar(stat="identity")+
   geom_point(aes(x=year, y=wealth), size=2, color="darkblue", shape=4)+
   labs(
diff --git a/blog/2022/11/20/brief-update-ea-funding/.source/open_philanthropy_grants_stacked.png b/blog/2022/11/20/brief-update-ea-funding/.source/open_philanthropy_grants_stacked.png
index 5494574..68ca67f 100644
Binary files a/blog/2022/11/20/brief-update-ea-funding/.source/open_philanthropy_grants_stacked.png and b/blog/2022/11/20/brief-update-ea-funding/.source/open_philanthropy_grants_stacked.png differ
diff --git a/blog/2022/11/20/brief-update-ea-funding/.source/open_philanthropy_plot_with_fortune.png b/blog/2022/11/20/brief-update-ea-funding/.source/open_philanthropy_plot_with_fortune.png
index e27c7ab..ca64dc9 100644
Binary files a/blog/2022/11/20/brief-update-ea-funding/.source/open_philanthropy_plot_with_fortune.png and b/blog/2022/11/20/brief-update-ea-funding/.source/open_philanthropy_plot_with_fortune.png differ