関数付きループ用R

Question

EDITED：以下のコードがあります。基本的には、関数のデータフレームから画像を取得しています。私はforループを実行する最善の方法が何であるか、またはこれにはより良い選択肢があるかどうかは分かりません。最終目標はDF_ALLに到達することです。データフレームには100以上の画像があります。したがって、以下の解決策は最もエレガントではありません。

# Part 1, Get some profile images from Twitter. 

library(rtweet) #I'm not including the key here. 

# Get a list of IDs 
followers <- get_followers("TWITTER_HANDLE_HERE", n = 10) 

# Get the complete Twitter profile for the 10 users 
follower_profiles <- lookup_users(followers) 

# Create new variable profile_full_url for image API 
follower_profiles$profile_full_url <- gsub("normal", "400x400", follower_profiles$profile_image_url) 

# Part 2, Proceed image with API 
library(Roxford) 
visionkey = 'KEY_FROM_GOOGLE' 

# Run image tag function on the first image 
DF1 <- getTaggingResponseURL(follower_profiles$profile_full_url[1], visionkey) 
DF1$twitter_url <- follower_profiles$profile_full_url[1] 

# Here is the result (Notice how it is show 3 rows. I don't why it is. Would prefer to have 1 row per image) 
# name  confidence width height format                 twitter_url 
# tags  wall 0.999090671539307 <NA> <NA> <NA> http://pbs.twimg.com/profile_images/9999999999_400x400.jpg 
# requestId <NA>    <NA> <NA> <NA> <NA> http://pbs.twimg.com/profile_images/9999999999_400x400.jpg 
# metadata <NA>    <NA> 400 400 Jpeg http://pbs.twimg.com/profile_images/9999999999_400x400.jpg 

# The problem is... there could be 100+ of images. 
# I feel that a for loop could potentially be the solution. 

DF1 <- getTaggingResponseURL(follower_profiles$profile_full_url[1], visionkey) 
DF1$twitter_url <- follower_profiles$profile_full_url[1] 

DF2 <- getTaggingResponseURL(follower_profiles$profile_full_url[2], visionkey) 
DF2$twitter_url <- follower_profiles$profile_full_url[2] 

DF3 <- getTaggingResponseURL(follower_profiles$profile_full_url[3], visionkey) 
DF3$twitter_url <- follower_profiles$profile_full_url[3] 

DF_ALL<-rbind(DF1,DF2,DF3) 

Answer 1

これを試してみてください：

for (i in 1:nrow(follower_profiles)) { 
    DF <- getTaggingResponseURL(follower_profiles$profile_full_url[i], visionkey) 
    DF$twitter_url <- follower_profiles$profile_full_url[i] 
    if (i == 1) { 
     DF_ALL <- DF 
    } else { 
     DF_ALL <- rbind(DF_ALL,DF) 
    } 
} 

Answer 2

1つのURLのための機能。

foo <- function(x) { 
    DF <- getTaggingResponseURL(x, visionkey) 
    DF$twitter_url <- x 
    DF 
} 

は、ベクターfollower_profiles$profile_full_urlとrbind結果にfooを適用します。

DF_ALL <- do.call(rbind, lapply(follower_profiles$profile_full_url, foo)) 

おそらくこれもうまくいくはずですが、私はデータの構造を知らないのでわかりません。

DF_ALL <- sapply(follower_profiles$profile_full_url, foo)