R에서 목록의 벡터 요소에 이름 할당
Aug 19 2020
foo
아래 함수 출력에서 각 벡터 요소에 이름을 할당 할 수 있는지 궁금 합니다.
아래의 예를 들어 요소주고 $pubs
이름 : "pubs_-1SD"
, "pubs_+1SD"
와의 요소 $time
이름을 : "time_-1SD"
, "time_+1SD"
?
data <- read.csv('https://raw.githubusercontent.com/rnorouzian/e/master/salary.csv')
foo <- function(data, vars) lapply(data[,vars], function(x) mean(x) + c(-1, 1)*sd(x))
foo(data, c("pubs", "time")) # EXAMPLE OF USE
# $pubs # [1] 5.348203 33.909862 ## `"pubs_-1SD"` and `"pubs_+1SD" # $time
# [1] 3.312931 12.848359 ## `"time_-1SD"` and `"time_+1SD"`
답변
4 RonakShah Aug 19 2020 at 06:15
다음을 사용하여 열 이름을 전달하고 이름을 sapply
지정할 수 있습니다 setNames
.
foo <- function(data, vars) sapply(vars, function(x)
setNames(mean(data[[x]]) + c(-1, 1)*sd(data[[x]]),
paste0(x, '_', c('-', '+'), '1SD')), simplify = FALSE)
foo(data, c("pubs", "time"))
#$pubs #pubs_-1SD pubs_+1SD # 5.348203 33.909862 #$time
#time_-1SD time_+1SD
# 3.312931 12.848359
1 akrun Aug 19 2020 at 21:53
우리는 사용할 수 있습니다 Map
foo <- function(data, vars) {
Map(function(x, y) setNames(mean(x) + c(-1, 1)*sd(x),
sprintf('%s_%s1SD', rep(y, 2), c('-', '+'))), data[,vars], vars)
}
foo(data, c("pubs", "time"))
#$pubs #pubs_-1SD pubs_+1SD # 5.348203 33.909862 #$time
#time_-1SD time_+1SD
# 3.312931 12.848359