如何解决如何创建删除文件的条件？
我试图从我的数据文件夹中获取每个图像的像素方差，并在它低于 800 时将其删除。我曾尝试删除数据框中的行或列，但这不适用于列表。 这里有人可以帮助我解决我在这里做错了什么吗？
library(magick)
library(tidyverse)
Folder <- "......."
images <- list.files(path = Folder,pattern = "*.JPG",full.names = TRUE)
images <- map(images,image_read)
images[$image_variance <= 800.0000,]
解决方法
您可以使用const stackNav1 = <Provider1>
<Stack.Navigator>
<Stack.Screen name="screen1" component={Screen1} />
<Stack.Screen name="screen2" component={Screen2} />
</Stack.Navigator>
</Provider1>
const stackNav2 = <Provider2>
<Stack.Navigator>
<Stack.Screen name="screen3" component={Screen3} />
<Stack.Screen name="screen4" component={Screen4} />
</Stack.Navigator>
</Provider2>
...
<Stack.Navigator>
<Stack.Screen name="stack1" component={stackNav1} />
<Stack.Screen name="stack2" component={stackNav2} />
</Stack.Navigator/>
purrr::keep或者基于 R result <- purrr::keep(images,~image_variance(.x) > 800)
只保留那些方差大于 800 的图像。
Filter版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。