[問題] tuber套件擷取YouTube頻道資訊

[iambakr (123)]

[問題類型]:
程式諮詢(我想用R 做某件事情，但是我不知道要怎麼用R 寫出來)


[軟體熟悉度]:
新手(沒寫過程式，R 是我的第一次)

[問題敘述]:
想利用tuber套件抓取特定 YouTube頻道ID的國家與頻道名稱

假設為以下四個頻道，我先建一個空的 data frame
然後用for迴圈抓這四個頻道的國家與頻道名稱填入這個空的 data frame

但都會跑出list，涵蓋下面四個資訊，導致錯誤
Channel Title: xxxxxxxxx
No. of Views: 2101540167
No. of Subscribers: 5750000
No. of Videos: 618


請問這個問題該如何解決?
是不是建議用 lapply 來跑?

[程式範例]:
library(tidyverse)
library(tuber)
library(scales)
library(lubridate)

yt_id <- c("UC-9wY4gVMkPGFvFcv63MhKw",
           "UC4q12NoPNySbVqwpw4iO5Vg",
           "UCVTDsWA7ItkDj9vt9Kt_oCw",
           "UCoEpTYzBXDhB5eoSZ6ALa8w"
           )


access <- yt_oauth(app_id = id, app_secret = pass, token = "")
access


youtube <- data.frame()
for (i in 1:4){
  youtube$country[i] <-
    as.character(get_channel_stats(channel_id = yt_id[i])[[4]][7])
  youtube$title[i] <-
    as.character(get_channel_stats(channel_id = yt_id[i])[[4]][1])
}



[環境敘述]:
R version 4.0.0 Patched (2020-04-26 r78306)
Platform: x86_64-w64-mingw32/x64 (64-bit)
Running under: Windows 10 x64 (build 18363)


[關鍵字]:
tuber


謝謝前輩

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 111.250.82.64 (臺灣)
※ 文章網址: https://www.ptt.cc/bbs/R_Language/M.1591721034.A.B37.html
→ andrew43: 先用str()看清楚get_channel_stats()回傳什麼東西
→ andrew43: 我沒app id不能幫你試，但我猜你只是不熟悉回傳的結構
→ iambakr: 感謝Andrew大回覆! 其實我有str()看回傳值是list。但我
→ iambakr: 卡在試過轉字串，在第一步回傳是list就停住了...
→ iambakr: 所以才想說有沒有什麼使用方式是可以指定list的位置後
→ iambakr: 再轉成字串或是數值。目前就是卡在這最關鍵的一步 @@
→ locka: 請問可以貼一下回傳的list範例嗎，值可以是假的，重點是結
→ locka: 構
推 locka: http://i.imgur.com/Tk3Ul8H.jpg
→ locka: 類似這樣子可以嗎？對了id那行應該是id <- c(id, snippet[1
→ locka: ])
Hi 感謝L大
我從tuber抓下來的 get_channel_stats(channel_id = xxxxx) List
長這個樣子 --> https://imgur.com/a/gfnXpVz
第二張圖的螢光部分就是我想抓的資訊

不過我照L大的方式抓，沒有成功抓下來country與id
get_channel_stats底下的snippet與statistics，分別又是另一個list
所以我一直沒辦法成功抓到想要的資訊.....
※ 編輯: iambakr (111.71.71.107 臺灣), 06/10/2020 12:36:19
→ locka: 我沒有實際操作過這個套件，只是看你code裡面存取get_chann
→ locka: el_stat(id)[4][7]，猜測你想要的是第4個element裡面的第7
→ locka: 個element，裡面應該是id資訊，這樣理解是對的嗎？
→ locka: 喔抱歉剛剛沒點進去圖所以沒看到螢光部分，感覺就是資料結
→ locka: 構的存取問題，多試幾次慢慢拆囉。ps. 如果那行改成 get_ch
→ locka: annel_stats(x)$snippet$country 抓的出國家(AU)嗎？
→ locka: 或是 snippet[[7]]
我有這樣試過，但最大的問題是:
每次執行時，都會跑出如下面第二張圖的錯誤資訊
https://imgur.com/a/h6MqOvM

好像是因為都會一次跑出下面資訊
Channel Title: Hillsong Worship
No. of Views: 2102542413
No. of Subscribers: 5750000
No. of Videos: 618
※ 編輯: iambakr (111.71.71.107 臺灣), 06/10/2020 15:21:35
→ andrew43: 可以的話把整個get_channel_stat回傳給saveRDS把檔案貼
→ andrew43: 在雲端。
→ andrew43: 沒辦法重現你的問題實在不方便解答
→ locka: 同意樓上大大~
感謝樓上兩位大大
請見下面連結儲存get_channel_stats的RDS檔案
https://1drv.ms/u/s!Ajmg_0PpohUJgzQrQMbckApP5PTK?e=rdPkiE
※ 編輯: iambakr (111.250.82.64 臺灣), 06/11/2020 00:48:37
→ andrew43: rds讀入後叫x，用x$snippet$localized$title
→ andrew43: 和x$snippet$country就行了吧
→ andrew43: x$snippet[[1]]等同x$snippet[1][[1]]但不同於
→ andrew43: x$snippet[1]，這大概是你卡關的關鍵
→ andrew43: 下次你不確定成不成的時候，可先檢查要取出的一個字串
→ andrew43: 是不是長度為1的character vector就可以避免了。
推 locka: 還有我發現可能還有一個地方有問題：大大你 youtube <- dat
→ locka: a.frame() 只是宣告了一個空的dataframe沒有告訴他有多少筆
→ locka: 資料，這樣後面 youtube$country[i]可能找不到東西，後面錯
→ locka: 誤訊息應該是在指這件事。如果要用for迴圈的話請一開始就宣
→ locka: 告好list或dataframe的大小，不然就用 list <- c(list, ele
→ locka: ment)的方式append