fork download
copy 
  1. # generate data
  2. set.seed(1172)
  3. hr <- sample(0:23,10000,replace=T)
  4.  
  5. # 把23-1切開,變成0-1,23-24,分別指定為子時
  6. test <- cut(hr, c(0,1,3,5,7,9,11,13,15,17,19,21,23,24), c("子","丑","寅","卯","辰","巳","午","未","申","酉","戌","亥","子"),right=FALSE)
  7.  
  8. #Warning message:
  9. #In `levels<-`(`*tmp*`, value = if (nl == nL) as.character(labels) else paste0(labels,  :
  10. #  duplicated levels in factors are deprecated
  11.  
  12. summary(test)
  13. # 子  丑  寅  卯  辰  巳  午  未  申  酉  戌  亥  子 
  14. # 807 835 854 864 781 822 874 841 863 855 829 775   0
Success #stdin #stdout #stderr 0.47s 79616KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
 子  丑  寅  卯  辰  巳  午  未  申  酉  戌  亥  子 
807 835 854 864 781 822 874 841 863 855 829 775   0
stderr
copy 
Warning message:
In `levels<-`(`*tmp*`, value = if (nl == nL) as.character(labels) else paste0(labels,  :
  duplicated levels in factors are deprecated
Warning message:
In `levels<-`(`*tmp*`, value = if (nl == nL) as.character(labels) else paste0(labels,  :
  duplicated levels in factors are deprecated
https://ideone.com/w5FX6F
language:
R (R 3.5.2)
created:
9 years ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!