4

我有一个大型数据框标记字符串中出现的三元组,其中字符串是行,三元组是列,值标记三元组是否出现在字符串中。

所以是这样的:

strs <- c('this', 'that', 'chat', 'chin')
thi <- c(1, 0, 0, 0)
tha <- c(0, 1, 0, 0)
hin <- c(0, 0, 0, 1)
hat <- c(0, 1, 1, 0)
df <- data.frame(strs, thi, tha, hin, hat)
df

#  strs thi tha hin hat
#1 this   1   0   0   0
#2 that   0   1   0   1
#3 chat   0   0   0   1
#4 chin   0   0   1   0

我想获取给定行或给定字符串为 1 的所有列/三元组。

因此,对于第 2 行,字符串“that”,结果将是一个如下所示的数据框:

  str tha hat
1 this  0   0
2 that  1   1
3 chat  0   1
4 chin  0   0

我怎么能这样做?

4

2 回答 2

4

这将为您提供所需的输出 df。

givenStr <- "that"
row <- df[df$strs==givenStr,]
df[,c(1,1+which(row[,-1]==1))]
于 2015-05-06T03:57:50.970 回答
1

在一个班轮中:

df[as.logical(df[df$strs=='that',])]

#  strs tha hat
#1 this   0   0
#2 that   1   1
#3 chat   0   1
#4 chin   0   0
于 2015-05-06T08:20:25.627 回答