# Distracted BF in R

a guest
Apr 23rd, 2020
1,732
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
1. library(tidyverse)
2.
3. dbf = data.frame(color=character(0), x=numeric(0), y=numeric(0), stringsAsFactors = F)
4.
5.
6. ## Distractive woman
7. # Left arm
8. dbf = bind_rows(dbf, crossing(color='skin', x=seq(4,5), y=seq(1,9)))
9. dbf = bind_rows(dbf, data.frame(color='skin', x=5, y=10))
10.
11. # Hair left
12. dbf = bind_rows(dbf, data.frame(color='womanhair', x=7, y=seq(11,14)))
13. dbf = bind_rows(dbf, data.frame(color='womanhair', x=8, y=seq(11,18)))
14. dbf = bind_rows(dbf, data.frame(color='womanhair', x=9, y=seq(12,22)))
15. dbf = bind_rows(dbf, data.frame(color='womanhair', x=10, y=22))
16.
17. #Hair top
18. dbf = bind_rows(dbf, data.frame(color='womanhair', x=seq(10,14), y=23))
19. dbf = bind_rows(dbf, data.frame(color='womanhair', x=seq(11,13), y=24))
20.
21. #Hair right
22. dbf = bind_rows(dbf, data.frame(color='womanhair', x=14, y=22))
23. dbf = bind_rows(dbf, data.frame(color='womanhair', x=15, y=seq(12,22)))
24. dbf = bind_rows(dbf, data.frame(color='womanhair', x=16, y=seq(12,20)))
25. dbf = bind_rows(dbf, data.frame(color='womanhair', x=17, y=seq(12,15)))
26. dbf = bind_rows(dbf, data.frame(color='womanhair', x=18, y=seq(12,14)))
27.
28. # Right arm
29. dbf = bind_rows(dbf, crossing(color='skin', x=seq(19,20), y=seq(1,9)))
30. dbf = bind_rows(dbf, data.frame(color='skin', x=19, y=10))
31.
32. # Dress
33. dbf = bind_rows(dbf, crossing(color='leftwdress', x=seq(6,18), y=seq(1,9)))
34. dbf = bind_rows(dbf, data.frame(color='leftwdress', x=seq(6,9), y=10))
35. dbf = bind_rows(dbf, data.frame(color='leftwdress', x=seq(15,18), y=10))
36. dbf = bind_rows(dbf, data.frame(color='leftwdress', x=seq(17,18), y=11))
37.
38. #Face and neck
39. dbf = bind_rows(dbf, crossing(color='skin', x=seq(10,14), y=seq(10,21)))
40. dbf = bind_rows(dbf, crossing(color='skin', x=seq(9,16), y=11))
41. dbf = bind_rows(dbf, crossing(color='skin', x=seq(11,13), y=22))
42.
43. ## Boyfriend
44. #Face
45. dbf = bind_rows(dbf, crossing(color='skin', x=seq(23,25), y=seq(20,24)))
46. dbf = bind_rows(dbf, crossing(color='skin', x=seq(24,26), y=seq(19,23)))
47. dbf = bind_rows(dbf, data.frame(color='skin', x=27, y=22))
48.
49. #Hair
50. dbf = bind_rows(dbf, data.frame(color='bfhair', x=seq(23,27), y=25))
51. dbf = bind_rows(dbf, data.frame(color='bfhair', x=seq(26,27), y=24))
52. dbf = bind_rows(dbf, data.frame(color='bfhair', x=seq(27,28), y=23))
53. dbf = bind_rows(dbf, data.frame(color='bfhair', x=28, y=seq(21,22)))
54. dbf = bind_rows(dbf, data.frame(color='bfhair', x=27, y=seq(20,21)))
55.
56. #Shirt
57. dbf = bind_rows(dbf, data.frame(color='bfshirt', x=22, y=1))
58. dbf = bind_rows(dbf, data.frame(color='bfshirt', x=23, y=1:4))
59. dbf = bind_rows(dbf, crossing(color='bfshirt', x=24:27, y=1:14))
60. dbf = bind_rows(dbf, crossing(color='bfshirt', x=25:28, y=5:18))
61. dbf = bind_rows(dbf, crossing(color='bfshirt', x=27:29, y=19))
62. dbf = bind_rows(dbf, crossing(color='bfshirt', x=28:29, y=20))
63. dbf = bind_rows(dbf, crossing(color='bfshirt', x=30:34, y=1:4))
64. dbf = bind_rows(dbf, crossing(color='bfshirt', x=31:34, y=5:6))
65. dbf = bind_rows(dbf, crossing(color='bfshirt', x=32:34, y=7:11))
66. dbf = bind_rows(dbf, crossing(color='bfshirt', x=27:33, y=11:16))
67. dbf = bind_rows(dbf, crossing(color='bfshirt', x=27:33, y=11:16))
68. dbf = bind_rows(dbf, crossing(color='bfshirt', x=27:31, y=17))
69. dbf = bind_rows(dbf, crossing(color='bfshirt', x=27:30, y=18))
70.
71. #Arm
72. dbf = bind_rows(dbf, crossing(color='skin', x=28:29, y=1:5))
73. dbf = bind_rows(dbf, crossing(color='skin', x=29:30, y=5:10))
74. dbf = bind_rows(dbf, crossing(color='skin', x=31, y=7:10))
75.
76. ## Girlfriend
77.
78. #Head
79. dbf = bind_rows(dbf, crossing(color='skin', x=36:38, y=17:18))
80. dbf = bind_rows(dbf, crossing(color='skin', x=37:39, y=15:16))
81. dbf = bind_rows(dbf, crossing(color='skin', x=38:39, y=14))
82.
83. #Hair
84. dbf = bind_rows(dbf, crossing(color='womanhair', x=40:41, y=14:18))
85. dbf = bind_rows(dbf, crossing(color='womanhair', x=40:41, y=14:18))
86. dbf = bind_rows(dbf, crossing(color='womanhair', x=39, y=17:19))
87. dbf = bind_rows(dbf, crossing(color='womanhair', x=36:39, y=19))
88. dbf = bind_rows(dbf, crossing(color='womanhair', x=36:37, y=20))
89. dbf = bind_rows(dbf, crossing(color='womanhair', x=36, y=12:16))
90. dbf = bind_rows(dbf, crossing(color='womanhair', x=37, y=12:15))
91. dbf = bind_rows(dbf, crossing(color='womanhair', x=38, y=13))
92.
93. #Arm
94. dbf = bind_rows(dbf, crossing(color='skin', x=35:36, y=1:2))
95. dbf = bind_rows(dbf, crossing(color='skin', x=36:37, y=2:3))
96. dbf = bind_rows(dbf, crossing(color='skin', x=37:38, y=3:5))
97. dbf = bind_rows(dbf, crossing(color='skin', x=38:39, y=5:8))
98. dbf = bind_rows(dbf, crossing(color='skin', x=39:40, y=8:12))
99. dbf = bind_rows(dbf, crossing(color='skin', x=41, y=11:12))
100.
101. #Dress
102. dbf = bind_rows(dbf, crossing(color='rightwdress', x=39:42, y=13))
103. dbf = bind_rows(dbf, crossing(color='rightwdress', x=42, y=1:12))
104. dbf = bind_rows(dbf, crossing(color='rightwdress', x=41, y=1:10))
105. dbf = bind_rows(dbf, crossing(color='rightwdress', x=40, y=1:7))
106. dbf = bind_rows(dbf, crossing(color='rightwdress', x=39, y=1:5))
107. dbf = bind_rows(dbf, crossing(color='rightwdress', x=38, y=1:2))
108. dbf = bind_rows(dbf, crossing(color='rightwdress', x=37, y=1))
109. dbf = bind_rows(dbf, crossing(color='rightwdress', x=36, y=4:11))
110. dbf = bind_rows(dbf, crossing(color='rightwdress', x=37, y=6:11))
111. dbf = bind_rows(dbf, crossing(color='rightwdress', x=38, y=8:12))
112.
113.
114.
115.
116. dbf\$color = as_factor(dbf\$color)
117.
118. dbf = distinct(dbf)
119.
120. colornames = c(
121.   skin="#ecbcb4",
122.   womanhair='black',
123.   leftwdress='red',
124.   bfhair='#5a3f11',
125.   bfshirt='#035aa6',
126.   rightwdress='grey')
127.
128. ggplot(dbf, aes(x=x, y=y, fill=color)) +
129.   geom_tile(show.legend = FALSE) +
130.   theme_minimal() +
131.   xlim(0, 43) +
132.   ylim(0, 30) +
133.   scale_fill_manual(values=colornames)
RAW Paste Data

# Adblocker detected! Please consider disabling it...

We've detected AdBlock Plus or some other adblocking software preventing Pastebin.com from fully loading.

We don't have any obnoxious sound, or popup ads, we actively block these annoying types of ads!

Please add Pastebin.com to your ad blocker whitelist or disable your adblocking software.

×