# Geom❤️

[This article was first published on

Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.

**R – rud.is**, and kindly contributed to R-bloggers]. (You can report issue about the content on this page here)Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.

ggplot() + geom_heart() + coord_equal() + labs(title="Happy Valentine's Day") + theme_heart()

Presented without exposition (since it’s a silly Geom)

This particular ❤️ math pilfered this morning from @dmarcelinobr:

library(ggplot2) geom_heart <- function(..., colour = "#67001f", size = 0.5, fill = "#b2182b", mul = 1.0, na.rm = FALSE, show.legend = NA, inherit.aes = TRUE) { data <- data.frame(t=seq(0, 10*pi, by=0.1)) x <- function(t) 16*sin(t)^3 y <- function(t) 13*cos(t) - 5*cos(2*t) - 2*cos(3*t) - cos(4*t) data$x <- x(data$t) * mul data$y <- y(data$t) * mul data <- rbind(data, data[1,]) layer( data = data, mapping = aes(x=x, y=y), stat = "identity", geom = ggplot2::GeomPolygon, position = "identity", show.legend = show.legend, inherit.aes = inherit.aes, params = list( na.rm = na.rm, size = size, colour = colour, fill = fill, ... ) ) } theme_heart <- function() { ggthemes::theme_map(base_family = "Zapfino") + theme(plot.title=element_text(hjust=0.5, size=28)) + theme(plot.margin=margin(30,30,30,30)) }

To

**leave a comment**for the author, please follow the link and comment on their blog:**R – rud.is**.R-bloggers.com offers

**daily e-mail updates**about R news and tutorials about learning R and many other topics. Click here if you're looking to post or find an R/data-science job.

Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.