```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```


## Matrices Origen - Destino

Ciruelas 

```{r}
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)

Vinos_Mosto <- as.matrix(Vinos_Mosto)
Vinos_Mosto <- Vinos_Mosto/1000000


Zonas <- read_delim("Zonas.csv",";", escape_double = FALSE, trim_ws = TRUE)


rownames(Vinos_Mosto) <- Zonas$CENTROIDE
Vinos_Mosto <- Vinos_Mosto[ , -1]
colnames(Vinos_Mosto) <- Zonas$CENTROIDE






```


Origen y Destino por Zonas Centroides

```{r}
library(circlize)
chordDiagram(Vinos_Mosto, transparency = 0.5, big.gap = 10 )


```



```{r}
# circos.dendrogram(Vinos_Mosto, facing = "inside")
```


Archivos de Datos:

[Matriz Origen Destino](Ciruela.csv)
[Centros Urbanos Nodos](Zonas.csv)
[Fuente del Proyecto](index.Rmd)


## 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:

```{r cars}
summary(cars)
```

## Including Plots

You can also embed plots, for example:

```{r pressure, echo=FALSE}
plot(pressure)
```

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