Reshaping 3 Column R Data Frame to a Square Matrix

Suppose you have an R data frame that looks like this:

Imaginary Flight Time (minutes) 

And you want to create an Origin and Destination matrix or reshape this data frame to a square matrix, then one possible way to do this in R is shown below.

##############################################

## Read data (csv) 

temp <- read.csv("AirportData.csv", stringsAsFactors = TRUE)

## Order temp data in ascending order of origin airport and then destination airport
temp <- temp[order(temp$Origin.Airport, temp$Destination.Airport), ]

## Ordered data looks like this:

## Populating square matrix in R

oriAirport <- temp[, 1]

desAirport <- temp[, 2]

flightTime <- temp[, 3]

Index <- which(desAirport == desAirport[1])

desAirportRange <- Index[2] - 1

oriAirportRange <- length(flightTime) / desAirportRange

distMatrix <- matrix(0, nrow = oriAirportRange, ncol = desAirportRange)
for (i in 1:oriAirportRange){
        for (j in 1:desAirportRange){
                distMatrix[i, j] <- flightTime[(i - 1) * desAirportRange + j]
        }
}

dist <- data.frame(distMatrix)

names(dist) <- c(levels(desAirport))        

row.names(dist) <- c(levels(oriAirport))
View(dist)

##############################################

The resulting square matrix looks like this: