Anna up Black Boots Field Leather Lace Textile 4rwq40Fx

Timothée Giraud, Nicolas Lambert

2018-06-25

Anna up Black Boots Field Leather Lace Textile 4rwq40Fx Anna up Black Boots Field Leather Lace Textile 4rwq40Fx Anna up Black Boots Field Leather Lace Textile 4rwq40Fx Anna up Black Boots Field Leather Lace Textile 4rwq40Fx Anna up Black Boots Field Leather Lace Textile 4rwq40Fx Anna up Black Boots Field Leather Lace Textile 4rwq40Fx Anna up Black Boots Field Leather Lace Textile 4rwq40Fx

The rgdal Way

The sf Way

Europe Dataset

# Layout plot
layoutLayer(title = "Most Populated Countries of Europe", # title of the map
 author = "", # no author text
 sources = "", # no source text
 Textile Boots Field Anna up Lace Leather Black scale = NULL, # no scale
 col = NA, # no color for the title box 
 coltitle = "black", # color of the title
 frame = FALSE, # no frame around the map
 bg = "#A6CAE0", # background of the map
 extent = nuts0.spdf) # set the extent of the map

# Non European space
plot(world.spdf, col = "#E3DEBF", border = NA, add = TRUE)
# European (EU28) countries
plot(nuts0.spdf, col = "#D1914D",border = "white", lwd = 1, add = TRUE)

# Selection of the 10 most populated countries of Europe
dflab <- nuts0.df[order(nuts0.df$pop2008, decreasing = TRUE),][1:10,]
# Label creation
dflab$lab <- paste(dflab$id, Field Leather Lace Black Textile Anna up Boots "\n", round(dflab$pop2008/1000000,0), "M", sep ="")

# Label plot of the 10 most populated countries
labelLayer(spdf = nuts0.spdf, # SpatialPolygonsDataFrame used to plot he labels
 df = dflab, # data frame containing the lables
 txt = "lab", # label field in df
 col = "#690409", # color of the labels
 Lace Leather up Textile Boots Field Anna Black cex = 0.9, # size of the labels
 font = 2) # label font

# Add an explanation text
text(x = 5477360, y = 4177311, labels = "The 10 most populated countries of Europe
Total population 2008, in millions of inhabitants.", cex = 0.7, adj = 0)

# Compute the compound annual growth rate
nuts2.df$cagr <-Leather Field Boots up Textile Lace Anna Black (((nuts2.df$pop2008 / nuts2.df$pop1999)^(1/9)) - 1) *Anna Leather Black Field up Lace Textile Boots 100

# Set a custom color palette
cols <- carto.pal(pal1 = "green.pal", # first color gradient
 n1 = 2, # number of colors in the first gradiant
 pal2 = "red.pal", # second color gradient
 n2 = 4) # number of colors in the second gradiant

# Plot a layer with the extent of the EU28 countries with only a background color
plot(nuts0.spdf, border = NA, col = NA, bg = "#A6CAE0")nbsp;leather Ballet Navy Copenhagen Pumps Lining 4w7XY4Fq
# Plot non european space
plot(world.spdf, col = "#E3DEBF", border=NA, add=TRUE)

Crossbody Margherita Acciaio Mini Across Furla Bag Body Color CdS1xn0E
choroLayer(spdf = nuts2.spdf, # SpatialPolygonsDataFrame of the regions
 df = nuts2.df, # data frame with compound annual growth rate
 var = "cagr", # compound annual growth rate field in df
 breaks = c(-2.43,-1,0,0.5,1,2,3.1), # list of breaks
 col = cols, # colors 
 border = "grey40", # color of the polygons borders
 lwd = 0.5, Field Lace Leather Anna Textile up Boots Black # width of the borders
Boots nbsp;textile Divine Lining Ankle Classic Factory Black qnWFt8p
 legend.title.txt = "Compound Annual\nGrowth Rate", # title of the legend
 legend.values.rnd = 2, # number of decimal in the legend values
 add = TRUE) # add the layer to the current plot

Luggage Yellow AAA Quality Quality Wittchen AAA wq1Bn08
plot(nuts0.spdf,border = "grey20", lwd=0.75, add=TRUE)
Discount One Pier Pier Rucksack Discount One Black Rucksack z5XqBB
# Layout plot
layoutLayer(title = "Demographic Trends", author = "cartography", 
 sources = "Eurostat, 2008", frame = TRUE, col = NA, 
 scale = NULL,coltitle = "black",
 south = TRUE) # add a south arrow

Material & care

Upper material: High-quality imitation leather

Lining: Imitation leather/ textile

Insole: Imitation leather

Sole: Synthetics

Padding type: Cold padding

Fabric: Faux leather

Details

Shoe tip: Round

Heel type: Block heel

Upper detail: Side zip

Shoe fastener: Laces

Pattern: Plain

Details: Rhinestones

Article number: AN611N060-Q11

Anna Field
Follow
## Plot OpenStreetMap tiles as basemap 
# Download the tiles, nuts0.spdf extent
EUosm <- getTiles(spdf = nuts0.spdf, type = "osm", zoom = 4)
## Warning: spdf is deprecated; use x instead.
# Plot the tiles
tilesLayer(EUosm)

# Plot countries
plot(nuts0.spdf, border = "grey65", lwd = 2, add=TRUE)

# Plot countries population 
nuts0.df$pop <- nuts0.df$pop2008 / 1000
propSymbolsLayer(spdf = nuts0.spdf, # SpatialPolygonsDataFrame of the countries
 df = nuts0.df, # data frame of the regions
Walking Sandals Clarks Dark Brown Cove Brixby zw74qTPB
 symbols = "circle", # type of symbol
 border = "white", # color of the symbols borders
 lwd = Lace Field Boots Black Anna Textile up Leather 1.5, # width of the symbols borders
 legend.pos = "topleft",
 legend.title.txt = "Total population\n(in thousands)")
# # Layout plot
ups Lining Amina nbsp;textile Cognac Vagabond Lace 6TwEHxWqA
 sources = "Data: Eurostat, 2008",
 author = "Base map: Map tiles by Stamen Design, under CC BY 3.0. Data by OpenStreetMap, under CC BY SA.",
 scale = NULL, frame = TRUE,
 col = "#688994") # color of the frame

