Skip to content

Instantly share code, notes, and snippets.

@stephlocke
Created January 17, 2019 14:23
Show Gist options
  • Save stephlocke/97d06b7c9ac1a071e7cfbf1eff5be936 to your computer and use it in GitHub Desktop.
Save stephlocke/97d06b7c9ac1a071e7cfbf1eff5be936 to your computer and use it in GitHub Desktop.
Logo!
library(hexSticker)
library(datasauRus)
library(ggplot2)
library(dplyr)
library(svglite)
p <- ggplot(aes(x, y), data = datasaurus_dozen) +
geom_point(colour = "khaki",
alpha = .1,
size = 1) +
geom_point(
aes(x, y),
data = filter(datasaurus_dozen, dataset == "dino"),
colour = "white",
size = .5
)
p <- p + theme_void() + theme_transparent()
sticker(
p,
package = "",
url = "datasauRus",
s_x = 1,
s_y = 1,
s_width = 1.5,
s_height = 1.5,
u_color = "white",
u_size = 3,
#p_x=1, p_y=1,
h_fill = "darkolivegreen",
h_color = "khaki",
filename = "datasauRus.svg"
)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment