options(knitr.duplicate.label = "allow") #
#### Code for the plotly graphs
library(plotly)
data <- read.delim2(file = "DATA DARWIN.txt", header = TRUE, sep = "\t", dec = ",")
plot1 <- plot_ly(data, labels=data$COMPANY, values=data$WEIGHT, type = "pie", title = 'Work Experience', text= data$JOB)
plot2 <- plot_ly(x=as.Date(data$BEGIN, format="%d/%m/%Y"), y=as.Date(data$END, format="%d/%m/%Y"), type = 'scatter', mode = 'markers', text= data$COMPANY, color = data$JOB)
plot3 <- plot_ly(x=as.Date(data$BEGIN, format="%d/%m/%Y"), y=as.Date(data$END, format="%d/%m/%Y"), z= 1:13, type = 'funnel', text= data$JOB, color = data$COMPANY)
plot1
plot2
plot3
#### Code for the leaflet map
library(leaflet)
## Drolanca
drolancaicon <- makeIcon(
iconUrl = "http://www1.drolanca.com/wp-content/uploads/2017/11/Logo-Corp-Drolanca.fw_-300x92.png",
iconWidth = 50, iconHeight = 50,
iconAnchorX = 50, iconAnchorY = 50
)
## Cibersys
cibersysicon <- makeIcon(
iconUrl = "https://cibersys.com/wp-content/uploads/2022/03/logo-1.png",
iconWidth = 50, iconHeight = 50,
iconAnchorX = 50, iconAnchorY = 50
)
## Beco&CO
becoicon <- makeIcon(
iconUrl = "https://becocompania.com.ve/Botones/LogoBecoyCom.png",
iconWidth = 50, iconHeight = 50,
iconAnchorX = 50, iconAnchorY = 50
)
## Hyundaielevator
hyundaiicon <- makeIcon(
iconUrl = "https://cozylifehyundai.com/wp-content/uploads/2021/04/LOGO-HYUNDAI-COLORES-Y-BLANCO.png",
iconWidth = 50, iconHeight = 50,
iconAnchorX = 50, iconAnchorY = 50
)
## PDVSA
pdvsaicon <- makeIcon(
iconUrl = "http://www.pdvsa.com/templates/pdvsa/img/logo.svg",
iconWidth = 50, iconHeight = 50,
iconAnchorX = 50, iconAnchorY = 50
)
## Vielectre
vielectreicon <- makeIcon(
iconUrl = "data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAOEAAADhCAMAAAAJbSJIAAAAkFBMVEX////+AAD/9/f/yMj+eXn+zs7+7+/+6ur/8/P+/Pz+p6f+3t3+YWH+SUj+q6v+mZn+i4v+4eD+V1f+aWn+GBf/sK/9Hh/+dXX+wcH+goL+Kyv+tLT+mpn+PT3+TUz+fn7+kZH+iYn+urv+1dX9MjL+Wln+oqL+Q0L9IyP+bm3+Y2T+09L+DQ/+UlH+Ojn+TEvcrLKgAAAGcElEQVR4nO2da0PaTBCFpYDWIiLiBbzUqFWrlfb//7v31apzwEOyl0mym87zscIkU8LmzJnJsrVlGIZhGIZhGIZhGIZhGIZhGIZhGIZhGIZhGIZhGIZhGP82XwLxO8pufaErGfSCePY7yrFP7H4SGR5ZhpZhcxmehmXY8zvKfosZ9gd/vLM7WZ5+8zvK6GDv0jH23fWOboYvbPfvT384HX88uJiPApfz3Z3+8WKvJPjD1f7wq25mq0znk9nZhoMfXQ4m81udO9W0f78Yn6yEP5tN+lOV4NV8oQnO9A90AOFruCwdjyxo64ytrWcJfqoevJQdmuG99mHmEHykHbwCuhacaR9lKbEftGNX0acf4lD3IFMIfa4b2gG6nu7pHmMBoXUju/CNfoi6NyoIXKgGdmKXZjjRPMQ5BG72VvGXK5ahZ0FYDig45cvfjSnLsDfXO8AthFWW2Y58Zxku9eJDxfZTL6oPc5ZhT004ojL0rFHUOGIZXmtFx8V6VyuoJxf0Q9SKDnVFw5JU4BXGsU7wIYRsWpIKjyzDS53YTxKxcUkq3LIMe7caobch4I1GwEAeWIYq35pJDd/sEM5ZhiqFMKzThUK4YLg4Vbh7YXG2HR8ugoJl6OkDM6D0vYuPFsM2yzC+EN7RDBbJHcvwKTYqGF3qzogvQ5ZhdDWn+6WOhLoZkYXwDYTSdyh9oW5G5FozlkitSVKB3zCiCuERBGpPkgrUzfiuFFFJ5MbB3YyYtQbCtClJBepmLMLjYZ9U7yxj4G5GeFkOPcpC7STjoG5GsAv/S+la1+SeZRi8RkBZ3YpLyvhKL9PAdR6DtS1JBepmDMJiwQWhUKNoMWIZBq410PVtX5IKv1mGQSeIpW/7klSgbkZQ3QO95cDLvCboZRqwUGDpm4IkFaibETB9AnHG+mcZA5/N8PeQYJ1JQ5IKTyxD70IYS986zjIG7mb4RoHSt9A/x0hOWIaehTAWYqlIUoHOhnp2hGG6JNqu04e7GV4dYQyRjiQVFixDr44w6IaWGvflcDfDR5zCdElKklRYsgw9CmHsRrbVuC+Huhm/3d8P0/JpSVKBXqbO6hLXmaZmnX2hbobzxwHmeWKSVOBuhmuVBw2Q1CSpQJ+scVwWQfapjv/pQmczfri9dybvKOo8x0jobMYvl3diM7ndxn05NyxDJ4kJ0yXJuKQUlqHTaDS8PEVJKlA3w6EQBrXQeuO+HDqb4eDsHsqr05SkwoylWFkIo2pPySVlUDejcugHpktSlaQCfUKxypKAl6YqSQX6LO9B+Xug9G1xltQZlmGF6Qalb7qSVLhmGZYWwtC6SliSCtT+Lr34QLAXzZxjJIcsxZJCGAfi03NJGfTRxJKbADitCbqklJ8sxc03cri/pC1JBepm7G96NRSVJ02eZQzU/t7o8YLOS12SCtTN2FAI4zqTuiQV6GzGho4wXNJXzZ5lFHSbEG5OQFcurcZ9OdTNuGCvhFtLsi4p5ZlkSFdKmC7JQZIKE5IhK4RR4jV/ljFQ+5t0hMHXKZo+x0jobMZn1Ql/TNklZVD7+1NHGFakGja3qRk6zLf+IhgRz0WSCtTNWFsuwWJL3CVlUHG6VgjDcMNGYZ4w1yzFFdmC/wlpNu7LoW7GivQ83vDv2UDdDPysoPRN3yVlUDcDvm9wQ4l6TKpFmJsBHWGYLlHc86VR6KOJH/c9EHZZuKQMum/G4/tfofQt2jvHSKib8d4RhumS3CSpQIf53gphaMPl4pIyxizFv3+C0tdpWCNRqJvxuqsVrDOOAzeJwh5NPHz5A5gAOUpSgboZL4UwpJ6PS8qgsxnFynRJnpJUoI8mrswT5ylJBepm3EDdkZdLymCzGUvYBy0vl5TBN1r6IFtJKvAnTT5Q3Q60Jfi20e/kK0kF/mjiGzlLUoFutPRGfi4pg28b/UqSjzcFQB9NfCVvSSrwbaNfyFuSCnwX0F7+klSgGy318pekAt83I1uXlMF/wiV/SSrwjZbaPitVWIJdkKQC2za6C5JUILMZ+TXuy/nsZnRDkgqf3IwMG/cVrP8YV1ckqbDuZrR9PjWwmmDEvorJsvpoYnckqbDiZnRJkgr4I1i5Nu7LgZ5oQvsFqiJ97W5JUkEe/6n1FxrbpKuSVHifRcy5cV/O22xG3o37cpYdlaTCcPb4P11xSQ3DMAzDMAzDMAzDMAzDMAzDMAzDMIwk+A9wPzv+ACZlYgAAAABJRU5ErkJggg==",
iconWidth = 50, iconHeight = 50,
iconAnchorX = 50, iconAnchorY = 50
)
## Ford Motor
fordicon <- makeIcon(
iconUrl = "data:image/jpeg;base64,/9j/4AAQSkZJRgABAQAAAQABAAD/2wCEAAkGBxMTExYUExQXFxYXGRsZGRcZGBkZGBoYGBYXGxkZGSEeISkhGSAmIBgYIjIiJyosLy8vGSE1OjUuOSkuLywBCgoKDg0OHBAQHDcmISYuLjE0NC4uLzAvLi4wLi4wLi4uLi4uMCwwLjEuLi4uLi4uMC4uLi4uLi4uLjAuLi4uLv/AABEIAIoBbgMBIgACEQEDEQH/xAAcAAABBQEBAQAAAAAAAAAAAAAAAgQFBgcDAQj/xABOEAACAQICBgYFCQYDBgQHAAABAgMAEQQhBQYSMUFRBxMiMmFxUoGRobEUIzNCYnKCksFDU6KywtFzk9IVFlRjg6M0s9PwF0SElOHi8f/EABkBAAIDAQAAAAAAAAAAAAAAAAADAQIEBf/EADARAAICAQMDAwMEAQQDAAAAAAABAgMRBBIxEyFBFDJRYXGRIkKB8GIjU6HhM0NS/9oADAMBAAIRAxEAPwDcaKKKACiiigAooooAKKKKACimWN0jDF9JIicbEi58hvPqqIn1tjt81HJIODECOM/ie1vZQGSxCvTVFxOtU7bjFEPshpXHrNkNReI0pI/flmfmNsRqfNUH60+OmtlwjPPVVR5Zo2JxkcYvI6IPtMF+NRkutOEU2Eu0eSKz3/KCKz9GF+xGlz9nbP8AHtGpGLBYtxZUltysUX1XsKb6Nr3SSE+uT9kWyzya1r9WCc+LBY19rMPhTKXW6XhFCvi0+17kU/GoyLVPEtvVF+8w/pvT6PUqQ96VR5KW+JFHRoj7pfgj1F8vbD8nJ9aZz+0gX7sUrH+JlFNpNYZz/wDMSfhhhH821UzHqVH9aVz5AD43rsNVMMneZvW4HwAqcaZfLDOqfhIrL6ZkO+bEn/qRp/LHXBtIsd74g/8A1Uo/ltVnkwei078sQ+9Pb4vXM4/Q6/tsKf8Aqq36mpUqPEGRt1HmaRWTixykPniMQf66ScSP3Y9byn4vVkOn9DL+0w/5Q36GuZ1r0MPrxeqFj8Eq26vxWyrjb5sRXvlC/u09sn+ugYlf3ae2T/XVg/3z0N6cf+RJ/oo/3y0Mfrx/5En/AKdTuh/tsjZZ/uIgRix6A9Uko+D178rH/NH3cViV+ElT41o0Mfrw+uIj4pXVdOaHb9rh/YF/QVG6vzWyVG3xYiAi0iV3PP8A/dTN/OWruNNy8MRiV8jA/wDPEamvlWh2/b4b/OVf6hXePROjpO46H7s1/wCo1Vyo8waLKOp8STIeLWOUft3P+JDG38hWnMOtE470kD/9KWL37b1InU+A5h5B5MpHvWm8mpK/VlI81B+BFV26Z+Wid2qXhMXBrU570UR/w8QCT6nRLe2nsWsqEXeGdB9xZP8AyWc1By6mSjuyIfPaX9DTN9WsUmYS/irj9SDR0KZe2f5D1F8fdD8FuTWPCm15kQncJLxMfC0gU3qTjkDC6kEHiDcVnEi4qPvCUDxUsvvBFNIsWAdrq4wx3sgMb/mjINQ9HLmLTJWujxJNGrUVneG0+6WtLMoHAlZlPmZBt/xVLYTWh8trqpOZBaFvUrbQY/iFKlp7I8ofDU1T4Zb6KhYtYYj3w8X31uvmXQsg9bCpTD4hJFDIyup3MpDA+RGVJHnaiiigAooooAKKKKACiiigAooooAKKKa4zGRxKXkYKo4n4DmfAUAODXDE4pI12nZUXmxAHl5+FVXSetTnKIbC/vHF3I5onsILZHwqtz4ku20bu5y2pO22Z3KO6ovuAGXOn1aec+F2M9uprr5ff4LfjNbUt8zGXHpuerj9V82tytVfxunppO9MwHoxDq1/MbufI0vB6uYiU7TDYB+tITtezf7bVMNoLB4ZOsxMq2H1pHCJfwF8/Ik0/p0V+57n8IR1b7fYtq+WVSDaLWij7Rz7KlnvzubsPVapPD6t4mU3ZdnxkbP3XPtpOO6T8BD83hYnnbgIk2Ev5kAnzVTUJi9d9Kz/RRRYVTuLdtx62uP4BTYysfauCX3FyqhzbPJdMNqYv7SQnwUBfeb39gpGJl0ThspZYNob1eTbb8lyfdWbYrRuIxF/lWMmlB3oGIT2Hs/wil4bV/DJujB+8S3u3e6r+ntl75/gX16IeyOf79S6T9KWjYuzCsknIRxbA/j2fhTGbpRxD/Q6Pa3BpHI92yB/FUTEqILIqqOSgD4U7wOHeZtiNSx48gOZO4Cp9JVHvL/kj1tj7RQiXXHTEm5cPD5Lc+9n+FM5cbpWT6THlfuKq/wAqrV90dqcosZnLH0VyX1nefdTvGYjR+D+laGM8AxUuR4A3Y0l20ReIRz/A5V6iSzKWDLTouaT6TG4mT/qOfixrkNUod7dYx5kj9FrRJek7Rq5LI7fdicfzAUhOlPRx3tIPOJv0vV1qJLiv+/gq9Pnmz+/koSau4YfU/jb9DXZdC4cfsl9ZJ+JrRMPr9oyXL5Qg/wARHQe11AqQw8WBxAvH1EvinVsfatHrMe6DRX0cn7Z5/v3MvGisP+6T8opQ0bD+5j/Iv9q0ubVLCtuQr912+BJFR2I1HQ9yZx95Q3w2avHW1P6C5aG5fX+SjfIIf3Uf5F/tR8gh/dR/kX+1WifUqcdxkbzLKfgR76j5tWsYv7K/irIf1v7qer6nxJCJae5cpkMdGwfuY/yL/aknRWH/AHSflFP5NGYhd8MvqjY/AVyOFmG+KQfgb+1WVkH5K7Zr5GLaEw5/ZL6iR8DXF9W8Mf2dvxN+pqUXDTHdFJ+Rv7V3i0XiG3Qy+tGA94FDlBeQSs8ZIFdWoVN0eVDzVgP0pzHg8Sn0ePxK+Bkdh7NoCrJh9VsW2+MJ4s6/03PurnpvQkuGVXdlYMdns3yNieIzyBzpfUqk9uU2M23xW7ukRMelNKx9zGh/CSNM/M7JPvp7DrvpaPvxYeYfZ2kb2lre6mImpQmqXp6n+0I6q5eSbg6UXX6fATL4xsJB7woHtp7D0h6KnylOw3KaE5eZAZR7arAlpEyI+TqrD7QB+NJejh47DlrpcSWS+YfR2jsTnBKjH/lShreq5A9lNsVqW37OQHwcW94/tWd4jV7DPn1eyeBUlbeXD3U5wvy2D/w+PmA9CW0q+XauFHkKjoXR9s8/cnq6efujj7f9Fmm0NioMwj25xnaHsGftFNY9IEMWKja4spMUmXAslifI0nCdIGkIssRhUnX04GKtb7pvtHytUxhdeNF4vsTfMv6M6dWR+Puj8wNUlKX/ALYZ+qGRrXNU8fRnXA6zyDLbDfZlFj5CRBYDzQnxqew+n4yPnLxfaaxjPiHF1HhtEE8qi8VqjG42oJLA5gE7SHyIz9edQOJ0dicMSSGA9Jc09f8A+wpXRps9ksP4Yzr3Vf8AkjlfKNKBvmK9rN9HaZZO6TH9zOM/ejOWfErsk86tWB1hRh87ZR+8U3j/ABcYufayHpGs1lE6+Uaq767PayfopCsCLjMGl0ocFFFFAHlFFVLWXWG21FE2yFOzJKN4P7qP7fNvq+e6UnJ4RWTUVlj3TWsSxkpGA8g7xJ+bj++ef2RmbeV6ZjMezvtsxd/Tb6vhGu5BkM9/HKm0AeZliiT7qDcObE/Fj/YVcMLozD4GIz4qRbrmXbuqeAQb2bgMrngM7VvVddCzLvL4MErLL3th2j8kVorVmWbtvdFOd2zc+Q4eZ9hp/pPTWjtFizsDLbuL85Mcv4AeZ2Vqmad1+xWNJjwYOHgzBmP0rj7Nu4PLP7S7qg8DouKI7Vttybl3zYk7z4Hx3+NMVdl3veF8IpmqjhZl8k/pLX7SOKuMNGuFiP7R+1KRzFxYXHJT96oD/Yau/WYiWTESek7N7N5NvC9vCnxmpBmrTCiEOEZ7NRZPyOYFSMWRVUclAHwpRmpiZqSZqaZ9o+M1JM1MTNSDNRknaTuhsC+JlWNMr5s3BVG9vgPMitUwGBjw8eyoCqouzHebDNmP/v2VWejHCAQPNxkewP2UyA/MW91K6W8S6aNm2L9sxxsR6LyKGHrB2fxVytTY7LNi4OtpaVCG/wAspOtXSBPi5GhwLGKEZGYdl3HMHfGp4Ado7zbMCtwaFiGblnY5kk2ueeWZ9Zr3BoI0CjhvPM8TUxoHRUuLkEcQyHfc91BzPM8l3n2kboQhTEy2WTslhDJcJCN0aetQfjQ2Gi/dp+Vf7VZukQ4fDnD4SNRtqjOzZbWzkF2zxLEOfw1Uuuq1U1OO5C7K5Qlhs9k0dAfqAeRI+BqT1f6OjiyHVmijB75AN7HMR8SfG9h42tU1qTqqcSRLKCIQchuMhBz8lHE8d1WTXvXSLRyLFEqviGX5uId1F3B3A3LlYKM2tYWFyM99/fZXyadPQ8bpvsdsfpLB6Gw4VpJHJzRGkaSWRgACRtGyLuuRsqPM2NHwfSvjo85sNHIhzGztIwBzF2G0Dl9kVD6C1bxekZXnkPWPftSSGyKd4XIHMA5KosMuYqQ1g1dxGD2WlClGNg6Elb2vsm4BBsDw4VSFNeds3mTGTunzBdi36J6WsDLlKJIT9pdtb+BS59ZAq46N0xh8QLwTRyjjsOrW8wDceuvn6aNH7yg+PH276ZPopLhkZlYbjvt5cR7aJ6KP7WEdX8o+nqLV864LWDScOUWMkI5Oes9Xzga3qqXi6TdKpvSB/Fozf+CQfCs70di4Hq+DNzorEz0saR/4eG/3ZLfz0zxXSFpaUWDRQ+KRgH+MuaqtLYyXfBeTaNL6XgwqGXESrGg4tvJ5KBmx8ACayLTOt74+baRSmHiBVAe87sVu7cBkLAcL+NhVJcM8z9ZiJnmfmzM3quc7eAsKfo4AAGQG4DdW2jSqt7nyY9RqN8dqJMTUoTVGialCatuTBtJETUoTVGialCajJG0khNShNUaJq9E450EbSUE1IxEaSC0iqw+0AfZypiJqWJqkjbg9wmDkw52sHiJcOd+yDtxE/aRrg+u9WfRvSNiIezjoNtP38GdvF4zmPEg+QqtCalrNSLNPCfKNFepsh5yaLBg8DpCPrcLIl+LR8CeDobFTxsQDUDj9GTYVto3A4SL3fI8vI++qecMBIJoXaCYbpYzsnyYbnB4g76uOgOkAraHSSqAeyMSo+aa+Vpl/ZE8+7v7orO421f5R+DRiq7j9MhxojTjIbKQvNT9E36xk+kuWZJBq56P0istwLq47yNbaF9x5Mp4MLjfxBArGsGq2XW4bMbygzuOaH+n2cqr2jtKlCAxYBT2WHfjPHZvvHNTkeVJnTC2O6v8AAyF86pbLfyaxRUPoXSomGy1hIBtZd11/eR+GYBG9SbG4KlpisJ0Cv606VMSCNG2XcElv3ca99/PgN2Z8KzV5WmdY41O/ZjQeJ4+J3k/oKk9ctIlndr/SOUHhFAdkAeDPtN6qf9GGjg7PiGF9j5tPBiAXPsKj1mt9CVVbsfPgwXt22KtceSdiWDRWFeaZhcC7sO87fVRAfHID1m2dZRpbSM2kZRPisowfmcOD2EXm3pMRvJ3+A7NSvSPpY4rGmK/zGFOyBwecgF2PPZBC+B2uZqCaanaerP8AqT5ZS+zb/pw7JDzrbZCkGamRmpBmrYY9o9M1IM1MjNSDNRknaPTNSTNTEzUkzUZLbR6ZqSZqYmakmaoyTtNp6KsesmFaO/ajka442ftA+RJYfhNWvSGCSaNo5VDI4syniPiDxBGYIr570BrFLg5RJERyZT3XX0W/Q8PaDpuC6XMEV+eWWFuI2DIt/ssl7jzCnwrl6iiam5R8nRosTjtY+To2wYbaLSsPQLqF8rhQ3vqT0xpPC6LwpcqqIuSRrYM7kZKvNjbMngCTuNU/THTJh1BXCwSTPwLjq0ufa58tkX51Dw6k6S0rIMRj5BCtuwjKSyqc7LGD82D9ptrIXvVMTfex9i6UI+xdymyaQkxE0uJlN3lN/ADcFXwAAUeVWPUzQDY2bZNxElmlYcuCD7TW9QueAvddH9HOjlfYeZ5Xtfq+tVTYb7KlmA3cauOjdG4fBxFY1WKNbuxJPAZszMSTkN5O4U+eqio7YciFp3KW6ZF65awxaMwm2At7COGLcC1uyPBVAufAcyKwP5Szu88z7c0hLMxOdz8MrADgAAN1alpXpV0W5F8PLPs32WMUdhe17dYwYXsOHCo6Tpdw6/Q6Ov8AeaNP5VaqUOUP25Yy1KSxnCJnWHROL/2fhMJgAw63Z62RTsWUptMWa9wGY3NsyBbO9q5dIEyYTR2HwbSdZKdhbk9oiJbvJnmBcBfxDlUrqnr5HpGN40K4bFWOyj/ODd2XTudaBxXIix4WJx3WRcQuLmGKmE06nYZwbrkLgLYAKM+6ALG+V70UxlKeJeHkLMRh28rAddR11R/W0dbXTyYdpIddR11R/W171tGQ2kh11e9dUd1te9bRkNpI9dXvXVG9dXvXUZI2kkJq9E1Rwmr0TUZDaSQmpQmqNE1OtHYeSaVIYhtPI2yo8eJPIAXJPIGhvBGwufR/oP5VNtuLxREFuTNvVPHmfDL61arjY8PFG8sixqiKWZiq2CqLk7qRq9ohMLAkKZhR2m4sx7zHzPsFhwrLembWkyONHxN2VIacjcWyZI/JcmPjs8iK5M5u+zC4OjXWq4d+Su4jT5xUss2wI0L2jQADZQABQbb24k82PC1AmqKgIUBRuFdRNXVisLBzprdJskxNSxNUYJqWJqtkXtJMTUoyAixzB3g7jUaJqWJqCu0tOqGs7YFhG5LYQnMG5aC/1k4mPmnDeOINs1z0EHQ4mGxNtpwMw62vti3EDPxHjvy1Zq0ros0rtRPhmP0Xaj/w2OaeSndyDqBurFfW631YfybKpdVdOf8ABA6B0mVZU2tk7V43OYSTdnzVr7LDkeG+tQ0XjhNGHtsnMMp3q6mzKediDnxFjuNZHrZgBh8TJGMlNnQckfh5Ahl/DVw1M0qLgsbCaPaY8OthZY2J8XVo/wDLpGqgmlZHyN0s2s1y8FA1jmN4L8YEb1s8hPv+FaZ0YW+QIRvLyX8xIR8AKz3pAwRj2T+6kkhbwUsZYP8Atv7asnQ1pYNHLhye0jdYo5o4Aa3kwufvirT/AFadY8FoLbc8+TN8XIetlJ7zTSs33mlcn41wM1THSLos4bGyi3YlJmQ8CHJLj1PtC3LZ51VzLW2qScU0Zpwe55HhmpBmpmZK8LVfJG0dGakGam16L0ZJ2nYy0ky1yvTvRWAeeaOCPvyMFHIX3sfAAEnwFQ3juSokhq5oDEY2Tq4VuB33bJEB9I8+QFyfaRqOjOifCIvz8kkzWzN+rQeQXP2satmgNExYSFYIhZVGZO9m+s7cyf8A8bgKxXpE18lx0j4fDuUwqkqSpzntvZj6HJdxGZ3gDnO6y2WIdka1VCCzIh9aMLDDiZY8PJ1sSkbL3DfVBZbjJtk3F/DnUVeucagCwpV66EcpLJmfPYd6OxzQzRyoFZonVwrd0lTcA+zfwqW1m15x2POyWMMRyEURYbV8u0R2pL8t27K+dV69ap0VamW2cbOvjCh90rD+Ufi9GkX7I/rkMr3P9KLL0YamLgINtwPlEoBfd2F3rELct5tvPMAVX+mzWnZQYCI9uQBpiOEd+ynmxFz9kZ5NV71r1hjwWGknfPZFkXi8h7iDzO88ACeFfNc+LknlknmbaklYsx8Ty5AZADgABWOiDsnuZoslsjhHiKAKsOrWp+LxucUdo93WudmPLfbIl/wg+NqnOjPUgYxuvnB6hDYLu61xvH3Bx5nLga2fG4uHDQtI7LFFGuZ3KqjIAAeoADfkBWi7U7HtjyJrp3d5GdYXoZgKjr8RKzb7xKiAHw2g59dUqTUWUaQkwEBDbPbEjkACIhTtNbiC4WwGZ4Abnet3SjicUzR4UtBDu2hlK45lh9H5Ln9rgG3RHOyaThFyetEqsTvN4mkJPPtRiqwdqTm34LyUMqKO2vGoj6PjjlEvWo52GOxsbL2JGVzcEBvK3jVZ0Zo6XESrDCheRtwHLiSdwA4k19A9IOiXxWBmijXakOwUFwO0siNvOQyBBPImmGr2hcNobCtLM6hrAzTHieCIN5F8gozJ8TVYat7O/dhKj9XbgjdXOirDRKGxRM8nFQWWJTyAFi/m2R5CnGtXRzhJIHbDxCKZFLIUJCsQL7LDdY7r2uPcadiOlPHYrFRR4ONY42lRVVlDu4LAHbO5QRvC7s+0a26kznZFqTYyMYNYSPnfUvUubSB2wergBzlIvc+jGPrHx3DxOVaXH0T4AJskzFvT6wBvMADZ91OtdNPR6HwCiCNdoWigjzK3AJu2dyAASc7k2zzvVuw86yKroQysAysMwVYXBHgRU2aiyXddkRGqK7PufO2u2q76PmEZbbjcFo3tYkA2KsPSW4vbI3ByvYV4mtG6ZdJLPi4MLFd5IlfaVRtHblMezGLfWslyPtCrN0f9Ha4bZnxIDz71TIpFytwZ/tbhw5nUtRtrTlyIdWZtIpOrfRni8SoeS2HjO4upMhHMJcWH3iD4Va26HYdnLEy7XMqhW/lv99WjXXXKDR0W1J25Gv1cSmzORxJ+qo4t7LnKsoPS1pIydZaERg36rYNivItcte3HLnbhSFZfZ3j2GuFcORhrdqfPo9l6wh4nNklW4BNr7LA9xrAm1yCBkTY20boj1X6qP5XKPnJh82D9SI5383yPkF5mrppTRsOMgEcyXjYo5U/ZZXAPgbWPMEjjT6SRUUsxCqoJJOQCgXJPIAVSzUynHa+S0aVGWSudIOtC4DCtILGZ+xCpzu5HeI9FR2j5AbyK+doWYlnclnclmY7yWNyT4km5qX121kbSWLaXPqY+xCp9C/eI4M57R8NkcKib1r01WxZfIm6eXg7CWlCam969vWvJnwOhNSxNTK9e3oyRtH4mpYmqOD0oSUEbSTE1XHormPy4AcYnB8uyfiBWfCatQ6F9FEtLimHZA6lPEkhpD6rIL/eHCk6mSVbyXph+tB0uuFxUPNomv5K+X87VX48XIuCBjzYYhh6jEhPvC1y6SNLifSUuybpAiwA3yLKWaT1hmKn7lWzUHQ4lVEkHZWJpX+/O69V/24ifxVlk8adJj1HNzaLHrxoVZUZmyR1CSn0Nk3im/AxIb7LXJstYvgcZPo3FhrWliazIT2XU71v6LDMG3I8K+k3UEEEXByIO41m+vepgkUFTYrlFKdy55QzH0bnsPwvY599OntUcxlwx1te7uuUS2m9H4fTOCV4WAbNonO+OS3ajkA3Dgw8ARewrDdI4GWCRopkKSIbMp+I5g7wRkRUvq/p/E6KnbsneBNA+Qe24g/Va25xcEcxWqYnC4DTsAdGtIgsGsBNExz2JF4rvy3Hep40+MnQ8PvEW0rFlcmF3ovU1rPqricC1pkvGTZZluY25Z/UP2T6r76g71sU1JZRnaa7M9vRek3ovU5AVer70NYUNi5JD+zhNvvOyi/5Qw9dUC9XvocxoTFvGf2sRt4sjBrfl2z6qTfnpvBer3o1PXCVxgcUY77Yw8uzbffq23eNfN0C2UCvqQm++sg1m6MJldnwey8ZNxEWCun2QW7LKOBJBtlnvOPS2Ri2maL4tpYM9vRerVhOjrSLmxhWMek8kdv4Cx91XzVbo1ggIkxDCeQZhbWiU87HvnxbLwrXPUQiuciI1SZXejvUIzFcRiltDvjiYZy8mccE5D633e9sDSAAkkAAXJOQAG8nkKRese6VteetLYHCtdL2nkBya2+JT6I+seO7de+CUpXTNUUq4lf6Q9azpHEWQn5NCSIx6Z3NKfvWy5LyJNRehdGviJooI8mkYKD6I3s3kqgt6qjo1Ci1a70R6rvFfGTLsl12YVO8I1tqQ8r2AHhc8RWxtU1mfvZM03RmDjgiSKMbKRqFUeAHHmTvJ4k1inTRrG0+KGDRiIoLFwPrSst8+eyrADxLeFbXt181a2QumkMYJO98okb8LsXT+FlrJplun3H2vEexHDKrx0O4EyaQElsoY3e/C7DqwPWHb2GqRDEzsFRSzMbKqi5JO4ADea3zo71Z+QwWe3XykNJbO1h2YweIW59bNwtWvUWKMGvkz1RzLJbcZjEijaSRgqIpZmO4KBck185a8a3S6Tm2s1w0ZIij922/2yPyg2HEmb6W9cDiZTg4G+Zib51gcpJVPd8VQ+1vug1WdV9Bvi8RHh48gc3b0IxbabzzsOZI50mipJb5DrZv2o0HoX1bzONkXIXSEeO6SQeWaDzfwrUsfpOKHY6xwvWSJEgO9nc2VRz4nyBrlgoEhjSKMBURQqjgFUWH/APawPX7XB8ZjVeFyIcMw6kjcXVgTN43Ki32VHM0nvbMusVxL/wBN+hJp4cPLCjSCBn20QFm2ZNjt2GZAKWNt23fcDVA1bwel5B1GDfEJGd/aeOJLnMhjkm8my5nka1DV3pMwWIjBmmTDzAduOQ7IDcSjHssvLO/MCk6d6U8BhwdiX5Q/BYcx63PYHqJPhUxlKMdm0HFN7sjzUPUSHAAyMetxL9+UjdfesYO4b7k5tx5Cx6d0xHhYJcRKexEpY8ydyqPFiQo8SKjtVNLvicLDPIqq0qltlb2ALtsjPMnZtc8TfIbqpfTvjWGEgiBykm7XiERiAfxFT+GlrMp4ZfhdjKtLaVlxmIfEzm7Och9VVHdRfsru8cycya66IhMk8KCPrdqRB1d7bY2xdL2OyCLgm2QzpiMhWxdFmpzQD5ViEtKwtEhGcaEZsw4MwytvAvxJA6M5RqgZIpzkajt1kvTZrbsqNHwt2pAGmIO5N6x/i3n7IHBqvWtOn0wWGknfPYHZX03OSJ6zx4C54V82SYiSaR55WLSSsWY8yx4eHADgABWLT17pZNFs9qPY1Ci1SGk9Ez4coJ4njLrtLtC11/uMrg5i4uBWldHuo4gAxeMAVlG2kb2AiAF+skvkGG8A93ec+7TukHXY4+cRxf8Ah4idg2zka1jIeQ4KORJOZsNquzPbHgzdP9O5lZvXt6Revb1oyKFXovSb0XoyAu9F6Rerrqd0eYjF7Mku1DBv2iPnHH/LU7h9psuQaqzsUVlkxi5PCIrVHVqbHzCOPsotjJLbsov6seC/oCa1PXfWKHRGDTD4YATMuxCm8qM7zPzzuc+8x+8Rx1l1uweh4RhsKivOB2YgbhSR35m333G3ebLcMxkuFw2Ix07zTPtOxvJK3dQcAAONslQcuVyMTbue6XaKNCSrWF3bOmq+ijM/b2mjUhpDmWdmPZjXiXc5c7XPCvoXVvRphi7dusc7cltwYgAKPBQAo8r8ag9SdVVhVHZCuznHG3eBIsZZP+YRw+qLDwFzrPfb1HhcIbXDavqe1zeMEEEAgixBzBB3g866UUkYUbW3UqPEJ3SwHdK/SxfcJ+kTjsHMZ2vkBkeP0Ri9HSCeJ2WxIWeLdvzSQHu5jNHFr5Z2r6UqN0holJLnuuRYsAO0OTg5OOGe65sRTq7nHs+6FyrT7+TNtXulWKVep0jGqbQ2TKF2oHBy+cU3KX9a+Irppvo2w2JXrsDKse0NoAHrIGv6JFyg8rjkK46z9Gq5vGOqPpIC0B+8nfh9W0oFUUYbSGjG6yJniQm+2hEmHfdmd657swGp0cN5reH8FJfEl/Jw05q1isKT18LBf3i9qM/iGQ8jY+FRF60nQ3Szls4yC3AyQ9pTz2kOYHkW8qlDobRGkQWw7IHOZMDCNxfi0ZFh61vTfUSj2mhbqT9rMivXbA414ZEliOy6MGU8LjnzB3EcQTV00p0Yzrc4eVJB6L3jfy4qfaKqektB4nD/AE0EiAfW2bp+Zbr76dG2E+GUcJR8G46pa2Q46PaQhZVHzkJPaQ8x6Sng3HwNwJ3br5fRiGDxuyOvddGKsPIjOrJg+kXScQsZI5hzkjF/apW/rvWKzTtP9Johcmu5vm3XLF41IkMkjqiLmWYhVHmTWF4jpM0o4sDDH4rGLj87MPdVb0ljcRiW2sTO8pG4M1wPujur6hVY6eb5LO2KL3r10mNOGw+BJWM5PPmrMOITii/aOZ4Acc/hiCiwr1FAyFe1trrUEZpzcif1IxGFjxcZxgBizALdxJMthpOBXIjPIEgnIVbtfek8k9Ro57m/bnHdyN9mPmObbrZC97jMSL14iAbqrOpTllkxs2xwj6U1c07Hi8Ok8ZyYdpeKOO8h8QfaLHcaaaxap4TGMHnjO2BbrEYq2zwBtkwzNrg2ubVgmh9N4nCSGTDSbJPfQ5o9t20pyJ8ciOBFW6LpgxIWz4WMtzVnUeyx+NZZUzhLMR6nGS7moaA1WwmEN4IgHOXWMS72PAE90eAtVM6SukURq2Fwb7UzXWSVTlENxVCN78Lju+e6i6d180hiwUZxDGd6RArccma5Y+VwDyqvQxBRlV4USk8zKysSWInsKBBat56NtXPkmH25BaeazPzVfqR+q9z4k8hWH4PFmGRJVVWaNg6q4JUlTcbQBFxfxq0//FnSP7rD/wCXL/6tMvUmtseClWM5ZcOmHWzqIRhIT89OO2RvSE5EeBfNfIN4Vj0KbItXTGYyXETyYic3kkNzwAysABwAAAA5Ck3q1FexEWz3MS8YO8UJEo3ClUU7CF5ZuXRPpdZcEsV+3ASjDjsszNGfKxtfmhqb1p1fgx0PUz7QAYOrKQGVgCLi4I3EixBGdfPejNK4jDSibDvsOMiN6ut7lWByI/8AYsaucXTHiAtmwiF+Yd1W/PZKkj81YbapKeYmqE044ZfdX9RcHg263tSOuYklKkJbioACi3pG5HOpjQOsUGLErYdttYpDEW4MwVWJTmvasDxsbZWJwTWLW/G44bMziOL91GCqH72ZZ/Im2W6l6o60S6OZmjQSRvbrIybbVtzKbHZYXPA3B3brDpnJbpckKyKeEa70karS6RiiSKVUMcm2Q99lrrs7wCQRc2y4mmurGpOG0eDicRIrugv1jWWKIDioPH7Rz5Aca5iumZNn5rCuX+3IAo/KCT7qomsGseLx7A4iSyA3WJBsxg8wLm58WJNRCNjW1cEycU8ssHSFr++PJw+H2kwwPaJuGlsci3FU4hd53nkKlEgUWFJRQBYUq/Dia211qC7Gac3IVevb1MaN1Txk9tjDuB6Unza+fasSPIGrdorou3HET+aRD+th/TRK6EeWCrk+EZyTVo0BqJjMTY9X1MZ+vLdcvsr3m9gHjV0OkdDaM7vVmVfR+emvyvn1frKiqzpzpXxMt1wsYgX949nk8wO6v8XnSnfOXaC/IzpRj7mXLA6t6M0UgnxMivINzy+kM/mYxe5yv9Zhzqq629LE8+1HggYI9xmb6Vh9nhH728VqtYXVnFYqQSYhn2n+tLtNI3GyJ328Ny+Nadqr0biOzuCh9NrNN+AZpD59phuvSZOMXmbyxiy1iKwjO9XNTJpnBkV7t2tkfTPfex2solN83fnuN71tWrOqceHClgpZe4i36uM8SL5u54u2eQ3cZzR2jooV2Y0Cg5k72Y82JzY+dPKTZbKf2LxgontFFFKLhRRRQAUUUUAFRmM0NE9yAUZt7JYXvvLAgq58WBqTooAzTT/RpFJdliAPpQERtv4xuTGfEggnlWe6U6PJ43+aZZGGaqbwT5cVV7XtzDV9GVyxECSKVdVZTvVgGB8wabG+cfr9yjrTPm+LWTSmCISR5LDIJiULA+TGzH1NarFo7pWG7EYdh9qFg4/K1iPaa1nE6uxMCFLIDvW4dD4bEgZQPBbVUtK9GUL5iGK/pQs2HYeSduNj52q++uXuWPsRtkuGQv8AtjQuM75gDHI9Yphf8x2b+o15iOjnByjahkkQHdsssie8En81ROlOi8r3XlTwmh2x65ISyqPMVXU1KxsRLYchjxbDTi+XPNW91Wjj9kvyVf8AlEnMZ0YTj6KeN/B1aP4bVQ2K1Gx6fsNsc0dD7iQ3urw6f0thvpJJlA4TxXB82dbnzvT/AAnShix9JDBJ90tGfeWHupu61fDKbYP6FaxOiMTH38PMtuJjcD22tTHbHOtKw3SvH+1w0qn7DK49+zT7/wCIejJfpdoeEkBb+UNR15rmIdKL4ZlF6K1cYzQcvHCC/NViPvCmlJq7oebNDCf8PEn4B7UeoXlMOi/kyaitbbo8wLd3rR92S/xBpu/RjhuE048zGf6BU+ogR0ZGWUVprdGEPDES+tUP9q5novj4Ylv8sf6qnrw+SOlIzaitGPRcv/FH/JH+uvR0XL/xJ/yh/ro9RX8h0pfBnFFaUvRfHxxL+qNR+tdV6MIOM8vqCD9DR14fIdGRmFFarH0ZYUb5cQfxRj+iu/8AuFo9O/tfilI+Fqj1MCejIyOi9awdE6Fh7xw4PJ8RtH2M5+FJOmtCQ5j5NfmkPWH2qhqPULwmT0X8mVJ2jZczyGZ91SWF0BipO5hpj4mNlHtYAVoMvSbgIxaJZX8EiCj+IrUbiulj91hWPjJIF9wU/GjrTfEQ6UVyyHwnR/jn3xpH9+Rf6No1N4PovbLrcQo5iNCfYWI/lqExfSZjm7iwRD7pZvazWPspqcRpjEjOTEleaqYU9bKFX21Dla+cInbD7l7GpOjcONrEOSBneaYIv8OyPVnSG1z0ThLiAKzcoIhc/jNlP5jVFwuo08jXkaMOd93Msh9UQa58yKteieitjYsszeYTDr69rbcjyApctv7pZLr/ABQx0l0rTNcYfDqg4PKxY/lFgPaagZptJ48XeSV4zfIWigseBPZjPrua1/RHRtFHYkRIR6CGR/MPLcqfJRVnwurmHQ3KdY3pSEufYch6gKp1IR9q/JO2T5ZiGgOjeSS17t4RLceRkeyKfINWj6A6Oo4bM2zGeaduX/McdnxCKBV/Fe1SVspeSVBIZaP0XDCPm0Ck723sfNjmfbT6iillwooooAKKKKACiiigAooooAKKKKACiiigAooooAKaYvR0Mv0sUb23bSK1vK4yp3RQBDtq9FnsNLGT6MrkDyViyD2VDY/UWKTeYZD6U2GjdvbH1ZFXGvKnc1wBmOL6LYicsPEeZTETxH1KVdfeKhcV0VAHsx4oeIfDSKPaVY+ytpoq6tn8ldkfg+fMV0Ysp+ll/Fgpj7WjLCorF9HrrvnwwH/MMsR9jR299fS9FT15EdNHy4uospzjfDPyMeJj91yK7JqlpMdxZfwYmM/yyV9MSYZG7yK3mAfjTHEaAwj97DQN5xIfiKPUP4QdM+ef93tMru+WeqZj8Hrz/Zumhxx/55T/AFVu2P1ewa93CwL5RRj4CobF6PiG6JB5Io/So6/0DZ9TI/k2m+eO9ktefJdNHjj/APuitO+TJ6C/lFeDDJ6C/lFT11/8ors+pmQ0Tpo8cd65JR8WrxtXdLnvfK/xT2+L1ruH0bCbXijPmin9KsOG1fwlv/Cwf5Uf9qjr/Qts+p89tqjj2ye/48TD+sl6SuoknGTCjw68Mf4Aa+lotFQL3YYh5RqP0p1FEo3ADyAFHqPoHTPm/C9HUh3yx+UcWIlP/lipbCdFrnecQfBcMI/fJILeyt9oqevIOmjG8J0UelFKf8SeJV9YjQn31NYPotiXfHAvieunPsdgvurS68qrtm/JKhFFVwOpMUe6Qr4QxxQj+Fb++pKLVrDA3Me2ecjNJf8AMSPdUzRVCxyggRBZFVRyUAD3V1oooAKKKKACiiigAooooAKKKKACiiigD//Z",
iconWidth = 50, iconHeight = 50,
iconAnchorX = 50, iconAnchorY = 50
)
my_map <- leaflet() %>% addTiles() %>%
addMarkers(icon = drolancaicon, lat= 8.6132671,lng= -71.646966, popup="Demand Planner in Drolanca" ) %>%
addMarkers(icon = cibersysicon, lat= 10.4899783,lng= -66.8678157, popup="Sales Coordinator in Cibersys") %>%
addMarkers(icon = becoicon, lat= 10.4975693,lng= -66.8238437, popup="Demand planner in Be&co" ) %>%
addMarkers(icon = hyundaiicon, lat= 10.47914,lng= -66.8187725, popup="Project Engineer in Hyundai Elevator-Cozylife") %>%
addMarkers(icon = pdvsaicon, lat= 10.3629641,lng=-67.042958, popup="Researcher in PDVSA-Intevep") %>%
addMarkers(icon = vielectreicon, lat= 10.494668539478107, lng= -66.80920796701062, popup="Project Supervisor in Vielectre C.A.") %>%
addMarkers(icon = fordicon, lat= 10.1682599,lng=-67.9609969, popup="Intern in Ford Motor")
my_map