# Create a link layer from the twincities data frame
head(twincities.df)
## i j fij
## 1 DE14 AT11 1
## 2 DE21 AT11 1
## 3 DE23 AT11 1
## 4 DE26 AT11 2
## 5 DE91 AT11 1
## 6 DEB3 AT11 1
# twincities contains links between Nuts 2 regions
# ?twincities.df
twincities.spdf <- getLinkLayer(x = nuts2.spdf, # SpatialPolygonsDataFrame of Nuts2
 df = twincities.df) # links data frame

# Plot a layer with the extent of the EU28 countries with only a background color
plot(nuts0.spdf, border = NA, col = NA, bg = "#A6CAE0")
# Plot non european space
plot(world.spdf, col = "#E3DEBF", border=NA, add=TRUE)
# Plot Nuts2 regions
plot(nuts2.spdf, col = "#D1914D",border = "grey80", add=TRUE)

# # Plot links with graduated sizes
gradLinkLayer(x = twincities.spdf, # SpatialLinesdataFrame of the links
 df = twincities.df, # data frame of the links
 var = "fij", # name of the variable used to plot the links widths
 breaks = c(2,5,15,20,30), # list of breaks
 lwd = c(0.1,Anna Leather Textile Black Field Lace up Boots 1,4,10), # list of widths
 Black Leather Lace Textile Boots Anna up Field col = "#92000090", # color of the links
 legend.pos = "right", legend.frame = TRUE,
 legend.title.txt = "Number of Aggreements\n(regional level)",
 add = TRUE)

# Plot the layout
layoutLayer(title = Anna Lace Textile Leather Black Boots Field up "International Twinning Agreements Between Cities", 
 author = "cartography", sources = "Sources: Adam Ploszaj & Wikipedia, 2011",
 scale = NULL, south = TRUE, frame = TRUE, col = NA, 
 coltitle = "black")

# Compute the compound annual growth rate
nuts2.df$cagr <- (((nuts2.df$pop2008 / nuts2.df$pop1999)^(1/9)) - 1) * 100
Light Lining Grey Boots nbsp;textile Ankle Tamaris wE1qf0Hnxq
# Plot a layer with the extent of the EU28 countries with only a background color
plot(nuts0.spdf, border = NA, col = NA, bg = "#A6CAE0")
# Plot non european space
plot(world.spdf, col = "#E3DEBF", border = NA, add = TRUE)
# Plot Nuts2 regions
plot(nuts2.spdf, col = "grey60",border =oliver nbsp;leather Sandals bar T S Lining Mocca 8xUwfnqT "white", lwd = 0.4, add = TRUE)

Performance Football Vapor light Nike Agpro Pro Boots anthracite Moulded 12 Crimson Stud Black Tp0AdaqW
cols <- carto.pal(pal1 = "blue.pal", n1 = 2, pal2 = "red.pal", n2 = 4)

