Question

我在Excel中有来自应用程序的数据，该应用程序将数据汇总到不同的表中。 Excel中的数据看起来不错，但是当我尝试将其导入R时，某些列会被跳过而不会对齐。我需要整理数据，以便我可以绘制它。

以下是可重复的样本。

df <- data.frame( ` `  =  c("cars","buses","","under 1yr","1-2 yrs","2-5 yrs",">5 yrs"),
              fcltA =  c("1","5","","","","","" ),
              ` `  =  c("","","fcltA","5","","","1"),
              fcltB =  c("6","","","","","",""),
              ` `  =  c("","","fcltB","3","","2","1"),
              fcltC =  c("2","2","","","","",""),
              ` ` =  c("","","fcltC","1","2","","1"),
 check.names = FALSE, fix.empty.names = FALSE)

以下是我想要的内容

dfClnd <- data.frame( ` `  =  c("cars","buses","","under 1yr","1-2 yrs","2-5 yrs",">5 yrs"),
                  fcltA =  c("1","5"," fcltA","5","","","1" ),
                  fcltB =  c("3","3","fcltB","3","","2","1"), 
                  fcltC =  c("2","2","fcltC","1","2","","1"),
                  check.names = FALSE, fix.empty.names = FALSE)

我发现了this问题，但它对我的问题不起作用，因为它会将某些值转移到不正确的列。

以下是数据的示例：

Answer 1

使用dplyr和purrr的解决方案。请注意，在创建df时，我设置stringsAsFactors = FALSE以避免创建因子列。这是因为coalesce函数不适用于不同的因子级别。 df3是最终输出。

library(dplyr)
library(purrr)

# Replace "" with NA
df[df == ""] <- NA

# Get the new column names    
NewCol <- names(df)
NewCol <- NewCol[!NewCol %in% " "]

# Conduct the merge of columns
df2 <- map_dfc(NewCol, function(x){
  df_temp <- df[which(names(df) %in% x) + c(0, 1)]
  df_out <- as_data_frame(coalesce(df_temp[, 1], df_temp[, 2])) %>%
    setNames(x)
  return(df_out)
})

# Merge the first column with the new data frame
# Replace NA with ""
df3 <- bind_cols(df[, 1, drop = FALSE], df2)
df3[is.na(df3)] <- ""
df3
#             fcltA fcltB fcltC
# 1      cars     1     6     2
# 2     buses     5           2
# 3           fcltA fcltB fcltC
# 4 under 1yr     5     3     1
# 5   1-2 yrs                 2
# 6   2-5 yrs           2      
# 7    >5 yrs     1     1     1

数据

df <- data.frame( ` ` = c("cars","buses","","under 1yr","1-2 yrs","2-5 yrs",">5 yrs"), fcltA = c("1","5","","","","","" ), ` ` = c("","","fcltA","5","","","1"), fcltB = c("6","","","","","",""), ` ` = c("","","fcltB","3","","2","1"), fcltC = c("2","2","","","","",""), ` ` = c("","","fcltC","1","2","","1"), check.names = FALSE, fix.empty.names = FALSE, stringsAsFactors = FALSE)

将单元格移到R data.frame中的左侧

1 个答案: