🌎Mapas con coordenadas🗺️

LOS ECONOMISTAS CLÁSICOS MÁS IMPORTANTES 📚

La economía clásica, también es llamada economía política, surge aproximadamente en el siglo XVIII en contraposición al mercantilismo, el cual se caracterizaba por apoyar una intensa intervención del estado en la economía. Dicha escuela, entró en crisis ante la aparición de las nuevas teorías fisiócratas y liberales, las cuales ayudaron a Europa a recuperarse de la profunda crisis del siglo XVII y de las guerras revolucionarias francesas.

Entonces, el pensamiento económico clásico y la ciencia económica en sí tuvieron su mayor auge con Adam Smith, a finales del siglo XVIII, principalmente en 1776, cuando se publicó la obra “Una investigación sobre la naturaleza y causa de la riqueza de las naciones”. La economía clásica se centraba en el crecimiento y en la libertad económica, la cual puede ser resumida en la frase francesa, “Laissez faire, laissez passer” que significa dejar hacer, dejar pasar. Pues se rechazaba la idea de que el gobierno interviniera en el mercado/economía.

Mayores exponentes de la economía clásica:

🏴󠁧󠁢󠁥󠁮󠁧󠁿François Quesnay (nació el 4 de junio de 1694 en Versalles y murió el 16 de diciembre de 1774, a los 80 años.) fue un economista francés, el cual sentólas bases de la fisiocracia, posteriormente, su obra sirvió de inspiración y referencia para futuros autores, tales como Adam Smith, David Ricardo y Karl Marx.

Obra: Tableau économique (1758).

### Se resgistra la ciudad con sus coordenadas
lugar1 <- c(Ciudad = "Versalles", Descripcion = "Nacimiento de François Quesnay", longitud = 2.125374076641928 , latitud = 48.802170675861255) 

### Se crea una tabla de datos con la informacion del lugar
lugares <- data.frame(rbind(lugar1))

### Nos aseguramos de que la latitud y longitud sean números
lugares$longitud <- as.numeric(lugares$longitud)
lugares$latitud <- as.numeric(lugares$latitud)

### Creamos el mapa 
mapa <- leaflet(lugares) %>% setView(lng = 2.354157612220071, lat = 48.858674121385654, zoom = 5) %>% addTiles() %>% addMarkers(~longitud, ~latitud, popup = paste(sep = "<br/>", "Ciudad:", lugares$Ciudad, "Descripcion:", lugares$Descripcion)) 

### Agregamos el botón de reset y la barra de herramientas de dibujo al mapa
mapa %>% addResetMapButton() %>% addDrawToolbar(editOptions = editToolbarOptions(selectedPathOptions = selectedPathOptions()))

🏴󠁧󠁢󠁥󠁮󠁧󠁿Adam Smith ( nació el 5 de junio de 1723 en Escocia y murió el 17 de julio de 1790, a los 67 años.) fue un economista y filósofo escocés, considerado como padre de la economía, así como uno de los mayores exponentes de la economía clásica y de la filosofía económica.

Obras: Teoría de los sentimientos morales (1759) y Una investigación sobre la naturaleza y causas de la riqueza de las naciones. (1776) (obra que tardo 10 años en finalizar).

### Se resgistra la ciudad con sus coordenadas  
lugar1 <- c(Ciudad = "Edinburgo", Descripcion = "Nacimiento de Adam Smith", longitud = -4.292943011505083, latitud = 57.135001113662604) 

### Se crea una tabla de datos con la informacion del lugar
lugares <- data.frame(rbind(lugar1))

### Nos aseguramos de que la latitud y longitud sean números
lugares$longitud <- as.numeric(lugares$longitud)
lugares$latitud <- as.numeric(lugares$latitud)

### Creamos el mapa  
mapa <- leaflet(lugares) %>% setView(lng = -2.7521607805594432, lat = 55.05775763375152, zoom = 5) %>% addTiles() %>% addMarkers(~longitud, ~latitud, popup = paste(sep = "<br/>", "Ciudad:", lugares$Ciudad, "Descripcion:", lugares$Descripcion)) 

### Agregamos el botón de reset y la barra de herramientas de dibujo al mapa
mapa %>% addResetMapButton() %>% addDrawToolbar(editOptions = editToolbarOptions(selectedPathOptions = selectedPathOptions()))

🏴󠁧󠁢󠁥󠁮󠁧󠁿Thomas Robert Malthus (nació el 14 de febrero de 1766 en Dorking y murió el 29 de diciembre de 1834, a los  68 años.) fue un economista y filósofo inglés reconocido por sus estudios en política económica y en demografía.

Obra: Ensayo sobre el principio de la población (1798).

### Se resgistra la ciudad con sus coordenadas
lugar1 <- c(Ciudad = "Dorking", Descripcion = "Nacimiento de Thomas Robert Malthus", longitud = -0.33234959129997343, latitud = 51.23271669614619) 

### Se crea una tabla de datos con la informacion del lugar
lugares <- data.frame(rbind(lugar1))

### Nos aseguramos de que la latitud y longitud sean números
lugares$longitud <- as.numeric(lugares$longitud)
lugares$latitud <- as.numeric(lugares$latitud)

### Creamos el mapa  
mapa <- leaflet(lugares) %>% setView(lng = -2.7521607805594432, lat = 55.05775763375152, zoom = 5) %>% addTiles() %>% addMarkers(~longitud, ~latitud, popup = paste(sep = "<br/>", "Ciudad:", lugares$Ciudad, "Descripcion:", lugares$Descripcion)) 

### Agregamos el botón de reset y la barra de herramientas de dibujo al mapa
mapa %>% addResetMapButton() %>% addDrawToolbar(editOptions = editToolbarOptions(selectedPathOptions = selectedPathOptions()))

🏴󠁧󠁢󠁥󠁮󠁧󠁿David Ricardo (nació el 18 de abril de 1772 en Londres y murió el 11 de septiembre de 1823, 51 años.) fue un economista inglés de origen judío, miembro del pensamiento clásico. Fue pionero en investigación de macroeconomía por su análisis de la relación entre beneficios y salarios, al igual que con la teoría cuantitativa del dinero.

Continuó el análisis del circuito de producción (Table Economique), cuyo origen se remonta a Quesnay y al pensamiento fisiócrata. También hizo una crítica a la obra de Smith, desarrollando más la teoría del valor-trabajo.

Obra: Principios de economía política y tributación(1817).

### Se resgistra la ciudad con sus coordenadas
lugar1 <- c(Ciudad = "Londres", Descripcion = "Nacimiento de David Ricardo", longitud = -0.13044497584009013, latitud = 51.51531377787151) 

### Se crea una tabla de datos con la informacion del lugar
lugares <- data.frame(rbind(lugar1))

### Nos aseguramos de que la latitud y longitud sean números
lugares$longitud <- as.numeric(lugares$longitud)
lugares$latitud <- as.numeric(lugares$latitud)

### Creamos el mapa  
mapa <- leaflet(lugares) %>% setView(lng = -2.7521607805594432, lat = 49.05775763375152, zoom = 5) %>% addTiles() %>% addMarkers(~longitud, ~latitud, popup = paste(sep = "<br/>", "Ciudad:", lugares$Ciudad, "Descripcion:", lugares$Descripcion)) 

### Agregamos el botón de reset y la barra de herramientas de dibujo al mapa
mapa %>% addResetMapButton() %>% addDrawToolbar(editOptions = editToolbarOptions(selectedPathOptions = selectedPathOptions()))

🏴󠁧󠁢󠁥󠁮󠁧󠁿Karl Heinrich Marx (nació el 5 de mayo de 1818 en el 664 Brückergasse de Tréveris (Trier), ciudad que entonces formaba parte del Reino de Prusia (hoy Alemania), y murió el 14 de marzo de 1883, a los 65 años.) fue un filósofo, economista y militante comunista alemán de origen judío. Marx, al realizar su libro “El Capital”, realizo diversas críticas a economistas clásicos, como lo son: Quesnay, Smith, Malthus y Ricardo.

Obras: El capital (Critica a la economía política) (1867), Manuscritos económicos y filosóficos (1832) Y el Manifiesto del Partido Comunista (1848).

### Se resgistra la ciudad con sus coordenadas
lugar1 <- c(Ciudad = "Tréveris", Descripcion = "Nacimiento de Karl Heinrich Marx", longitud = 6.63435171717444, latitud = 49.752690577817305) 

### Se crea una tabla de datos con la informacion del lugar
lugares <- data.frame(rbind(lugar1))

### Nos aseguramos de que la latitud y longitud sean números
lugares$longitud <- as.numeric(lugares$longitud)
lugares$latitud <- as.numeric(lugares$latitud)

### Creamos el mapa  
mapa <- leaflet(lugares) %>% setView(lng = 10.955680291870175, lat = 51.1726483195553, zoom = 5) %>% addTiles() %>% addMarkers(~longitud, ~latitud, popup = paste(sep = "<br/>", "Ciudad:", lugares$Ciudad, "Descripcion:", lugares$Descripcion)) 

### Agregamos el botón de reset y la barra de herramientas de dibujo al mapa
mapa %>% addResetMapButton() %>% addDrawToolbar(editOptions = editToolbarOptions(selectedPathOptions = selectedPathOptions()))

¡¡Muchas gracias por ver este tutorial!!👍🏻👀

Aquí puedes encontrar un video para apoyarte en tu trabajo.🙌🏻🙌🏻🎬🎬

Tutorial de R | Cómo agregar mapa interactivo en artículo

REFERENCIAS

Smith, A. (1776). An inquiry into the nature and causes of the wealth of nations. An electronic classics series publication.

Braudel, F. (s/f). Civilizaciones actuales. Tecnos, pp. 319-336, cap. XVIII.

Marx. K. “Das Kapital”. 4a edición alemana de 1890. La llamada acumulación originaria. Capítulo XXIV. Traducido al español.