我正在为我的梦幻足球联赛做一些事情。我填充了一系列数据框,每个都以位置命名(例如,四分卫的 QB,跑卫的 RB 等)
我已经能够使用 apply() 函数来做很多事情,将位置的单独块绑定到单个数据帧中,但我真正想做的是从每个位置的某些内容中删除一些文本。
所以我有一个名为 QB 的数据框,其中一列名为 Player,其中有一些我想删除的多余文本。
所以,如果我这样做,它会起作用:
thePosNick <- "QB"
thePlayer <- paste(thePosNick, "$Player", sep="")
g <- str_replace(eval(parse(text=thePlayer)), "remove this text", "")
g <- str_replace(g, "more meaningless text", "")
g <- str_trim(g)
#expected behavior:
QB$Player <- g
效果很好,但是,我希望能够动态地执行此操作,并且执行以下操作似乎不起作用:
thePosNick <- "QB"
thePlayer <- paste(thePosNick, "$Player", sep="")
g <- str_replace(eval(parse(text=thePlayer)), "remove this text", "")
g <- str_replace(g, "more meaningless text", "")
g <- str_trim(g)
#but i'd love to be able to do something like this:
assign(thePlayer, value=g)
谁能告诉我我做错了什么?任何建议都非常感谢,谢谢!