내가 합으로 데이터 프레임 값을 정상화 할 수있는 방법 (퍼센트를 얻을)

Question

나는 다음과 같은 데이터 프레임이 : 나는 정상화하고 싶은

이제

> 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 1 1 1 1 1 1 1 ... 
    $ value: num 0.00178 0.000956 0.001613 0.001998 0.002975 ... 

/을에 속하는 값의 합에 의해 df$value 분할을 동일한 n ie 그래서 나는 백분율을 얻을 수있다. 이것은 효과가 없지만 내가 성취하고자하는 것을 보여줍니다.

dfa <- aggregate(x=df$value, by=list(df$n), FUN=sum) 
names(dfa)[names(dfa)=="Group.1"] <- "n"   
names(dfa)[names(dfa)=="x"] <- "value" 
df$value <- df$value/dfa[dfa$n==df$n,][[1]] 

Answer 1

내가 패키지 data.table를 사용하여 다음 작품을 생각 : 여기가 DFA로 같은 N에 속하고 n 일치로 집계 된 총 dfa$value에 의해 원래의 df$value에 분할하려고 값의 합계를 미리 계산.

df <- data.table(df) 
df[,value2 := value/sum(value),by=n] 

Answer 2

당신이 코드의 문제는이 라인 :

df$value <- df$value/dfa[dfa$n==df$n,][[1]] 

n 일치하는 경우 각각의 인덱스를 알 길이 max(length(df),length(dfa)의 논리적 벡터를 반환 dfa$n==df$n 라인입니다. 나는 당신이 dfa$n을 df$n에 맞추기 위해 그것을 사용할 수 있다고 생각하지 않습니다. base 기능을 사용

, 당신은 aggregate 및 merge를 사용할 수 있습니다

dfa <- aggregate(x=df$value, by=list(df$n), FUN=sum) 
names(dfa) <- c("n","sum.value") 
df2 <- merge(df,dfa,by="n",all = TRUE) 
df2$value2 <- df2$value/df2$sum.value 

Answer 3

내가 ave을 사용합니다 :

set.seed(123) 
df <- data.frame(n=rep(c(2,3,6,8), each=5), value = sample(5:60, 20)) 
df$value_2 <- ave(df$value, list(df$n), FUN=function(L) L/sum(L))