R source code with emoji

with_emoji.R

# 🔧_option
theme_set(theme_classic(base_size = 18, base_family = "Helvetica"))

# 📦_using_packages
library("dplyr", warn.conflicts = FALSE) # 🚧 avoid package conflict
library("ggplot2")
library("magrittr")

# ⭐_setup
df <- iris %>% filter(Sepal.Width < mean(Sepal.Width), Petal.Width < mean(Petal.Width))

# 🎨_plot
p1 <- ggplot(df, aes(Sepal.Width, Petal.Width, colour = Species)) + geom_point()
#_👻 ggsave("plot.png", p1) 

without_emoji.R

# option
theme_set(theme_classic(base_size = 18, base_family = "Helvetica"))

# using_packages
library("dplyr", warn.conflicts = FALSE) # avoid package conflict
library("ggplot2")
library("magrittr")

# setup
df <- iris %>% filter(Sepal.Width < mean(Sepal.Width), Petal.Width < mean(Petal.Width))

# plot
p1 <- ggplot(df, aes(Sepal.Width, Petal.Width, colour = Species)) + geom_point()
# ggsave("plot.png", p1) 

It's so interesting! May I ask how did you do it? Are you able to plot them?