上海新华医院官方微博--一条特殊的“寻人启事”所想--R编程

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

2012年12月4日晚10点左右，一位出生于2008年9月28日、名为刘恒毅的患儿在新华医院儿内科急诊就诊 （门诊号是72914131）。因医院进修医师在就诊过程中用药有误，现急需查找该名患儿。但因就诊时留下的手机号 （1312078088）有误，少一位号。院方多方多次联系他的家人未果。希望这位患儿的家人或知情者，速与新华医院便民服务中心。。。。联系。

下午，家属已经寻找到。（有人打电话打到的,QQ微博，QQ小窗口都在寻人，今天很多人都关系此事，社会风气还是可以好的）

现在应用如下：
在 1312078088  中插入0:9， 会得到一连串的电话号码， 可以利用群发短信系统，进行群发，增加寻找成功的几率！

现在，欢迎大家用R 来编此程序，得到 11位的电话号码。
编程方法肯定很多。。。。

扫码加我 拉你入群

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

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

分享0 收藏2 回帖

关键词：寻人启事 新华医院 R编程 电话号码 服务中心 上海 寻人启事 新华医院 服务中心 张建平

tel=data.frame()
b=0:9
for(i in 3:11){
  a=matrix(rep(c(1,3,1,2,0,7,8,0,8,8,0),10),nrow=10,byrow=T)
  a2=a
  if(i<=10){
    for(j in i:10){
      a[,j+1]=a2[,j]
    }
  }else{a[,i]=b}
  a[,i]=b  
  tel <- rbind(tel,a)   
}
tel
tel2 <- paste(tel$V1,tel$V2,tel$V3,tel$V4,tel$V5,tel$V6,tel$V7,tel$V8,tel$V9,tel$V10,tel$V11,sep="")
tel.num<-as.numeric(tel2)

抛砖引玉下吧， 痛恨 paste(...)那个语句，打的累啊。。。。

此外，寻求算法简洁方式！！！！我这个方法 我不喜欢

old <- as.character(1312078088)
new <- rep(NA, 90)
k <- 1
for (i in 3:11)
    for (j in 0:9) {
        new[k] <- as.numeric(paste(substr(old, 1, i-1), j, substr(old, i, 10), sep = ""))
        k <- k + 1
}

qoiqpwqr 发表于 2012-12-13 23:54
old

厉害 我想等的就是 as.character(1312078088)
变为字符处理。

qoiqpwqr 发表于 2012-12-13 23:54
old

膜拜啊！

jmpamao 发表于 2012-12-14 00:02
膜拜啊！

可能还有更简单的函数，但是这个应该很直观的了。

qoiqpwqr 发表于 2012-12-14 00:07
可能还有更简单的函数，但是这个应该很直观的了。

R 语言真是灵活多变啊 呵呵

的确很灵活，我看着都很爽啊