Daniel Pearson
@danielpearson
635 Following
443 Followers
1 reply
0 recast
1 reaction
0 reply
1 recast
1 reaction
0 reply
0 recast
0 reaction
1 reply
0 recast
2 reactions
2 replies
0 recast
5 reactions
0 reply
1 recast
4 reactions
1 reply
0 recast
3 reactions
1 reply
0 recast
1 reaction
2 replies
3 recasts
7 reactions
0 reply
0 recast
1 reaction
0 reply
2 recasts
10 reactions
0 reply
0 recast
1 reaction
0 reply
0 recast
0 reaction
1 reply
0 recast
2 reactions
0 reply
0 recast
3 reactions
0 reply
0 recast
0 reaction
art <- data.frame(x = rep(c(1:1000), 1000), y = rep(c(1:1000), 1000), color = sample(rep(c("#FD4A34", "#E6E4D8", "#01AB7E", "#E98A44", "#2DB5DB", "#E7818E", "#FD4A34", "#E6E4D8", "#01AB7E", "#F92D26", "#FD4A34", "#E6E4D8", "#01AB7E", "#FEC200", "#2DB5DB", "#E7818E", "#FD4A34", "#E6E4D8", "#FEC200", "#F92D26"))))%>%
mutate(x = sin(x*y)) %>%
mutate(y = sort(y))
ggplot(art) +
geom_point(data = art, aes(x = x, y = y), color = art$color, fill = art$color, shape = 22) +
theme_void() 0 reply
0 recast
0 reaction
1 reply
0 recast
1 reaction
0 reply
0 recast
0 reaction
0 reply
0 recast
0 reaction