R语言出现错误的原因

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

我在做问题相把sunnew这个数值型的向量转化成日期型时结果出现了错误> sunnew
[1] 20150531 20150607 20150614 20150621 20150628 20150705 20150712 20150719 20150726
[10] 20150802 20150809 20150816 20150823 20150830 20150906 20150913 20150920 20150927
[19] 20151004 20151011 20151018 20151025 20151101 20151108 20151115 20151122 20151129
[28] 20151206 20151213 20151220 20151227 20160103 20160110 20160117
> class(sunnew)
[1] "numeric"
错误是这样的
sunnew<-as.Date(sunnew)
Error in as.Date.numeric(sunnew) : 'origin'一定得给值
请问这样的错误怎样改程序

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：R语言 numeric Eric NEW Sun

1. #========
   
2. split_str_by_index <- function(target, index) {
   
3.   index <- sort(index)
   
4.   substr(rep(target, length(index) + 1),
   
5.          start = c(1, index),
   
6.          stop = c(index -1, nchar(target)))
   
7. }
   
8. 
   
9. #Taken from https://stat.ethz.ch/pipermail/r-help/2006-March/101023.html
   
10. interleave <- function(v1,v2)
    
11. {
    
12.   ord1 <- 2*(1:length(v1))-1
    
13.   ord2 <- 2*(1:length(v2))
    
14.   c(v1,v2)[order(c(ord1,ord2))]
    
15. }
    
16. 
    
17. insert_str <- function(target, insert, index) {
    
18.   insert <- insert[order(index)]
    
19.   index <- sort(index)
    
20.   paste(interleave(split_str_by_index(target, index), insert), collapse="")
    
21. }
    
22. #=================
    
23. insert_str(c("20150219"), c("-", "-"), c(5, 7))

复制代码

也许有用

请用package lubridate 中的ymd () 函数 。。相当容易。。

library(lubridate)
ymd(20160701,20160702,20160710,20160720,19990131,20000101)
[1] "2016-07-01" "2016-07-02" "2016-07-10" "2016-07-20" "1999-01-31"
[6] "2000-01-01"