如果我理解正确的话：
[I]我希望从与一个特定列的非NA行的最长序列关联的所有列中提取数据
您有一个感兴趣的列，将其命名为WANT，并希望从WANT中具有最高连续非NA值的单行数据中分离出所有列。
示例数据

df <- data.frame(A = LETTERS[1:10],
                 B = LETTERS[1:10],
                 C = LETTERS[1:10],
                 WANT = LETTERS[1:10],
                 E = LETTERS[1:10])

set.seed(123)
df[sample(1:nrow(df), 2), 4] <- NA

#   A B C WANT E
#1  A A A    A A
#2  B B B    B B
#3  C C C <NA> C
#4  D D D    D D
#5  E E E    E E
#6  F F F    F F
#7  G G G    G G
#8  H H H    H H
#9  I I I    I I # want to isolate this row (#9) since most non-NA in WANT
#10 J J J <NA> J

在这里，您需要所有I值，因为它是WANT中运行时间最长的非NA值所在的行。
如果我对您的问题的理解是正确的，我们可以将最佳答案found here扩展到您的情况，这将创建一个数据框，其中包含每列连续非NA值的运行计数。
使用此函数的好处是，它将计算所有列（任何类型，即字符、数字）上的连续非NA运行，然后您可以使用which.max()对任何列进行索引

# from @jay.sf at https://stackoverflow.com/questions/61841400/count-consecutive-non-na-items
res <- as.data.frame(lapply(lapply(df, is.na), function(x) {
  r <- rle(x)
  s <- sapply(r$lengths, seq_len)
  s[r$values] <- lapply(s[r$values], `*`, 0)
  unlist(s)
}))

# index using which.max()
want_data <- df[which.max(res$WANT), ]

#> want_data
#  A B C WANT E
#9 I I I    I I

如果这不正确，请编辑您的问题以使其清晰。