Bridge Data Subset Lab Data 607

Copy Bridge Data url to url variable for use in read.csv command:

bridge_url <- "https://archive.ics.uci.edu/ml/machine-learning-databases/bridges/bridges.data.version2"

Create column names vector to use in read.csv command:

bridge_col_names <- c("ID", "River", "Location", "Erected", "Purpose", "Length", 
                      "Lanes", "Clear", "T-or-D", "Material", "Span", "Rel-L",                          "Type")

Create Bridge DataFrame by using read.csv to read bridge data and display 6 rows using head function:

bridge_df <- read.csv(bridge_url, header = FALSE, sep = ",", col.names = bridge_col_names)
head(bridge_df)

##   ID River Location Erected  Purpose Length Lanes Clear  T.or.D Material
## 1 E1     M        3  CRAFTS  HIGHWAY      ?     2     N THROUGH     WOOD
## 2 E2     A       25  CRAFTS  HIGHWAY MEDIUM     2     N THROUGH     WOOD
## 3 E3     A       39  CRAFTS AQUEDUCT      ?     1     N THROUGH     WOOD
## 4 E5     A       29  CRAFTS  HIGHWAY MEDIUM     2     N THROUGH     WOOD
## 5 E6     M       23  CRAFTS  HIGHWAY      ?     2     N THROUGH     WOOD
## 6 E7     A       27  CRAFTS  HIGHWAY  SHORT     2     N THROUGH     WOOD
##     Span Rel.L Type
## 1  SHORT     S WOOD
## 2  SHORT     S WOOD
## 3      ?     S WOOD
## 4  SHORT     S WOOD
## 5      ?     S WOOD
## 6 MEDIUM     S WOOD

Create a subset of bridge data dsplaying selected columns and display 6 rows using head function:

sub_bridge_df <- subset(bridge_df, select = c("Purpose", "Length", "Lanes", "Type"))
head(sub_bridge_df)

##    Purpose Length Lanes Type
## 1  HIGHWAY      ?     2 WOOD
## 2  HIGHWAY MEDIUM     2 WOOD
## 3 AQUEDUCT      ?     1 WOOD
## 4  HIGHWAY MEDIUM     2 WOOD
## 5  HIGHWAY      ?     2 WOOD
## 6  HIGHWAY  SHORT     2 WOOD