如何合並子集並將摘要應用於多個向量？

Question

因此，我嘗試將summary命令應用於一堆向量，並像在每個輸出中都用它所屬的郵政編碼標記每個向量一樣。 我也有一個可能嗎？ 另外，我覺得有一種方法可以將前兩個步驟結合起來，但是我不確定如何結合。 非常感謝你的幫助！！！！ 這是我到目前為止的內容：

 data.06511 <- subset(x, ZipCode == 6511)
 data.06513 <- subset(x, ZipCode == 6513)
 data.06515 <- subset(x, ZipCode == 6515)
 data.06516 <- subset(x, ZipCode == 6516)
 data.06519 <- subset(x, ZipCode == 6519)

 lackfood.06511 <- data.06511$lackFood12Months_Bin
 lackfood.06513 <- data.06513$lackFood12Months_Bin
 lackfood.06515 <- data.06515$lackFood12Months_Bin
 lackfood.06516 <- data.06516$lackFood12Months_Bin
 lackfood.06519 <- data.06519$lackFood12Months_Bin
 lackfood.pop <- x$lackFood12Months_Bin

Answer 1

這是一些示例代碼。 將其復制並粘貼到您的R會話中，以查看是否符合要求。

dat1 <- rnorm(100)
dat2 <- rnorm(100)

data <- list(dat1,dat2) #Makes a list
lapply(data,summary) #Lapply applies the summary function to each element in a list

當我開始編程時，我發現Apply函數很難理解。 這可能會有所幫助： https : //www.r-bloggers.com/using-apply-sapply-lapply-in-r/

回答有關對多個組執行操作的第二個問題：split命令對拆分不同的數據組非常有用。 試試： split(mtcars, mtcars$carb)

我想嘗試結合lapply和split： lapply(split(mtcars, mtcars$carb), summary)

同樣，擁有示例數據使您的問題更容易回答。 希望能有所幫助