包含列表的数据框中进行逐元素R计算

Question

I have the following dataframe df:

           adj_coords
1    2, 3, 4, 5, 6, 7
2   1, 3, 7, 8, 9, 10
3 1, 2, 4, 10, 11, 12
4 1, 3, 5, 12, 13, 14
5 1, 4, 6, 14, 15, 16
6 1, 5, 7, 16, 17, 18
                             adj_coords_material_amounts
1     0.0000, 0.0000, 0.0000, 0.0000, 632.6667, 264.3333
2 263.0000, 0.0000, 264.3333, 262.6667, 0.0000, 238.6667
3   263.0000, 0.0000, 0.0000, 238.6667, 0.0000, 298.3333
4 263.0000, 0.0000, 0.0000, 298.3333, 300.6667, 279.3333
5 263.0000, 0.0000, 632.6667, 279.3333, 0.0000, 273.3333
6   263.0000, 0.0000, 264.3333, 273.3333, 0.0000, 0.0000


df<-structure(list(adj_coords = list(2:7, c(1L, 3L, 7L, 8L, 9L, 10L
), c(1L, 2L, 4L, 10L, 11L, 12L), c(1L, 3L, 5L, 12L, 13L, 14L), 
    c(1L, 4L, 6L, 14L, 15L, 16L), c(1L, 5L, 7L, 16L, 17L, 18L
    )), adj_coords_material_amounts = list(c(0, 0, 0, 0, 632.666666666666, 
264.333333333334), c(263, 0, 264.333333333334, 262.666666666667, 
0, 238.666666666667), c(263, 0, 0, 238.666666666667, 0, 298.333333333333
), c(263, 0, 0, 298.333333333333, 300.666666666667, 279.333333333334
), c(263, 0, 632.666666666666, 279.333333333334, 0, 273.333333333334
), c(263, 0, 264.333333333334, 273.333333333334, 0, 0))), row.names = c(NA, 
6L), class = "data.frame")

我想从adj_coords的每一行中抽取一个元素，但仅限于adj_coords_material_amounts中对应元素大于0的情况。

- locket

Answer 1

使用 mapply 对每个配对的 adj_coords 和 adj_coords__material_amounts 进行循环，并使用 sample 从选择大于0的值中随机采样一个值。

##set.seed(1)
mapply(
    \(co,ma) sample(co[ma > 0], 1),
    df[["adj_coords"]], df[["adj_coords_material_amounts"]]
)
#[1]  6 10 12  1  6  1

- thelatemail

Answer 2

我不太熟悉dplyr，但以下是我的尝试：

df %>%
  mutate(id = 1:n()) %>%
  unnest(c(adj_coords, adj_coords_material_amounts)) %>%
  filter(adj_coords_material_amounts > 0) %>%
  group_by(id) %>%
  slice_sample(n = 1) %>%
  ungroup() %>%
  select(!id)

你将会看到

# A tibble: 6 × 2
  adj_coords adj_coords_material_amounts
       <int>                       <dbl>
1          7                        264.
2          8                        263.
3          1                        263
4         14                        279.
5         16                        273.
6          1                        263

- ThomasIsCoding