Lab3 Map

Установим лифлет

install.packages("leaflet")

## Installing package into '/home/rstudio-user/R/x86_64-pc-linux-gnu-library/3.6'
## (as 'lib' is unspecified)

library(leaflet)

Map

Данная карта наглядно показывает места рождения главных разработчиков основных языков программирования.

my_map <- leaflet() %>% 
  addTiles()

H_p <- makeIcon(
  iconUrl = 'https://www.pngjoy.com/pngl/229/4451366_meme-man-harold-thumbs-up-png-download.png',
  iconWidth = 60, iconHeight = 60,
  iconAnchorX = 31*215/230/2, iconAnchorY = 16
)
pepe_php <- makeIcon(
  iconUrl = 'https://www.vhv.rs/dpng/d/3-37064_pepe-noose-transparent-background-hd-png-download.png',
  iconWidth = 60, iconHeight = 60,
  iconAnchorX = 31*215/230/2, iconAnchorY = 16
)
H_c_s<- makeIcon(
  iconUrl = 'https://s.tcdn.co/4a4/f28/4a4f2880-e005-3f8f-ab47-2bb189e7d263/8.png',
  iconWidth = 60, iconHeight = 60,
  iconAnchorX = 31*215/230/2, iconAnchorY = 16
)
H_c_p<- makeIcon(
  iconUrl = 'https://cs8.pikabu.ru/post_img/2016/11/10/1/147873194019934043.png',
  iconWidth = 60, iconHeight = 60,
  iconAnchorX = 31*215/230/2, iconAnchorY = 16
)
H_js<- makeIcon(
  iconUrl = 'https://telegram.org.ru/uploads/posts/2017-03/1490201831_10.png',
  iconWidth = 60, iconHeight = 60,
  iconAnchorX = 31*215/230/2, iconAnchorY = 16
)
H_j<- makeIcon(
  iconUrl = 'https://static4.fjcdn.com/thumbnails/comments/Gt+liek+omg+why+did+this+get+notes+_2920236a3bc973de27a119933a63920f.png',
  iconWidth = 60, iconHeight = 60,
  iconAnchorX = 31*215/230/2, iconAnchorY = 16
)
H_R<- makeIcon(
  iconUrl = 'https://www.pngfind.com/pngs/m/456-4569336_view-noice-hide-the-pain-harold-sweater-hd.png',
  iconWidth = 60, iconHeight = 60,
  iconAnchorX = 31*215/230/2, iconAnchorY = 16
)
my_map<- my_map %>%
  addMarkers(lat=69.243521, lng=-53.540195, icon= pepe_php, 
             popup="Кекертарсуак.В этом городе родился Расмус Лердорф,автор языка PHP") %>%
  addMarkers(lat=40.748020, lng=-73.975132, icon= H_R,
             popup="Марри-Хил.В этом городе находится лаборатория Белла разработавшая R") %>%
  addMarkers(lat=47.668544, lng=-122.113155, icon= H_c_s,
             popup="Редмонд.В этом городе находится компания Microsoft разработавшая C#") %>%
  addMarkers(lat=56.162411, lng=10.183346, icon= H_c_p,
             popup="Орхус.В этом городе родился Бьёрн Страуструп,автор языка С++") %>%
  addMarkers(lat=52.408197, lng=4.641257, icon= H_p, 
             popup="Харлем.В этом городе родился Гвидо ван Россум,автор языка Python") %>%
  addMarkers(lat=40.438394, lng=-80.002607, icon=H_js,
             popup="Орхус.В этом городе родился Брендан Эйх,автор языка JavaScript") %>%
  addMarkers(lat=37.484936, lng=-122.231556, icon=H_j,
             popup="Редвуд-Сити.В этом городе находится компания Oracle,которая вместе с компанией Sun Microsystems разработала язык Java  и впоследствии поглотившая Sun Microsystems")
my_map