lapply

1열

1답변

xts가 숫자 값만 포함 할 수 있으므로 xts를 데이터 프레임으로 변환 한 후 열을 추가하려고합니다. 추가 행을 최종 결과로 묶으려고하지만 실패하고 해결책을 찾지 못합니다. 여기 stackoverflow에 다른 작가로부터 수집 한 내 코드입니다. 그 덕분에! 나는이 기능은 모든 종목에 적용 후하고 싶으면 무엇 library(quantmod) # Fet

0열

1답변

파일 이름을 추가하지 않으면 'rbind'와 'lapply'가 제대로 작동합니다.

데이터 프레임을 만들고 파일 이름과 함께 다음 코드를 사용하여 추가 csv 파일을 읽습니다. wd <- "Working directory" file_list <- list.files(wd) ### Function: read data ### read_data <- function(file){ d <- read.csv(paste(wd,file,

1열

1답변

data.frames 목록에서 값을 부분 집합하는 방법

나는 data.frames 목록을 가지고 있으며 data.frame의 값을 조건부로 재 지정하려고합니다. 난 그냥 하나의 data.frame에 할당한다면 나는 DF[DF==9] <- NA 는 NA에 9있는 data.frame에있는 모든 항목을 설정하는 무언가 같이 말할 것입니다. 그러나, 나는이 목록의 각 data.frame에이 같은 절차를 수행 할 l

1열

1답변

parLapply를 사용한 경과 시간/사용자 시간 단축

r에서 직렬 및 병렬 실행의 타이밍을 평가하려고했습니다. "lapply"함수와 "parLapply"함수를 비교할 때, 나는 다음과 같은 결과를 얻었다. vec1 <- 1:400000 system.time(result <- lapply(vec1, function(x) x+2)) #using 3 nodes cl3 <- snow::makeCluster(c

0열

2답변

함수 내에서 lapply factor를 사용할 수없는 이유는 무엇입니까?

q1, q2, q3 등으로 레이블 된 열이있는 데이터 프레임이 있습니다. 인자 (변수 이름, 데이터 프레임, 레벨 벡터, 레이블 벡터)를 취하고 코딩 된 답변을 문자열로 변경하는 함수를 만들고 싶습니다. 예를 들어, q3이 1, 2 또는 3으로 코딩 된 경우 "bad", "neutral", "good"로 변경하고 q4는 일련의 4 열 (q4r1, q4r2,

1열

1답변

lapply - columns를 나누고 표준 편차를 계산합니다.

저는 10 개의 data.frames로 목록을 얻었고 각 data.frame에 대해 두 개의 열을 나누고 상대 표준 편차를 계산해야합니다. lapply를 사용하고 싶습니다. 여기 목록에 포함 된 data.frame 중 하나의 예를 : df <- read.table(text = 'X Y 2 4 5 3 1 2 7 1 4 2 6 1', he

2열

2답변

카운트에 기반한 데이터 프레임의 모든 요인 변수에 대한 축소 요인 수준

주파수를 기준으로 상위 2 개의 요인 수준 만 유지하고 다른 모든 요인은 기타로 그룹화하고 싶습니다. 나는 이것을 시도했지만 도움이되지 않는다. df=data.frame(a=as.factor(c(rep('D',3),rep('B',5),rep('C',2))), b=as.factor(c(rep('A',5),rep('B',5))),

-2열

1답변

시간 내 및 그룹 내에서 중첩 된 함수를 호출하는 방법 R

각 시점 (n = 100) 시점에서 각 그룹 (n = 100 그룹)에 대해 하나의 데이터 행을 포함하는 데이터 프레임 x이 있습니다. # group time Qfr #1.1 1 1 0.00475 #1.2 2 1 0.00543 #1.3 3 1 0.00586 ... #10.1 1 100 0.00599 #10.2 2 100 0.00641 #1

0열

1답변

R - 연속적으로 데이터 프레임에 함수 적용

데이터 프레임 mydf가 있는데 이것을 분할하여 mydf$'1' mydf$'2'...mydf$'n'과 같은 데이터 프레임 수를 얻습니다. 나는 분할에서 약 35 데이터 프레임이 있기 때문에 ... 등등 resultdf1 <- myfunc(mydf$'1') resultdf2 <- myfunc(mydf$'2') ..... resultdfn <- myfun

1열

1답변

주어진리스트에 대한 as.matrix (A $ mat) A

패키지에 nearPD()을 적용하려고하는 행렬이 있습니다. 나는 다음과 같은 코드를 사용하여이 작업을 수행 한 : A<-lapply(b, nearPD) b는 n 개의 행렬의 목록입니다. 이제 목록 A를 행렬로 변환하고 싶습니다. 개별 매트릭스의 경우 다음 코드를 사용합니다. A<-matrix(runif(n*n),ncol = n) PD_mat_A<-ne