How to remove time-field string from a date-as-character variable?
You can turn them into dates and then format as desired, e.g.:
v <- c("9/21/2011 0:00:00", "9/25/2011 0:00:00", "10/2/2011 0:00:00",
"9/28/2011 0:00:00", "9/27/2011 0:00:00")
v <- format(as.POSIXct(v,format='%m/%d/%Y %H:%M:%S'),format='%m/%d/%Y')
> v
[1] "09/21/2011" "09/25/2011" "10/02/2011" "09/28/2011" "09/27/2011"
Or, you can simply remove the " 0:00:00"
substring using gsub:
v <- gsub(x=v,pattern=" 0:00:00",replacement="",fixed=T)
> v
[1] "9/21/2011" "9/25/2011" "10/2/2011" "9/28/2011" "9/27/2011"
From the lubridate package: Use mdy_hms()
to read in the characters as Month, Day, Year and Hours, Minutes, Seconds, then wrap with as.Date()
to strip the time.
library(lubridate)
v <- c("9/21/2011 0:00:00", "9/25/2011 0:00:00", "10/2/2011 0:00:00",
"9/28/2011 0:00:00", "9/27/2011 0:00:00")
v <- as.Date(mdy_hms(v))
v
# [1] "2011-09-21" "2011-09-25" "2011-10-02" "2011-09-28" "2011-09-27"
If you want to maintain the vector as character type, not date type:
v <- as.character(as.Date(mdy_hms(v)))
Keeping original class as character. Use gsub (or sub) to remove everything after space. The .*
pattern will find the first space.
c<-c("9/21/2011 0:00:00", "9/25/2011 0:00:00", "10/2/2011 0:00:00",
"9/28/2011 0:00:00", "9/27/2011 0:00:00")
gsub(" .*","", c)
[1] "9/21/2011" "9/25/2011" "10/2/2011" "9/28/2011" "9/27/2011"