r - R - 以 1 为增量的循环函数
问题描述
我有以下功能:
position_tab <- filter(Tall, Time_point == 2) %>% group_by(Object) %>% summarise(minimum = min(Pixel_pos), maximum = max(Pixel_pos))
position_tab_2 <- mutate(position_tab, midpoint = minimum + ((maximum - minimum)/2))
产生:
Object minimum maximum midpoint
1 4 22 13
2 39 85 62
etc..
这是对给定时间点的过滤,并创建一个添加了 midpoint 变量的新数据框。
有没有办法以+ 1的增量循环它,以便时间点每次增加一并且它保存的数据帧的名称也每次增加一。
期待
##loop one:
position_tab <- filter(Tall, Time_point == 1) %>% group_by(Object) %>% summarise(minimum = min(Pixel_pos), maximum = max(Pixel_pos))
position_tab_1 <- mutate(position_tab, midpoint = minimum + ((maximum - minimum)/2))
##loop two:
position_tab <- filter(Tall, Time_point == 2) %>% group_by(Object) %>% summarise(minimum = min(Pixel_pos), maximum = max(Pixel_pos))
position_tab_2 <- mutate(position_tab, midpoint = minimum + ((maximum - minimum)/2))
##continues looping until max(Time_point)
解决方案
这是您问题第一部分的答案:
df <- structure(list(Pixel_pos = c(4L, 5L, 6L, 7L, 8L, 9L, 10L, 11L,
12L, 13L, 14L, 15L, 16L, 17L, 18L, 19L, 20L, 21L, 22L, 39L),
Time_point = c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1), Intensity = c(1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1), Object = c(2666L, 2666L,
2666L, 2666L, 2666L, 2666L, 2666L, 2666L, 2666L, 2666L, 2666L,
2666L, 2666L, 2666L, 2666L, 2666L, 2666L, 2666L, 2666L, 2668L
)), row.names = c(NA, -20L), class = c("tbl_df", "tbl", "data.frame"
))
time_points <- max(df$Time_point)
# stock data.frame
list_df <- vector(mode = "list", time_points)
# name list object
names(list_df) <- paste("position_tab", 1:time_points, sep ="_")
for(t in 1:time_points){
# apply your filter
list_df[[t]] <- filter(df, Time_point == t) %>% group_by(Object) %>%
summarise(minimum = min(Pixel_pos), maximum = max(Pixel_pos)) %>%
mutate(midpoint = minimum + ((maximum - minimum)/2))
}
推荐阅读
- css - 将 CSS 规则应用于所有元素,除了一个带有它的子元素
- javascript - 使用 react-native-svg 动画静态 SVG 文件
- r - 由于重复值,pivot_wider 和唯一标识符的问题
- sharepoint - 无法通过列表服务删除项目
- c# - C# RTSP 和 VLC 点网
- excel - 基于符号+查找的动态货币转换[excel]
- spring-boot - 为 REST API 实现 SpringBoot Security JWT 时向标头添加参数不起作用
- blazor - 的使用
Blazor razor 文件中的标签 - javascript - io.emit() 不向所有客户端发送数据
- xml - 如果我们比较 xml 和 yaml,哪个更灵活?