[问题类型]:
程式咨询(我想用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
谢谢前辈

先用str()看清楚get_channel_stats()回传什么东西我没app id不能帮你试，但我猜你只是不熟悉回传的结构

感谢Andrew大回复! 其实我有str()看回传值是list。但我卡在试过转字串，在第一步回传是list就停住了...所以才想说有没有什么使用方式是可以指定list的位置后再转成字串或是数值。目前就是卡在这最关键的一步 @@

请问可以贴一下回传的list范例吗，值可以是假的，重点是结构http://i.imgur.com/Tk3Ul8H.jpg类似这样子可以吗？对了id那行应该是id <- c(id, snippet[1])我没有实际操作过这个套件，只是看你code里面存取get_channel_stat(id)[4][7]，猜测你想要的是第4个element里面的第7个element，里面应该是id资讯，这样理解是对的吗？喔抱歉刚刚没点进去图所以没看到萤光部分，感觉就是资料结构的存取问题，多试几次慢慢拆囉。ps. 如果那行改成 get_channel_stats(x)$snippet$country 抓的出国家(AU)吗？或是 snippet[[7]]

可以的话把整个get_channel_stat回传给saveRDS把档案贴在云端。没办法重现你的问题实在不方便解答

同意楼上大大~

rds读入后叫x，用x$snippet$localized$title和x$snippet$country就行了吧x$snippet[[1]]等同x$snippet[1][[1]]但不同于x$snippet[1]，这大概是你卡关的关键下次你不确定成不成的时候，可先检查要取出的一个字串是不是长度为1的character vector就可以避免了。

还有我发现可能还有一个地方有问题：大大你 youtube <- data.frame() 只是宣告了一个空的dataframe没有告诉他有多少笔资料，这样后面 youtube$country[i]可能找不到东西，后面错误讯息应该是在指这件事。如果要用for循环的话请一开始就宣告好list或dataframe的大小，不然就用 list <- c(list, element)的方式append