How to transform numbers between 1 and 12 to abbreviated month in R?

R ProgrammingServer Side ProgrammingProgramming

Sometimes date vector for months is recorded in numeric form and it becomes difficult to treat or visualize it as a date vector. For example, if a vector for months has numbers 1 that represents January, 2 that represents February and so on then it is considered as a numeric vector instead of the vector to represent the month. To transform such type of vectors into abbreviated month as Jan, Feb, etc. we can use month.abb function.

Examples

Month1<-c(1,8,5,7,2)
month.abb[Month1]
[1] "Jan" "Aug" "May" "Jul" "Feb"
Month2<-c(1,2,3,4,5,6)
month.abb[Month2]
[1] "Jan" "Feb" "Mar" "Apr" "May" "Jun"
Month3<-c(1,3,5,7,9,11)
month.abb[Month3]
[1] "Jan" "Mar" "May" "Jul" "Sep" "Nov"
Month4<-c(2,4,8,10)
month.abb[Month4]
[1] "Feb" "Apr" "Aug" "Oct"
Month4<-c(5,7,4,5,2,7,4,1)
Month45<-c(5,7,4,5,2,7,4,1)
Month5<-c(5,7,4,5,2,7,4,1)
month.abb[Month5]
[1] "May" "Jul" "Apr" "May" "Feb" "Jul" "Apr" "Jan"
Month6<-rep(c(1:12),times=10)
Month6
[1] 1 2 3 4 5 6 7 8 9 10 11 12 1 2 3 4 5 6 7 8 9 10 11 12 1
[26] 2 3 4 5 6 7 8 9 10 11 12 1 2 3 4 5 6 7 8 9 10 11 12 1 2
[51] 3 4 5 6 7 8 9 10 11 12 1 2 3 4 5 6 7 8 9 10 11 12 1 2 3
[76] 4 5 6 7 8 9 10 11 12 1 2 3 4 5 6 7 8 9 10 11 12 1 2 3 4
[101] 5 6 7 8 9 10 11 12 1 2 3 4 5 6 7 8 9 10 11 12
month.abb[Month6]
  [1] "Jan" "Feb" "Mar" "Apr" "May" "Jun" "Jul" "Aug" "Sep" "Oct" "Nov" "Dec"
 [13] "Jan" "Feb" "Mar" "Apr" "May" "Jun" "Jul" "Aug" "Sep" "Oct" "Nov" "Dec"
 [25] "Jan" "Feb" "Mar" "Apr" "May" "Jun" "Jul" "Aug" "Sep" "Oct" "Nov" "Dec"
 [37] "Jan" "Feb" "Mar" "Apr" "May" "Jun" "Jul" "Aug" "Sep" "Oct" "Nov" "Dec"
 [49] "Jan" "Feb" "Mar" "Apr" "May" "Jun" "Jul" "Aug" "Sep" "Oct" "Nov" "Dec"
 [61] "Jan" "Feb" "Mar" "Apr" "May" "Jun" "Jul" "Aug" "Sep" "Oct" "Nov" "Dec"
 [73] "Jan" "Feb" "Mar" "Apr" "May" "Jun" "Jul" "Aug" "Sep" "Oct" "Nov" "Dec"
 [85] "Jan" "Feb" "Mar" "Apr" "May" "Jun" "Jul" "Aug" "Sep" "Oct" "Nov" "Dec"
 [97] "Jan" "Feb" "Mar" "Apr" "May" "Jun" "Jul" "Aug" "Sep" "Oct" "Nov" "Dec"
[109] "Jan" "Feb" "Mar" "Apr" "May" "Jun" "Jul" "Aug" "Sep" "Oct" "Nov" "Dec"
Month7<-sample(1:12,50,replace=TRUE)
Month7
[1] 11 9 12 8 6 2 7 12 1 12 7 2 2 2 8 8 6 4 1 7 1 3 1 4 4
[26] 12 2 12 8 4 10 2 10 12 10 7 3 11 12 2 10 6 9 3 6 8 5 4 2 7
month.abb[Month7]
 [1] "Nov" "Sep" "Dec" "Aug" "Jun" "Feb" "Jul" "Dec" "Jan" "Dec" "Jul" "Feb"
[13] "Feb" "Feb" "Aug" "Aug" "Jun" "Apr" "Jan" "Jul" "Jan" "Mar" "Jan" "Apr"
[25] "Apr" "Dec" "Feb" "Dec" "Aug" "Apr" "Oct" "Feb" "Oct" "Dec" "Oct" "Jul"
[37] "Mar" "Nov" "Dec" "Feb" "Oct" "Jun" "Sep" "Mar" "Jun" "Aug" "May" "Apr"
[49] "Feb" "Jul"
month.abb[Month8]
 [1] "Feb" "Feb" "Apr" "Jan" "Feb" "May" "Apr" "Jun" "May" "Feb" "May" "Jan"
[13] "Apr" "Feb" "May" "May" "Apr" "May" "Jan" "May" "Mar" "Feb" "Feb" "Jun"
[25] "Feb" "Feb" "May" "Mar" "Feb" "Jan" "May" "May" "Apr" "Jan" "Jun" "May"
[37] "May" "Jun" "Jan" "Jun" "Apr" "May" "Feb" "Jun" "Feb" "Mar" "Apr" "Feb"
[49] "Jan" "Jan"
raja
Updated on 24-Aug-2020 11:52:56

Advertisements