вычислить среднее количество проб для каждого предмета в R

Question

Это мой первый раз на стеке. Я попытался найти ответ, но, похоже, я не могу найти что-то важное. Я надеюсь, что кто-то может помочь.

У меня есть dataframe здесь: каждый предмет делает 6 испытаний, есть 105 предметов.

Я хочу найти среднее значение 'skip' для 6 испытаний для каждого subj.

Пожалуйста, кто-нибудь может дать мне подсказку о том, как начать.

>  subj entropy n_gambles trial choice 
1  0 high   2  0 skip 
2  0 high   2  1 skip 
3  0 high   2  2 skip 
4  0 high   2  3 skip 
5  0 high   2  4 skip 
6  0 high   2  5 skip 
7  1 high  32  0 buy 
8  1 high  32  1 buy 
9  1 high  32  2 buy 
10  1 high  32  3 buy 
11  1 high  32  4 buy 
12  1 high  32  5 buy 

Answer 1

Если я должен угадать, то вы собираетесь получить среднее из n_gambles для каждого субъекта, где choice==skip, то это может работать:

# Data 
df<- read.table(text="subj entropy n_gambles trial choice 
0 high 2 0 skip 
0 high 2 1 skip 
0 high 2 2 skip 
0 high 2 3 skip 
0 high 2 4 skip 
0 high 2 5 skip 
1 high 32 0 buy 
1 high 32 1 buy 
1 high 32 2 buy 
1 high 32 3 buy 
1 high 32 4 buy 
1 high 32 5 buy",header=T) 

# Get mean 
aggregate(df[df$choice == "skip","n_gambles"], 
      list(subj=df[df$choice == "skip","subj"]), 
      mean) 

# Output 
# subj x 
# 1 0 2 

EDIT: Как я понимаю, вы хотите частоту skip за subj: Попробуйте это:

# Get counts 
result <- as.data.frame(table(df$subj,df$choice)) 
colnames(result) <- c("subj","choice","Freq") 
# Subset for "skip" and divide by 6 
result <- result[ result$choice == "skip",] 
result$Freq <- result$Freq/6 

Answer 2

Y ожно использовать ddply из пакета plyr: (Вы упомянули, что будут шесть испытаний, так значит, вычисляются путем деления 6 для числа наблюдений с просто выбором = пропустить для каждого предмета)

library(plyr) 
ddply(df,.(subj),summarise,mymean=(length(which(choice=="skip")))/6) 
    subj mymean 
1 0  1 
2 1  0 

Примечания: ФР ваших данные