R 向上推并拧紧数据框。通解

我想在ordner中向上推（隐喻性地）数据框以消除空格（NA值）

我的数据：

> dput(df1)
structure(list(ID = c("CN1-1", "CN1-1", "CN1-1", "CN1-10", "CN1-10", 
"CN1-10", "CN1-11", "CN1-11", "CN1-11", "CN1-12", "CN1-12", "CN1-12", 
"CN1-13", "CN1-13", "CN1-13"), v1 = c(0.37673, NA, NA, 1.019972, 
NA, NA, 0.515152, NA, NA, 0.375139, NA, NA, 0.508125, NA, NA), 
    v2 = c(NA, 0.732, NA, NA, 0, NA, NA, 0.748, NA, NA, 0.466, 
    NA, NA, 0.57, NA), v2 = c(NA, NA, 0.357, NA, NA, 0.816, NA, 
    NA, 0.519, NA, NA, 0.206, NA, NA, 0.464)), .Names = c("ID", 
"v1", "v2", "v2"), row.names = c(NA, 15L), class = "data.frame")
> 

看起来像：

       ID       v1    v2    v2
1   CN1-1 0.376730    NA    NA
2   CN1-1       NA 0.732    NA
3   CN1-1       NA    NA 0.357
4  CN1-10 1.019972    NA    NA
5  CN1-10       NA 0.000    NA
6  CN1-10       NA    NA 0.816
7  CN1-11 0.515152    NA    NA
8  CN1-11       NA 0.748    NA
9  CN1-11       NA    NA 0.519
10 CN1-12 0.375139    NA    NA
11 CN1-12       NA 0.466    NA
12 CN1-12       NA    NA 0.206
13 CN1-13 0.508125    NA    NA
14 CN1-13       NA 0.570    NA
15 CN1-13       NA    NA 0.464

请注意：我不确定所有行的模式是否一致。也有可能，每个ID组有一个或多个变量突出2倍以上

期望输出：

       ID       v1    v2    v2
1   CN1-1 0.376730 0.732 0.357
2  CN1-10 1.019972 0.000 0.816

...

我的想法是融化，然后去除所有NA值，然后dcast。还有更好的办法吗

编辑： 复制品可能看起来像这样

16 CN1-x 0.508125    NA    NA
17 CN1-x       NA 0.570    NA
18 CN1-x       NA    NA 0.464
19 CN1-x       NA    NA 0.134

---

如何获得重复的列名？-您可以尝试

库（dplyr）；df1%>%group_by（ID）%>%SUMMARY_all（funs（na.omit））

@Sotos:SUMMARY_impl（.data，dots）中出错：应为单个值

do.call(rbind,
        lapply(split(df1, df1$ID), function(a)
            data.frame(ID = a$ID[1], lapply(a[-1], sum, na.rm = TRUE))))
#           ID       v1    v2  v2.1
#CN1-1   CN1-1 0.376730 0.732 0.357
#CN1-10 CN1-10 1.019972 0.000 0.816
#CN1-11 CN1-11 0.515152 0.748 0.519
#CN1-12 CN1-12 0.375139 0.466 0.206
#CN1-13 CN1-13 0.508125 0.570 0.464