Guest User

Distracted BF in R

a guest
Apr 23rd, 2020
1,695
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