#Accessing the Pittsburgh bridges source by downloading the file without headers and creating a data frame.
bridges <- read.csv('https://archive.ics.uci.edu/ml/machine-learning-databases/bridges/bridges.data.version2', header=FALSE)
#Adding in column names adapted from the data dictionary for readability
colnames(bridges) <- c("Identifier","River","Location","Erected","Purpose","Length","Lanes","Clear-G","T-or-D","Material","Span","Rel-L","Type")
head(bridges)
## Identifier River Location Erected Purpose Length Lanes Clear-G T-or-D
## 1 E1 M 3 CRAFTS HIGHWAY ? 2 N THROUGH
## 2 E2 A 25 CRAFTS HIGHWAY MEDIUM 2 N THROUGH
## 3 E3 A 39 CRAFTS AQUEDUCT ? 1 N THROUGH
## 4 E5 A 29 CRAFTS HIGHWAY MEDIUM 2 N THROUGH
## 5 E6 M 23 CRAFTS HIGHWAY ? 2 N THROUGH
## 6 E7 A 27 CRAFTS HIGHWAY SHORT 2 N THROUGH
## Material Span Rel-L Type
## 1 WOOD SHORT S WOOD
## 2 WOOD SHORT S WOOD
## 3 WOOD ? S WOOD
## 4 WOOD SHORT S WOOD
## 5 WOOD ? S WOOD
## 6 WOOD MEDIUM S WOOD
#For readability changing the abbreviations of the river names
bridges$River <- gsub("O", "Ohio", bridges$River)
bridges$River <- gsub("A", "Allegheny", bridges$River)
bridges$River <- gsub("M", "Monongahela", bridges$River)
#Creating a new data frame with a subset of the columns
bridgeshort <- bridges [, c(1,2,3,5,10,13)]
head(bridgeshort)
## Identifier River Location Purpose Material Type
## 1 E1 Monongahela 3 HIGHWAY WOOD WOOD
## 2 E2 Allegheny 25 HIGHWAY WOOD WOOD
## 3 E3 Allegheny 39 AQUEDUCT WOOD WOOD
## 4 E5 Allegheny 29 HIGHWAY WOOD WOOD
## 5 E6 Monongahela 23 HIGHWAY WOOD WOOD
## 6 E7 Allegheny 27 HIGHWAY WOOD WOOD
#Creating a new data frame with a subset of the rows
bridgeshorter<- bridgeshort [1:25,]
bridgeshorter
## Identifier River Location Purpose Material Type
## 1 E1 Monongahela 3 HIGHWAY WOOD WOOD
## 2 E2 Allegheny 25 HIGHWAY WOOD WOOD
## 3 E3 Allegheny 39 AQUEDUCT WOOD WOOD
## 4 E5 Allegheny 29 HIGHWAY WOOD WOOD
## 5 E6 Monongahela 23 HIGHWAY WOOD WOOD
## 6 E7 Allegheny 27 HIGHWAY WOOD WOOD
## 7 E8 Allegheny 28 AQUEDUCT IRON SUSPEN
## 8 E9 Monongahela 3 HIGHWAY IRON SUSPEN
## 9 E10 Allegheny 39 AQUEDUCT WOOD WOOD
## 10 E11 Allegheny 29 HIGHWAY WOOD WOOD
## 11 E12 Allegheny 39 RR WOOD WOOD
## 12 E14 Monongahela 6 HIGHWAY WOOD WOOD
## 13 E13 Allegheny 33 HIGHWAY WOOD WOOD
## 14 E15 Allegheny 28 RR WOOD WOOD
## 15 E16 Allegheny 25 HIGHWAY IRON SUSPEN
## 16 E17 Monongahela 4 RR IRON SIMPLE-T
## 17 E18 Allegheny 28 RR IRON SIMPLE-T
## 18 E19 Allegheny 29 HIGHWAY WOOD WOOD
## 19 E20 Allegheny 32 HIGHWAY WOOD WOOD
## 20 E21 Monongahela 16 RR IRON SIMPLE-T
## 21 E23 Monongahela 1 HIGHWAY STEEL SUSPEN
## 22 E22 Allegheny 24 HIGHWAY WOOD WOOD
## 23 E24 Ohio 45 RR STEEL SIMPLE-T
## 24 E25 Monongahela 10 RR STEEL SIMPLE-T
## 25 E27 Allegheny 39 RR STEEL SIMPLE-T