如何从漏洞中使用数据帧导致R

问题描述

通过分配date_ [c]，我有35个“ date_c”（下面的代码）。

for (c in 1:nrow(datetable2)) {
   assign(paste("date_",c,sep=""),dt2[which(dt2$Date==datetable2$Date[c]),])
  
 }

现在，我想将每个“ date_c”的行名更改为1：length（date_c）。我使用了下面的代码，但是它不起作用。该程序说找不到“ date_ [d]”。如何在下面的漏洞中更改“ date_ [d]”问题？

for (d in 1:nrow(datetable2)){
  rownames(date_[d]) <-  seq(length=nrow(date_[d]))
}

解决方法

获取列表中的所有render (view:'editProfile',model:[myUser: myProfile]) 数据帧，使用date_c对其进行迭代并删除行名。当我们删除行名时，它实际上是从lapply重新创建行名。

1:nrow(data)

result <- lapply(mget(ls(pattern = 'date_')),function(x) {rownames(x) <- NULL;x}) 将具有一个数据帧列表，其中包含我们想要的行名。最好将数据保留在列表中，因为它更易于管理。如果您仍然希望更改反映在原始数据框中，则可以使用result。

list2env