r在数据框中的列表的特定元素中添加10个

Question

我有此数据帧DF：

df<-structure(list(tile_type_index = c(9, 15, 20, 5, 20), tile_type = c("Flowers", 
"Leather", "Outpost", "Wood 2", "Outpost"), material_on_hex = list(
    c(0, 0, 0, 0, 0, 0, 0, 0, 1000, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
    0, 0), c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1000, 
    0, 0, 0, 0, 0), c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
    0, 0, 0, 0, 0, 0, 0), c(0, 0, 0, 0, 1000, 0, 0, 0, 0, 0, 
    0, 0, 0, 0, 0, 0, 0, 0, 0, 0), c(0, 0, 0, 0, 0, 0, 0, 0, 
    0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0))), row.names = c(NA, 
5L), class = "data.frame")

  tile_type_index tile_type
1               9   Flowers
2              15   Leather
3              20   Outpost
4               5    Wood 2
5              20   Outpost
                                                material_on_hex
1 0, 0, 0, 0, 0, 0, 0, 0, 1000, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
2 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1000, 0, 0, 0, 0, 0
3    0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
4 0, 0, 0, 0, 1000, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
5    0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0

我想以以下方式对其进行操作：如果tile_type为“哨所”，那么youteral_on_hex的行应该保持不变，但是如果tile_type！=“ urypost”，那么我想将10添加到材料_hex [tile_ty_type_type_type_indexexexexex [tile_type_indexexexex ex inpost'' ]。结果应该是：

  tile_type_index tile_type
1               9   Flowers
2              15   Leather
3              20   Outpost
4               5    Wood 2
5              20   Outpost
                                                material_on_hex
1 0, 0, 0, 0, 0, 0, 0, 0, 1010, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
2 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1010, 0, 0, 0, 0, 0
3    0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
4 0, 0, 0, 0, 1010, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
5    0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0

Answer 1

循环的微不足道：

library(magrittr)
for (i in seq_len(nrow(df))) {
  if (df$tile_type[i] == 'Outpost') next 
  tidx = df$tile_type_index[i]
  df$material_on_hex[[i]][tidx] %<>% add(10)
}


#   tile_type_index tile_type                                               material_on_hex
# 1               9   Flowers 0, 0, 0, 0, 0, 0, 0, 0, 1010, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
# 2              15   Leather 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1010, 0, 0, 0, 0, 0
# 3              20   Outpost    0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
# 4               5    Wood 2 0, 0, 0, 0, 1010, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
# 5              20   Outpost    0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0

也可以使用mapply（）：

df$material_on_hex = mapply(
  \(x, y, z) {
    if (x!='Outpost') z[y] %<>% add(10)
    return(z)
  }, 
  x = df$tile_type, y = df$tile_type_index, z = df$material_on_hex, 
  SIMPLIFY = FALSE
)