I need to populate a table with origins and destinations so that each cell contains the total number of people leaving from one location to another.

The database has an id for each observation, as well as the source and destination. Each observation has a "weight" that corresponds to a number of people for that observation. Here's an example:

# Banco de dados de exemplo:
localidades <- data.frame(id = c(1, 2, 3, 4, 5, 6),
                          Peso_id = c(5, 5, 10, 10, 10, 7),
                          Origem = factor(c("A", "A", "B", "B", "B", "C"),
                                      levels = c("A", "B", "C", "D")),
                          Destino = factor(c("C", "D", "A", "C", "A", "D"),
                                       levels = c("A", "B", "C", "D"))
                         )

localidades
#>   id Peso_id Origem Destino
#> 1  1       5      A       C
#> 2  2       5      A       D
#> 3  3      10      B       A
#> 4  4      10      B       C
#> 5  5      10      B       A
#> 6  6       7      C       D

Matrix of origins and destinations?

If I use the table() function as I do below, only the number of observations ( id ) instead of the number of people (eg Peso_id ) will be counted for each pair of locations:

minha_tabela <- table(localidades$Origem , localidades$Destino)

minha_tabela
#>    
#>     A B C D
#>   A 0 0 1 1
#>   B 2 0 1 0
#>   C 0 0 0 1
#>   D 0 0 0 0

However I need to be considered in the account Peso_id at the time of mounting the table. In the end I want to get this information:

minha_tabela_OD
#>    
#>     A   B  C  D
#>   A 0   0  5  5
#>   B 20  0  10 0
#>   C 0   0  0  7
#>   D 0   0  0  0

How do you do it?