data set .. baltimore camera data

cameraData <- read.csv("camera.csv")
names(cameraData)

## [1] "address"      "direction"    "street"       "crossStreet" 
## [5] "intersection" "Location.1"

tolower(names(cameraData))

## [1] "address"      "direction"    "street"       "crossstreet" 
## [5] "intersection" "location.1"

split

splitNames= strsplit(names(cameraData), "\\.")
splitNames[[6]]

## [1] "Location" "1"

sub

testName <- "this_is_a_test"
sub("_","",testName)

## [1] "thisis_a_test"

gsub("_","",testName)

## [1] "thisisatest"

grep("Alameda", cameraData$intersection)

## [1]  4  5 36

table(grepl("Alameda", cameraData$intersection))

## 
## FALSE  TRUE 
##    77     3

cameraData2<- cameraData[!grepl("Alameda", cameraData$intersection),]
grep("Alameda", cameraData$intersection, value=T)

## [1] "The Alameda  & 33rd St"   "E 33rd  & The Alameda"   
## [3] "Harford \n & The Alameda"

library(stringr)
nchar("abdul baquee sharaf")

## [1] 19

substr("abdul baquee", 1,5)

## [1] "abdul"

paste("abdul", "baquee")

## [1] "abdul baquee"

paste0("abdul", "Baquee")

## [1] "abdulBaquee"

str_trim("abdul         baquee     ")

## [1] "abdul         baquee"