##Library

library(tmap)
library(sf)
library(ggthemes)

##World Map

tm_shape(World)+
  tm_polygons(fill = "economy")+
  tm_text(text = "name",)


ttmp()

tm_shape(World)+ 
  tm_polygons(
    fill = "#ffce00", # fill color
    col = "black",    # line color
    lwd = 0.5,        # line width
    lty = "dashed")   # line type

tm_shape(World)+ tm_polygons(
  fill = "HPI",
  fill.scale = tm_scale_intervals(
    style = "fisher",      # a method to specify the classes
    n = 7,                 # number of classes
    midpoint = 38,         # data value mapped to the middle palette color
    values = "Orange"   # color palette; 
                           # run cols4all::c4a_gui() to explore color palettes
  ))

tm_shape(metro) +
  tm_bubbles(size = "pop2020") +
  tm_basemap("Esri.WorldImagery")

tm_shape(World) + 
  tm_polygons(
    fill = "economy",
    fill.chart = tm_chart_bar())

LS0tDQp0aXRsZTogIlIgTm90ZWJvb2siDQpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sNCi0tLQ0KIyNMaWJyYXJ5DQpgYGB7cn0NCmxpYnJhcnkodG1hcCkNCmxpYnJhcnkoc2YpDQpsaWJyYXJ5KGdndGhlbWVzKQ0KYGBgDQojI1dvcmxkIE1hcA0KYGBge3J9DQp0bV9zaGFwZShXb3JsZCkrDQogIHRtX3BvbHlnb25zKGZpbGwgPSAiI0NENUI0NSIpKw0KICB0bV90ZXh0KHRleHQgPSAibmFtZSIsKQ0KDQoNCnR0bXAoKQ0KYGBgDQpgYGB7cn0NCnRtX3NoYXBlKFdvcmxkKSsgDQogIHRtX3BvbHlnb25zKA0KICAgIGZpbGwgPSAiI2ZmY2UwMCIsICMgZmlsbCBjb2xvcg0KICAgIGNvbCA9ICJibGFjayIsICAgICMgbGluZSBjb2xvcg0KICAgIGx3ZCA9IDAuNSwgICAgICAgICMgbGluZSB3aWR0aA0KICAgIGx0eSA9ICJkYXNoZWQiKSAgICMgbGluZSB0eXBlDQoNCmBgYA0KYGBge3J9DQp0bV9zaGFwZShXb3JsZCkrIHRtX3BvbHlnb25zKA0KICBmaWxsID0gIkhQSSIsDQogIGZpbGwuc2NhbGUgPSB0bV9zY2FsZV9pbnRlcnZhbHMoDQogICAgc3R5bGUgPSAiZmlzaGVyIiwgICAgICAjIGEgbWV0aG9kIHRvIHNwZWNpZnkgdGhlIGNsYXNzZXMNCiAgICBuID0gNywgICAgICAgICAgICAgICAgICMgbnVtYmVyIG9mIGNsYXNzZXMNCiAgICBtaWRwb2ludCA9IDM4LCAgICAgICAgICMgZGF0YSB2YWx1ZSBtYXBwZWQgdG8gdGhlIG1pZGRsZSBwYWxldHRlIGNvbG9yDQogICAgdmFsdWVzID0gIk9yYW5nZSIgICAjIGNvbG9yIHBhbGV0dGU7IA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgIyBydW4gY29sczRhbGw6OmM0YV9ndWkoKSB0byBleHBsb3JlIGNvbG9yIHBhbGV0dGVzDQogICkpDQoNCmBgYA0KYGBge3J9DQp0bV9zaGFwZShtZXRybykgKw0KICB0bV9idWJibGVzKHNpemUgPSAicG9wMjAyMCIpICsNCiAgdG1fYmFzZW1hcCgiRXNyaS5Xb3JsZEltYWdlcnkiKQ0KDQpgYGANCmBgYHtyfQ0KdG1fc2hhcGUoV29ybGQpICsgDQogIHRtX3BvbHlnb25zKA0KICAgIGZpbGwgPSAiZWNvbm9teSIsDQogICAgZmlsbC5jaGFydCA9IHRtX2NoYXJ0X2JhcigpKQ0KDQpgYGANCg0K