R 데이터 프레임에서 왼쪽으로 셀을 이동하십시오.

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) 

내가 this 질문을 찾았지만 그것은 잘못된 컬럼에 어떤 값을 이동하기 때문에 내 문제에 대해 잘 작동하지 않습니다

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) 

를 원하는 것입니다. 해결책은 dplyr 및 purrr를 사용하여

Answer 1

: 아래

데이터가 같은 모양을 샘플입니다. df을 만들 때 factor 열을 만들지 않도록 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)