選擇從列（數據幀）匹配的行值來創建中的R

Question

我有一組，看起來像這樣的數據的使用循環重複，

species<-"ABC" 
ind<-rep(1:4,each=24) 
hour<-rep(seq(0,23,by=1),4) 
depth<-runif(length(ind),1,50) 

df<-data.frame(cbind(species,ind,hour,depth)) 
df$depth<-as.numeric(df$depth) 

在本例中，列「ind」具有更多的級別，並且它們的長度並不總是一樣的（這裏每個人都有4級，但實際上有些人擁有數千行數據，而其他只有幾行）。

我想要做的是有一個外部循環或函數，將選擇每個人（「ind」）的所有行，並使用深度/小時列生成boxplot。

這是我心目中的想法，

for (i in 1:length(unique(df$ind))){ 

    data<-df[df$ind==df$ind[i],] 
    individual[i]<-data 

    plot.boxplot<-function(data){ 
    boxplot(depth~hour,dat=data,xlab="Hour of day",ylab="Depth (m)") 

    } 

} 

par(mfrow=c(2,2),mar=c(5,4,3,1)) 
plot.boxplot(individual) 

我意識到，這個循環可能是不合適的，但我仍然在學習。我可以一次爲每個人做盒子，但是我希望爲每個人選擇一個更快，更有效的方法來創建或存儲盒子結果。這對於我有更多的人時非常有用（而不是一次一個人......）。提前致謝。

Answer 1

這樣的事情呢？

par(mfrow=c(2,2)) 
invisible(
    by(df,df$ind, 
    function(x) 
     boxplot(depth~hour,data=x,xlab="Hour of day",ylab="Depth (m)") 
    ) 
) 

爲了提供一些解釋，這個運行用於每個組病例中df定義bydf$ind一個boxplot。 invisible包裝只是使得用於boxplot的一堆輸出不會寫入控制檯。