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

如何根据r中可被整数整除的索引从列表中筛选元素?

ViSa · 技术社区 · 5 年前

根据可被6整除的索引从列表中选择元素

mypics "b1.jpg", "b2.jpg", "b3.jpg", "b4.jpg", "b5.jpg", "b6.jpg", "c1.jpg", "c2.jpg", "c3.jpg", "c4.jpg", "c5.jpg", "c6.jpg", "p1.jpg", "p2.jpg", "p3.jpg", "p4.jpg", "p5.jpg", "p6.jpg"

现在我想选择除可被6整除的元素之外的所有元素,我尝试了下面的代码,但它不起作用。

mypics[for (i in 1:length(mypics) ) {(!i %% 6 == 0){return (i)}} ]

鉴于以下部分测试规范有效:

for (i in 1:length(mypics)){
  if (! i %% 6 == 0) {
  print(i)
  }
} 

################# output #################
[1] 1
[1] 2
[1] 3
[1] 4
[1] 5
[1] 7
[1] 8
[1] 9
[1] 10
[1] 11
[1] 13
[1] 14
[1] 15
[1] 16
[1] 17

我不确定我是不是没有正确地退回或是其他什么东西。

2 回复 | 直到 5 年前

Ronak Shah 5 年前

这里不需要循环。尝试:

mypics <- mypics[seq_along(mypics) %% 6 != 0]

mypics <- mypics[c(rep(TRUE, 5), FALSE)]

Karthik S 5 年前

这样做是否有效:使用readr包的parse_number函数:

library(readr)
mypics <- list(b1.jpg = "b1.jpg", b2.jpg="b2.jpg", b3.jpg="b3.jpg", b4.jpg="b4.jpg", b5.jpg="b5.jpg", b6.jpg="b6.jpg", c1.jpg="c1.jpg",c2.jpg= "c2.jpg",c3.jpg= "c3.jpg", 
               c4.jpg="c4.jpg", c5.jpg="c5.jpg", c6.jpg="c6.jpg", p1.jpg="p1.jpg", p2.jpg="p2.jpg", p3.jpg="p3.jpg", p4.jpg="p4.jpg", p5.jpg="p5.jpg", p6.jpg="p6.jpg")
names(mypics)[parse_number(names(mypics))%%6 !=0]
 [1] "b1.jpg" "b2.jpg" "b3.jpg" "b4.jpg" "b5.jpg" "c1.jpg" "c2.jpg" "c3.jpg" "c4.jpg" "c5.jpg" "p1.jpg" "p2.jpg" "p3.jpg" "p4.jpg" "p5.jpg"

推荐文章

Amp · 使用R ggplot2删除geom_radial中axis.line和panel.border之间的空格

1 年前

Hard_Course · 用另一列中的值替换行的最后一个非NA条目

1 年前

Mark R · 使用geom_sf()删除地球仪上不需要的网格线

1 年前

Joe · 根据对工作日和本周早些时候的日期的了解,找到一个日期

1 年前

Ben · 统计向量中的单词在字符串中出现的频率

1 年前

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

1 年前

katefull06 · 在R中使用terra修改范围时,会为单独的SpatRaster重写范围

1 年前

dez93_2000 · 在R管道子功能中引用管道对象的当前状态

1 年前

accibio · 在ggplot2中为同一变量创建两个连续的颜色渐变比例

1 年前

Mankka · 如何在Ggplot2中绘制均匀的径向图

1 年前