# Plot symbols with choropleth coloration
propSymbolsChoroLayer(spdf = nuts2.spdf, 
 df = nuts2.df, 
 var = "pop2008", # field in df to plot the symbols sizes
 inches = 0.1, # set the symbols sizes
 var2 = "cagr", # field in df to plot the colors
 col = cols, # symbols colors
 breaks = c(-2.43,-1,Boots Anna Black up Leather Lace Field Textile 0,0.5,1,2,3.1), # breaks
 border = "grey50", # border colors of the symbols
 lwd = 0.75, # symbols width
 legend.var.pos = "topright", # size legend position
 legend.var.values.rnd = -3, # size legend value roundinf
 legend.var.title.txt = "Total Population", # size legend titleLining nbsp;wool Shepherd Slippers Black Cilla xqqtIHPOw1
Pier Black nbsp;textile up Boots One Lace Lining wwxqH08r
 legend.var2.pos = "right", # color legend position
 legend.var2.title.txt = "Compound Annual\nGrowth Rate") # legend title

# layout
layoutLayer(title = "Demographic trends, 1999-2008", coltitle = "black",
 sources = "Eurostat, 2011", scale = NULL,
 author = "cartography", frame ="", col = NA)

# Get a SpatialLinesDataFrame of countries borders
nuts0.contig <- getBorders(spdf = nuts0.spdf)
## Warning: spdf and spdfid are deprecated; use x and id instead.
class(nuts0.contig)
## [1] "sf" "data.frame"

# Get the GDP per capita
nuts0.df$gdpcap <- nuts0.df$gdppps2008/nuts0.df$pop2008*1000000

# Plot a layer with the extent of the EU28 countries with only a background color
plot(nuts0.spdf, border = NA, col = NA, bg = "#A6CAE0")
# Plot non european space
plot(world.spdf, col =Lining Anna Ballet Pumps Black nbsp;textile Field fq7O8zWB "#E3DEBF", border=NA, add=TRUE)

# Plot GDP per capita with a choropleth layer
choroLayer(spdf = nuts0.spdf, df = nuts0.df, var = "gdpcap", border = "grey80",
 col = carto.pal(pal1 = "kaki.pal", n1 = 6), method = "quantile",
 nclass = 6, add=TRUE, legend.pos = "right", 
 legend.values.rnd = -2,
 legend.title.txt = "GDP per Capita\n(in euros)")Fudge Onspauli amp; T Tee shirt Print Stripe Sons Only EZqw8Z

# Plot discontinuities
discLayer(x = nuts0.contig, # sf of borders
 df = nuts0.df, # data frame on countries
 var = "gdpcap", # variable used to compute discontinuties 
volt Sport Graphite Sliders Pool Crocs Modi Green W6vUpp
 method="equal", # discretisation of discontinuities
 nclass=4, # number of discontinuities classes
 threshold = 0.5, Boots Anna Leather up Textile Field Lace Black # representation threshold of discontinuities
 sizemin = 0.5, # minimum size of discontinuities lines
 sizemax = 6, # maximum size of discontinuities lines
 col="red", # color of the lines
 legend.values.rnd = 1,
 legend.title.txt = Textile Leather up Lace Anna Black Boots Field "Discontinuities in\nGDP per Capita\n(relative)",
 legend.pos = "topright", 
 add=TRUE)

# Layout
layoutLayer(title = "Wealth Disparities in Europe", coltitle = "black",
 sources = "Eurostat, 2011", scale = NULL,
Trainers Puma Bow nbsp;textile Uprising Orchid white Lining Orchid Winsome Uxzxgq

# Create a grid layer
nuts2.spdf@data <- nuts2.df
mygrid <- getGridLayer(x = nuts2.spdf, # SpatialPolygonsDataFrame
Powerprint tonal Under Black Leggings Superbase Armour EvqrqHXwnA
 var = "pop2008") # variable to adapt to the grid
 

# Plot dentsity of population
## conversion from square meter to square kilometers
mygrid$densitykm <- mygrid$pop2008 * 1000 * 1000 / mygrid$gridarea

# Plot a layer with the extent of the EU28 countries with only a background color
plot(nuts0.spdf, border = NA, col = NA, bg = "#A6CAE0")
# Plot non european space
plot(world.spdf, col = "#E3DEBF", border=NA, add=TRUE)

# Set a custom color paletteNike White Berlin shirt Tee T Dry Run Performance Print OfqrTnO
cols <- carto.pal(pal1 = "wine.pal", n1 = 6)

# Plot the gridded population density
choroLayer(x = mygrid, var = "densitykm", 
 border = "grey80", col = cols, legend.pos = "topright",
 method = "q6", add = TRUE, legend.values.rnd = 1,
 legend.title.txt = "Population Density\n(inhabitant/km²)")

# Layout
layoutLayer(title = "Population Density", coltitle = "black",
 sources = "Eurostat, 2011", scale = NULL, 
 author = "cartography", Lace Field Boots Textile up Anna Leather Black frame ="", col = NA)