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

带%>%的多个条件

magrittr conditional r

Chris · 技术社区 · 7 年前

可复制示例:

colnames(df)
"Z1"   "Z2"   "Z3"   "GV1"  "GV2"  "GV3"  "GV4"  "GV5"  "GV6"  "GV7"  "GV8"  "GV9" "GVY"  "EN1" "EN2"  "EN3"  "EN4"  "EN5"  "EN6"  "EN7"  "EN8"  "EN9"  "ENY"  "PV1"  "PV2"  "PV3"  "PV4"  "PV5"  "PV6"  "PV7"  "PVY"

我正在尝试理解/执行下一个代码:

colnames(df[substr(colnames(df),start=1,stop=2) == "GV" & substr(colnames(df),start=3,stop=3) != "Y"])

带magrittr管道操作员 %>% 因为我喜欢用它来编写可读性更强的代码(这很管用):

library(magrittr)
df %>%
  colnames %>%
    substr(start=1,stop=2) == "GV"

但是,这样做没有意义(这不起作用):

df %>%
  colnames %>%
    substr(start=1,stop=2) == "GV" & substr(colnames(df),start=3,stop=3) != "Y"]

3 回复 | 直到 7 年前

pogibas 7 年前

如果你的目标是 简化代码 然后可以使用正则表达式:

# Match string that starts with GV and is not fallowed by Y
grep("^GV[^Y]", foo, value = TRUE)
# [1] "GV1" "GV2" "GV3" "GV4" "GV5" "GV6" "GV7" "GV8" "GV9"

# Data
foo <- c("Z1", "Z2", "Z3", "GV1", "GV2", "GV3", "GV4", "GV5", "GV6", "GV7", "GV8", "GV9", "GVY", "EN1", "EN2", "EN3", "EN4", "EN5", "EN6", "EN7", "EN8", "EN9", "ENY", "PV1", "PV2", "PV3", "PV4", "PV5", "PV6", "PV7", "PVY")

Gonzalo Falloux Costa 7 年前

df %>%
  colnames %>%
    substr(start=1,stop=2) == "GV"  %>%
       substr(colnames(df),start=3,stop=3) != "Y"

moodymudskipper 7 年前

{ :

foo %>% {substr(.,start=1,stop=2) == "GV" & substr(.,start=3,stop=3) != "Y"}
# [1] FALSE FALSE FALSE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE FALSE FALSE FALSE FALSE FALSE FALSE
# [19] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE

推荐文章

Deadpool · 未返回正确值但未定义的函数的类型

8 年前

MLPNPC · 与R中的条件合并

8 年前

Pbalazs89 · 在手机上单击两次后,toggleClass条件不起作用/图标消失

8 年前

jeangelj · Python panda根据其他列中的条件覆盖值

8 年前

user3580480 · 在ASPX应用程序(VB)中添加条件下拉列表项

8 年前

whalesboy · 基于结果连接表(查询后)

8 年前

CtrlAltF2 BoldX · 应为true的条件为false(JS)

8 年前

Tania MartÃnez · <a>展开时标记会打断样式

8 年前

Semolor · 合并具有相同目标的多个PowerShell脚本-多维条件

8 年前

alofgran mrry · 有条件替换NaN

8 年前