data.table

    0

    1답변

    벡터화 질문이 있는데 온라인 솔루션을 찾지 못하는 것 같습니다. 나는 매우 큰 dataframe이 있고, 현재 나는 지연 값을 필터링하고 얻을 수있는 다음과 같은 루프를 사용하고 있습니다 : 각각에 대해 > df rowtype values1 index firstBLagged secondBLagged thirdBLagged 1 A 2 1

    4

    2답변

    두 데이터 테이블 : DT 및 meta이 있습니다. DT[meta]을 사용하여 병합하면 메모리 사용이 10GB 이상 증가합니다 (병합이 매우 느립니다). 무슨 일있어? 병합이 성공한 것처럼 보이지만 단 한 줄만 볼 수 있습니다. 그렇지 않으면 메모리가 부족합니다. DT 자체는 문제없이 두 개의 데이터 테이블을 병합하여 만들어졌습니다. 편집 : 키에 문제가있

    88

    1답변

    data.table을 사용하여 여러 열에 할당하는 가장 좋은 방법은 무엇입니까? 예를 들어 : f <- function(x) {c("hi", "hello")} x <- data.table(id = 1:10) 내가 같은 것을 할 싶습니다 (물론이 구문이 올바르지 않습니다) : x[ , (col1, col2) := f(), by = "id] 그리고 내

    55

    3답변

    나는 약 255 만 개의 행을 가진 data.table 테이블이 있습니다. 두 개의 열이 있습니다. 두 열 모두에서 복제 된 행을 제거하고 싶습니다. 이전에는 data.frame에서 이렇게했을 것입니다 : df -> unique(df[,c('V1', 'V2')]) 그러나 이것은 data.table에서 작동하지 않습니다. unique(df[,c(V1,V2),

    3

    1답변

    함수에 data.table 연산을 포함하는 데 문제가 있습니다. 입력 인수는 data.table 이름과 열/변수 이름입니다. get() 명령을 사용하여 data.table을 참조 할 수 있습니다. 그러나 변수 이름에 대해 동일한 명령을 사용하면 효과가 없습니다. 나는 get()이 열/변수 이름의 경우에는 적합하지 않을 수도 있지만 어떤 명령을 사용해야하는지

    8

    2답변

    그룹을 원래 순서대로 유지하면서 데이터 프레임을 집계하는 데 문제가 있습니다 (데이터 프레임의 첫 번째 모양을 기반으로 한 순서). 나는 그것을 올바르게 처리 할 수 ​​있었지만, 그것에 대해 갈 수있는 더 쉬운 방법이 있기를 바라고있었습니다. set.seed(7) sel.1 <- sample(1:5, 20, replace = TRUE) # select

    2

    2답변

    편집 :이 문제는 오래된 버전의 data.table이 설치 되었기 때문에 발생했습니다. 나는 같은 data.table이 다음 :이처럼 보이도록, 컬러 당 누적 합계를 싶습니다 require(xts) a <- data.table(colour=c("Red","Green","Blue","Blue","Black","Black"), date=c(as.Date("2

    26

    1답변

    하루에 만남을위한 enc.per.day라는 data.table이 있습니다. 그것은 서비스 날짜가 지정되어있는 2403 개의 행과 그 날에 본 환자 수입니다. 나는 모든 유형의 평일에 보았던 환자의 중앙값을보고 싶었다. enc.per.day[,list(patient.encounters=median(n)),by=list(weekdays(DOS))] 는 그

    4

    3답변

    나는 다음과 같은 데이터 프레임이 : 나는 정상화하고 싶은 이제 > str(df) 'data.frame': 52 obs. of 3 variables: $ n : int 10 20 64 108 128 144 256 320 404 512 ... $ step : Factor w/ 4 levels "Step1","Step2",..: 1 1 1

    3

    1답변

    나는 약간의 질문을 수정했습니다. integg <- function(t,a,b,con,s){ u <- ifelse(t - a < 0 ,0, t - a) l <- ifelse(t - (a+b) < 0,0, t - (a+b)) s * integrate(Vectorize(function(foo,x){x}),lower=l,upper=u