代码之家 › 专栏 › 技术社区 › accibio

基于列中的元素在R中子集数据帧

subset dataframe r

accibio · 技术社区 · 4 年前

我有一个数据帧 df 它有5行6列。

df <- data.frame(
  Hits = c("Hit1", "Hit2", "Hit3", "Hit4", "Hit5"),
  category1 = c("a1", "", "b1", "a1", "c1"),
  category2 = c("", "", "", "", "a2"),
  category3 = c("a3", "", "b3", "", "a3"),
  category4 = c("", "", "", "", ""),
  category5 = c("", "", "a5", "b5", ""),
  stringsAsFactors = FALSE)

从每一列 category1 到 category5 ,我只需要保留出现在最顶端位置的元素,即。

最后,删除这五列中没有元素的行,即。

0 回复 | 直到 4 年前

Ronak Shah 4 年前

你可以用-

library(dplyr)

df %>%
  #Retain only the values that appear in topmost position
  mutate(across(starts_with('category'), ~replace(., -match(TRUE, . != ''), ''))) %>%
  #Drop the rows that have no element
  filter(if_any(starts_with('category'), ~. != ''))

#  Hits category1 category2 category3 category4 category5
#1 Hit1        a1                  a3                    
#2 Hit3                                                a5
#3 Hit5                  a2

df %>%
  mutate(across(2:6, ~replace(., -match(TRUE, . != ''), ''))) %>%
  filter(if_any(2:6, ~. != ''))

iago 4 年前

df %>% 
  mutate(across(.cols = -Hits, .fns = ~ifelse(row_number() == first(which(.!="")) | all(. == ""), ., ""))) %>% 
  filter(if_any(-Hits, ~.!=""))

  Hits category1 category2 category3 category4 category5
1 Hit1        a1                  a3                    
2 Hit3                                                a5
3 Hit5                  a2

推荐文章

TheCodeNovice · R中符号格式的尾随零和其他问题[重复]

1 年前

Daniel Estévez · 扩展数据帧以包含不存在的值

1 年前

T Richard · 根据条件交换分组数据中的字符串或值

1 年前

Homer Jay Simpson · R中flextable的标题字体和垂直合并

1 年前

RKIDEV · Panda迭代行并将第n行值乘以下一(n+1)行值

1 年前

Ssong · 如何有条件地运用资本化?

1 年前

Marcio Lino · 在Pandas中转换多个值列

1 年前

Ray · 在Python pandas包中使用groupby函数时,输出结果存在差异的原因是什么?

1 年前

RobertF · 如果列没有表头,如何在R数据帧中引用变量名?

1 年前

Homer Jay Simpson · ggplot2`geom_label()中的警告消息`

1 年前