删除字符串的多个空列[重复]

Question

我有一个如下所示的数据表：

old1   old2   old3   old4
aaa           ccc
aaa    bbb     
       bbb    ccc    ddd    

我想删除空列以获得如下内容：

new1  new2   new3   
aaa   ccc
aaa   bbb     
bbb   ccc    ddd   

我尝试了以下对我不起作用的方法：

df[, colSums(df!= "") != ""]
df[!sapply(df, function (x) all(is.na(x) | x == ""))]
Filter(function(x) !(all(x==""|x==0)), df) 

Answer 1

使用基本 R apply 的一个选项是首先计算将出现在最终数据帧 (cols) 中的列数。从每一行过滤空值并使用rep插入空值。

cols <- max(rowSums(df != ""))

as.data.frame(t(apply(df, 1, function(x) {
   vals <- x[x != ""]
   c(vals, rep("", cols - length(vals)))
})))

#   V1  V2  V3
#1 aaa ccc    
#2 aaa bbb    
#3 bbb ccc ddd

---

gather/spread 的另一个选项是为行号添加一个新列，使用 gather、filter 非空值、group_by 每 row 和使用paste0 提供新的列名，最后使用spread 将其转换为宽格式。

library(dplyr)
library(tidyr)

df %>%
  mutate(row = row_number()) %>%
  gather(key, value, -row) %>%
  filter(value != "") %>%
  group_by(row) %>%
  mutate(key = paste0("new", row_number())) %>%
  spread(key, value, fill = "") %>%
  ungroup() %>%
  select(-row)

#  new1  new2  new3 
#  <chr> <chr> <chr>
#1 aaa   ccc   ""   
#2 aaa   bbb   ""   
#3 bbb   ccc   ddd