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

我们可以在将列转换为paste

后使用character

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（非-a值）或“NA”（字符），这应该有效。如果您不关心v4是否包含“”或NA，您可以不使用最后一行（并删除最后一个管道）。

将列折叠为新变量

2 个答案:

数据