Анализ с течением времени, сравнивая 2 кадра данных построчно

Question

Это небольшая часть фрейма данных, с которым я работаю для справки. Я работаю с фреймом данных (MG53_HanLab) в R, в котором есть столбец для времени, несколько столбцов с именем "MG53", несколько столбцов с именем "F2" и несколько с "Iono" в них. Я хотел бы сравнить средства каждой группы для каждого момента времени. Я понимаю, что я должен подгруппировать данные и попытался сделать

control <- MG53_HanLab[c(2:11)]
F2 <- MG53_HanLab[c(12:23)]
iono <- MG53_HanLab[c(24:33)]

который создал 3 новых кадра данных.

Мой вопрос: как сравнить строки двух строк данных, чтобы увидеть, есть ли разница в средствах для каждой таблицы?

Answer 1

rowMeans чувствует себя проще, как предложил @Chi Pak.

#create example data
time<-seq(1.0,6.0,.5)
A_1<-runif(11)
A_2<-runif(11)
B_1_1<-runif(11)
B_1_2<-runif(11)
B_2<-runif(11)

#create data frame
df<-data.frame(time,A_1,A_2,B_1_1,B_1_2,B_2)

#subset column groups into individual data frames using regular expression
df.a<-df[,grep('A_',colnames(df))]

#calculate rowMeans
a.mean<-rowMeans(df.a)

#repeat for other column groups
df.b<-df[,grep('B_',colnames(df))]
b.mean<-rowMeans(df.b)

#recombine to view side by side
df.mean<-data.frame(a.mean,b.mean)

Answer 2

Вы можете использовать data.table пакет с некоторыми данными перелистывая столбцы в строки и обратно.

#import library
library(data.table)

#create example data
time<-seq(1.0,6.0,.5)
A_1<-runif(11)
A_2<-runif(11)
B_1_1<-runif(11)
B_1_2<-runif(11)
B_2<-runif(11)

#instantiate data table from example data
dt <-data.table(time,A_1,A_2,B_1_1,B_1_2,B_2)

#flip all columns with underscores in name into rows using regular expression
dt.m = melt(dt,id.vars=c("time"), measure.vars=grep('_',colnames(dt)))

#remove characters after '_' to homogenize column groups
dt.m[,variable:=sub("_.*","",variable)]

#calculate the mean grouped by time and column groups
dt.mean<-dt.m[,lapply(.SD,mean),by=.(time,variable)]

#flip rows back to columns
dcast(dt.mean,time~variable,value.var = "value")