如何在循环R中创建独立的不同data.frame

Question

大家晚上好，

我对 for 循环的构造感到困惑，我没有任何问题，但我想了解如何创建数据帧“独立”（重复但有一些差异）。

我一步一步编写代码（它有效），但我认为，也许有一种方法可以用 for 压缩代码。

x 是我原来的data.frame

str(x)
Classes ‘data.table’ and 'data.frame':  13500 obs. of  6 variables:
 $ a: int  1 56 1058 567 987 574 1001...
 $ b: int  10 5 10 5 5 10 10 5 10 10 ...
 $ c: int  NA NA NA NA NA NA NA NA NA NA ...
 $ d: int  0 0 0 0 0 0 0 0 0 0 ...
 $ e: int  0 0 0 0 0 0 0 0 0 0 ...
 $ f: int  22 22 22 22 22 22 22 22 22 22 ...

我的第一个目标是删除每列最终的 NA 和 "" 元素。我通过这些行代码来做到这一点。

x_b<- x[!(!is.na(x$b) & x$b==""), ]
x_c<- x[!(!is.na(x$c) & x$c==""), ]
x_d<- x[!(!is.na(x$d) & x$d==""), ]
x_e<- x[!(!is.na(x$e) & x$e==""), ]
x_f<- x[!(!is.na(x$f) & x$f==""), ]

在此之后，第二个目标是为每个新的 data.frame 创建一个我使用函数 paste0(x_b$a, x_b$f) 创建的 id 代码。

x_b$ID_1<-paste0(x_b$a, x_b$b)
x_c$ID_2<-paste0(x_c$a, x_c$c)
x_d$ID_3<-paste0(x_c$a, x_c$d)
x_e$ID_4<-paste0(x_c$a, x_c$e)
x_f$ID_5<-paste0(x_c$a, x_c$f)

我创建了这个 for 循环来尝试最小化我使用的行，并创建一个良好的代码可视化。

z<-data.frame("a", "b","c","d","e","f")
zy<-data.frame("x_b", "x_c", "x_d", "x_e", "x_f")


for(i in z) {
  for (j in zy ) {
    target <- paste("_",i)
    x[[i]]<-(!is.na(x[[i]]) & x[[i]]=="") #with this I able to create a column on the x data.frame, 
                                          #but if I put a new dataframe the for doesn't work
                                          #the name, but I don't want this. I'd like to create a 
                                          #data.base per each transformation.

                                          #at this point of the script, I should have a new 
                                          #different dataframe, as x_b, x_c, x_d, x_e, x_f but I 
                                          #don't know

                                          #How to create them?

                                          #If I have these data frame I will do this anther function 
                                          #in the for loop:
    zy[[ID]]<-paste0(x_b$a, "_23X")
   }
}

我想有这样的输出：

str(x_b)
    Classes ‘data.table’ and 'data.frame':  13500 obs. of  6 variables:
     $ a: int  1 56 1058 567 987 574 1001...
     $ b: int  10 5 10 5 5 10 10 5 10 10 ...
     $ c: int  NA NA NA NA NA NA NA NA NA NA ...
     $ d: int  0 0 0 0 0 0 0 0 0 0 ...
     $ e: int  0 0 0 0 0 0 0 0 0 0 ...
     $ f: int  22 22 22 22 22 22 22 22 22 22 ...
     $ ID: int  1_23X 56_23X 1058_23X 567_23X 987_23X 574_23X 1001_23X...

等等。

我认为我错过了有关数据框的一些重要概念。

我哪里错了？

非常感谢您的支持。

Answer 1

使用tidyverse 包有一种简单的方法：

第一个目标：

drop.na(df)

如果您想将"" 转换为NA，也可以使用na_if。

第二个目标：使用mutate创建一个新变量：

df <- df %>% 
 mutate(id = paste0(x_b$a, "_23X"))