R语言中for循环的使用

yu9954

5205

收藏 2021-12-23

悬赏 20 个论坛币已解决

有如下代码

v <- c("metformin","levothyroxine")
for ( i in v) {
  c=paste("SDH",i,"use",sep="_")
  d=as.name(c)
  SDH_med_use <- left_join(SDH_med_use,d,by='genc_id')
}

想产生SDH_metformin_use 这样的df的名称，这个df已经存在，再把这个dataframe跟SDH_med_use 合并，可是用这个code总是报错，我知道这个as.name(c)这里错了，可是不知道该怎么改，想请教一下大神们到底怎么写这个code能达到这个目的
Error: `x` and `y` must share the same src, set `copy` = TRUE (may be slow).

最佳答案

szxship 查看完整内容

d=as.name(c) 改成 d = get(c) 建议这里的c换成别的，因为在R里c本身是一个函数

扫码加我拉你入群

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

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

全部回复

szxship

2021-12-23 04:18:40

d=as.name(c)
改成
d = get(c)
建议这里的c换成别的，因为在R里c本身是一个函数

扫码加我拉你入群

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

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

yu9954

2021-12-24 04:06:51

szxship 发表于 2021-12-23 04:18
d=as.name(c)
改成
d = get(c)

v <- c("domperidone","donepezil")
for ( i in v) {
  medname=paste("SDH",i,sep="_")
  d=get(medname)

  medname_1 <- SDH_meds [grep (pattern=i,SDH_meds[,30]),]
  medname_2 <- SDH_meds [grep (pattern=i,SDH_meds[,31]),]
  d <- rbind(medname_1,medname_2)
  medname_id_1 <- d["genc_id"]
  medname_id <- unique(medname_id_1)

  medname_use <-medname_id
  medname_use$i <-1
}
我运行了上面的code，即没有报错也没有运行，不知道这段code哪里出错了？谢谢大神指点

扫码加我拉你入群

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

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

szxship

2021-12-24 20:57:45

yu9954 发表于 2021-12-24 04:06
v

这段代码看不出错误，但你说的不运行，这个不清楚，具体没有你的数据，看不出来

扫码加我拉你入群

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

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

yu9954

2021-12-30 05:05:01

szxship 发表于 2021-12-24 20:57
这段代码看不出错误，但你说的不运行，这个不清楚，具体没有你的数据，看不出来

谢谢大神回复！

扫码加我拉你入群

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

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

最佳答案

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

分享

扫码加好友，拉您进群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群