Bring in csv file as dataframe pbdata
pbdata <- read.table("https://raw.githubusercontent.com/karenweigandt/IS607/master/kawcopyPittsburghBridgesdataset.csv", sep=",")
Subset the data choosing 5 of the 13 variables
pb_subcol_data <- pbdata[, c(1,2,5,10,13)]
Give the columns meaningful names
colnames(pb_subcol_data) <- c("Identifier","River","Purpose","Material","Bridge Type")
Cull dataset to show rows with pittsburgh bridges made of steel
pb_subrowsteel_data <- pb_subcol_data[which(pb_subcol_data$Material == "STEEL"),]
Show first 6 rows of steel bridge data
head(pb_subrowsteel_data)
## Identifier River Purpose Material Bridge Type
## 21 E23 M HIGHWAY STEEL SUSPEN
## 23 E24 O RR STEEL SIMPLE-T
## 24 E25 M RR STEEL SIMPLE-T
## 25 E27 A RR STEEL SIMPLE-T
## 26 E26 M RR STEEL SIMPLE-T
## 27 E30 A RR STEEL SIMPLE-T
Or show bridges not made of steel (includes unknown materials)
pb_subrowNOTsteel_data <- pb_subcol_data[which(pb_subcol_data$Material != "STEEL"),]
show bridges not made of steel
pb_subrowNOTsteel_data
## Identifier River Purpose Material Bridge Type
## 1 E1 M HIGHWAY WOOD WOOD
## 2 E2 A HIGHWAY WOOD WOOD
## 3 E3 A AQUEDUCT WOOD WOOD
## 4 E5 A HIGHWAY WOOD WOOD
## 5 E6 M HIGHWAY WOOD WOOD
## 6 E7 A HIGHWAY WOOD WOOD
## 7 E8 A AQUEDUCT IRON SUSPEN
## 8 E9 M HIGHWAY IRON SUSPEN
## 9 E10 A AQUEDUCT WOOD WOOD
## 10 E11 A HIGHWAY WOOD WOOD
## 11 E12 A RR WOOD WOOD
## 12 E14 M HIGHWAY WOOD WOOD
## 13 E13 A HIGHWAY WOOD WOOD
## 14 E15 A RR WOOD WOOD
## 15 E16 A HIGHWAY IRON SUSPEN
## 16 E17 M RR IRON SIMPLE-T
## 17 E18 A RR IRON SIMPLE-T
## 18 E19 A HIGHWAY WOOD WOOD
## 19 E20 A HIGHWAY WOOD WOOD
## 20 E21 M RR IRON SIMPLE-T
## 22 E22 A HIGHWAY WOOD WOOD
## 30 E32 A HIGHWAY IRON SIMPLE-T
## 33 E33 M HIGHWAY IRON SIMPLE-T
## 34 E36 O HIGHWAY IRON SIMPLE-T
## 36 E38 M HIGHWAY IRON SIMPLE-T
## 39 E4 A AQUEDUCT WOOD WOOD
## 41 E41 M HIGHWAY IRON SIMPLE-T
## 107 E100 O HIGHWAY ? ?
## 108 E109 A HIGHWAY ? ?