Question

在R中是否有办法创建类似这样的条件：

对于以下数据，如果在第一列中该行为空，但该行中的其他列已填充，则将该行向左移动以填充第一列。

例如，实际数据如下所示：

DIS1                
         area1  69284   178198  2.57
area2    9466   22586   2.39    NA
Total    78750  200784  2.55    NA
DIS2                
        area1   25008   69972   2.8
area2   23142   55587   2.4     NA
Total   48150   125559  2.61    NA 
DIS3                
        area1   16240   37173   2.29
area2   66351   193612  2.92    NA
Total   82591   230785  2.79    NA

我希望数据看起来像这样：

DIS1                
area1   69284   178198  2.57
area2    9466   22586   2.39    NA
Total    78750  200784  2.55    NA
DIS2                
area1   25008   69972   2.8
area2   23142   55587   2.4     NA
Total   48150   125559  2.61    NA 
DIS3                
area1   16240   37173   2.29
area2   66351   193612  2.92    NA
Total   82591   230785  2.79    NA

我不知道如何为此写一些条件。如果有人能帮助我，那真的很感激。

dput看起来像这样：

 structure(list(a = structure(c(3L, 1L, 2L, 6L, 4L, 1L, 2L, 6L, 
 5L, 1L, 2L, 6L), .Label = c("", "area2", "DIS1", "DIS2", "DIS3", 
"Total"), class = "factor"), b = structure(c(1L, 8L, 7L, 5L, 
 1L, 8L, 2L, 3L, 1L, 8L, 4L, 6L), .Label = c("", "23142", "48150", 
 "66351", "78750", "82591", "9466", "area1"), class = "factor"), 
c = c(NA, 69284L, 22586L, 200784L, NA, 25008L, 55587L, 125559L, 
NA, 16240L, 193612L, 230785L), d = c(NA, 178198, 2.39, 2.55, 
NA, 69972, 2.4, 2.61, NA, 37173, 2.92, 2.79), e = c(NA, 2.57, 
NA, NA, NA, 2.8, NA, NA, NA, 2.29, NA, NA)), .Names = c("a", 
"b", "c", "d", "e"), class = "data.frame", row.names = c(NA, 
-12L))

非常感谢

Answer 1

尝试

as.data.frame( t(apply(DIS1, 1, function(x) 
            if(x[1]=='') c(x[-1], x[1]) else x)))

R移动数据帧的单元格以填充空单元格

1 个答案: