将列折叠成一个新变量

Question

我有一个看起来像这样的数据框。

name = c("p1","p2","p3","p4")
place = c("f","g","h","i")
v1 = c("x", "NA", "NA", "NA")
v2 = c("NA", "y", "y", "NA")
v3 = c("NA", "NA", "z", "NA")
region = c("n","w","s","e")
grade = c("f1","f2","f3","f4")
df = data.frame(name, place, v1, v2, v3, region, grade)

  name place v1 v2 v3 region grade
1   p1     f  x NA NA      n    f1
2   p2     g NA  y NA      w    f2
3   p3     h NA  y  z      s    f3
4   p4     i NA NA NA      e    f4

我想添加一个新的字符向量 v4，其中包含 v1 v2 v3 中任意列的字符。

  name place v1 v2 v3 v4 region grade
1   p1     f  x NA NA  x      n    f1
2   p2     g NA  y NA  y      w    f2
3   p3     h NA  y  z yz      s    f3
4   p4     i NA NA NA NA      e    f4

非常感谢

Answer 1

我们可以在将列转换为 character

后使用 paste

df$V4 <-  gsub("NA", "", do.call(paste, c(df[3:5], sep="")))
df$V4[df$V4==""] <- NA
df$V4
#[1] "x"  "y"  "yz"  NA

数据

df <- structure(list(name = c("p1", "p2", "p3", "p4"), place = c("f", 
"g", "h", "i"), v1 = c("x", NA, NA, NA), v2 = c(NA, "y", "y", 
NA), v3 = c(NA, NA, "z", NA), region = c("n", "w", "s", "e"), 
grade = c("f1", "f2", "f3", "f4")), .Names = c("name", "place", 
"v1", "v2", "v3", "region", "grade"), class = "data.frame",
 row.names = c("1", "2", "3", "4"))

Answer 2

dplyr 替代方案：

install.packages("dplyr")
library(dplyr)
df <- df %>%
      mutate( v4 = gsub( "NA", "", paste0(v1,v2,v3) ) ) %>%
      mutate( v4 = ifelse( v4 == "", NA, v4 ) )

如果 NA/"NA" 是 NA（非值）或 "NA"（字符），这应该有效。如果你不关心 v4 是否包含 "" 或 NA，你可以离开最后一行（并删除最后一个管道）。

将列折叠成一个新变量

Collapse columns into a new variable

merge

r

multiple-columns

collapse

数据