замени стойността на колона на n-та колона със списък от кадри с данни, където стойността отговаря на критериите

Ако имам следния списък с кадри с данни:

d1 <- data.frame(y1=c(1,2,3), y2=c(4,5,6))
d2 <- data.frame(y1=c(3,2,1), y2=c(6,5,4))
d3 <- data.frame(y1=c(6,5,4), y2=c(3,2,1))
d4 <- data.frame(y1=c(9,9,9), y2=c(8,8,8))

my.list <- list(d1, d2, d3, d4)

my.list
[[1]]
  y1 y2
1  1  4
2  2  5
3  3  6

[[2]]
  y1 y2
1  3  6
2  2  5
3  1  4

[[3]]
  y1 y2
1  6  3
2  5  2
3  4  1

[[4]]
  y1 y2
1  9  8
2  9  8
3  9  8

как да заменя стойностите във втората колона, където числото е по-голямо от 5 с "по-голямо от 5", т.е.

my.list
[[1]]
  y1 y2
1  1  4
2  2  5
3  3  'greater than five'

[[2]]
  y1 y2
1  3  'greater than five'
2  2  5
3  1  4

[[3]]
  y1 y2
1  6  3
2  5  2
3  4  1

[[4]]
  y1 y2
1  9  'greater than five'
2  9  'greater than five'
3  9  'greater than five'

Знам, че мога да тествам за такива случаи, като направя нещо като:

sapply(sapply(my.list, "[[", 2), function(x) x > 5)
 [1] FALSE FALSE  TRUE  TRUE FALSE FALSE FALSE FALSE FALSE  TRUE  TRUE  TRUE

но не може да разбере как да замени оригиналната стойност, когато тестът е верен.

всяка помощ ще бъде много благодаря


r list dataframe sapply
person brucezepplin    schedule 19.04.2017    source източник

Отговори (2)


arrow_upward
2
arrow_downward

Можете да изберете replace в основата R:

col <- 2
lapply(my.list, function(x) 
      data.frame(cbind(x[,-col], replace(x[,col], x[,col]>5, "greater than five"))))
person 989    schedule 19.04.2017

arrow_upward
2
arrow_downward

Можем да използваме transform с lapply

lapply(my.list, transform, y2 = replace(y2, y2>5, "greater than 5"))
#[1]]
#  y1             y2
#1  1              4
#2  2              5
#3  3 greater than 5

#[[2]]
#  y1             y2
#1  3 greater than 5
#2  2              5
#3  1              4

#[[3]]
#  y1 y2
#1  6  3
#2  5  2
#3  4  1

#[[4]]
#  y1             y2
#1  9 greater than 5
#2  9 greater than 5
#3  9 greater than 5

Или с tidyverse

library(tidyverse)
my.list %>%
    map(~mutate(., y2 = replace(y2, y2 >5, "greater than 5")))
person akrun    schedule 19.04.2017