lapply(lapply(search(), ls), length)

##借用語法
library(dplyr)
library(tidyr)
library(hrbrthemes)


##lapply將運算的公式帶入到輸入檔案的每個元素上，不能指定要 by row 還是 by column，會逐個項目去運算
##search()搜尋R的儲存物件
##ls返回當前所有objects的名字
##length 為向量長度 (元素個數)
##雙框框是list
lapply(lapply(search(), ls), length)

## [[1]]
## [1] 0
## 
## [[2]]
## [1] 53
## 
## [[3]]
## [1] 77
## 
## [[4]]
## [1] 267
## 
## [[5]]
## [1] 448
## 
## [[6]]
## [1] 87
## 
## [[7]]
## [1] 110
## 
## [[8]]
## [1] 245
## 
## [[9]]
## [1] 104
## 
## [[10]]
## [1] 218
## 
## [[11]]
## [1] 0
## 
## [[12]]
## [1] 1232

##從這指令來看，0、53、77、128、10...的數值應該是原資料的內容
unlist(lapply(lapply(search(), ls), length))

##  [1]    0   53   77  267  448   87  110  245  104  218    0 1232

##search()這個指令應該是看目前已經安裝的package有多少，ls應該是裡面有的內容物，length算物件長度
search()

##  [1] ".GlobalEnv"         "package:hrbrthemes" "package:tidyr"     
##  [4] "package:dplyr"      "package:stats"      "package:graphics"  
##  [7] "package:grDevices"  "package:utils"      "package:datasets"  
## [10] "package:methods"    "Autoloads"          "package:base"

##結論：計算自己安裝的package物件長度，以lapply連結指令，每個人安裝不同，這題答案list出應該也不相同。