# Examples for formatting dates and times
t <- Sys.time()
fapply(t, "%d/%m/%Y") # Day/Month/Year
fapply(t, "%d%b%Y") # Day abbreviated month year
fapply(t, "%y-%m") # Two digit year - month
fapply(t, "%A, %B %d") # Weekday, unabbreviated month and date
fapply(t, "%Y-%Q") # Year and Quarter
fapply(t, "%Y-%m%-%d %H:%M:%S %p") # Common timestamp format
# Examples for formatting dates (date and times) using "dateW."
d <- Sys.Date()
fapply(d, "date5") # Month Year (mmmyy)
fapply(d, "date7") # Day Month Year (ddmmmyy)
fapply(d, "date9") # Day Month Year (ddmmmyyyy)
fapply(d, "date11") # Day Month Year (dd-mmm-yyyy)
t <- Sys.time()
fapply(t, "date5") # Month Year (mmmyy)
fapply(t, "date7") # Day Month Year (ddmmmyy)
fapply(t, "date9") # Day Month Year (ddmmmyyyy)
fapply(t, "date11") # Day Month Year (dd-mmm-yyyy)
# Examples for formatting numbers
a <- 1234.56789
fapply(a, "%f") # Floating point number
fapply(a, "%.1f") # One decimal place
fapply(a, "%8.1f") # Fixed width
fapply(a, "%-8.1f") # Fixed width left justified
fapply(a, "%08.1f") # Zero padded
fapply(a, "%+.1f") # Forced sign
fapply(-a, "%+.1f") # Negative
fapply(a, "%.1f%%") # Percentage
fapply(a, "$%.2f") # Currency
fapply(a, "The number is %f.") # Interpolation
# "best" formatting
fapply(a, "best6") # Total width of 6
fapply(a, "best8") # Total width of 8
Run the code above in your browser using DataLab