R移动数据框的单元格以填充空单元格答案

【问题标题】：R move the cells of a dataframe to fill in empty cellsR移动数据框的单元格以填充空单元格
【发布时间】：2015-02-04 14:40:56
【问题描述】：

在 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

我不确定如何为此编写一些条件。如果有人可以帮助我，我将不胜感激。

输出如下所示：

 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))

非常感谢

【问题讨论】：

能否显示上述数据的 dput 输出，即dput(DIS1)
我已编辑问题以显示 dput。
嘿，这行得通。非常感谢人！真的很感激。

标签： r loops conditional-statements

【解决方案1】：

试试

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

【讨论】：