Matrices Origen - Destino

Ciruelas

library(readr)
#Vinos_Mosto <- read_delim("/media/rpalma/OS/AAA_Datos/2020/BID/Estadisticas/Matriz Origen Destino/CSV/Ciruela.csv", 
#    ";", escape_double = FALSE, trim_ws = TRUE)

Vinos_Mosto <- read_delim("Ciruela.csv", ";", escape_double = FALSE, trim_ws = TRUE)
## Warning: Missing column names filled in: 'X1' [1]
## 
## ── Column specification ────────────────────────────────────────────────────────
## cols(
##   .default = col_double()
## )
## ℹ Use `spec()` for the full column specifications.
Vinos_Mosto <- as.matrix(Vinos_Mosto)
Vinos_Mosto <- Vinos_Mosto/1000000


Zonas <- read_delim("Zonas.csv",";", escape_double = FALSE, trim_ws = TRUE)
## 
## ── Column specification ────────────────────────────────────────────────────────
## cols(
##   ID = col_double(),
##   `CODIGO ZONA` = col_character(),
##   PROVINCIA = col_character(),
##   CENTROIDE = col_character()
## )
rownames(Vinos_Mosto) <- Zonas$CENTROIDE
Vinos_Mosto <- Vinos_Mosto[ , -1]
colnames(Vinos_Mosto) <- Zonas$CENTROIDE

Origen y Destino por Zonas Centroides

library(circlize)
## ========================================
## circlize version 0.4.13
## CRAN page: https://cran.r-project.org/package=circlize
## Github page: https://github.com/jokergoo/circlize
## Documentation: https://jokergoo.github.io/circlize_book/book/
## 
## If you use it in published research, please cite:
## Gu, Z. circlize implements and enhances circular visualization
##   in R. Bioinformatics 2014.
## 
## This message can be suppressed by:
##   suppressPackageStartupMessages(library(circlize))
## ========================================
chordDiagram(Vinos_Mosto, transparency = 0.5, big.gap = 10 )

# circos.dendrogram(Vinos_Mosto, facing = "inside")

Archivos de Datos:

Matriz Origen Destino Centros Urbanos Nodos Fuente del Proyecto

R Markdown

This is an R Markdown document. Markdown is a simple formatting syntax for authoring HTML, PDF, and MS Word documents. For more details on using R Markdown see http://rmarkdown.rstudio.com.

When you click the Knit button a document will be generated that includes both content as well as the output of any embedded R code chunks within the document. You can embed an R code chunk like this:

summary(cars)
##      speed           dist       
##  Min.   : 4.0   Min.   :  2.00  
##  1st Qu.:12.0   1st Qu.: 26.00  
##  Median :15.0   Median : 36.00  
##  Mean   :15.4   Mean   : 42.98  
##  3rd Qu.:19.0   3rd Qu.: 56.00  
##  Max.   :25.0   Max.   :120.00

Including Plots

You can also embed plots, for example:

Note that the echo = FALSE parameter was added to the code chunk to prevent printing of the R code that generated the plot.