通过friendscount限制用户的TwitteR

我正在使用R中的TwitteR软件包进行数据挖掘，我在跟踪大量用户的帐户方面遇到了一些问题。我有一个通过简单搜索获得的TwitteR屏幕名称列表：

smalltest<-searchTwitter("bridgegate",n=25)

我想将我的屏幕名称列表限制为好友数量少于X的用户，我想我可以通过FriendsCount（）函数验证这些用户。我想我会运行一个循环和一个if语句，但我不确定使用的语法是否正确。也许是这样的

 for(i in 1:length(smalltest))){
user<-getUser(smalltest[i])
if user$FriendsCOUNT >250
*some command to remove this username from smalltest*

}

for（i in 1:length（smalltest）））{
用户250
*从smalltest中删除此用户名的一些命令*
}

据我所知，FriendsCount只是用户对象中的一个字段。不确定访问它的正确语法是什么。我意识到这是一个很长的问题，任何帮助都将不胜感激

这是我刚刚尝试使用的代码，但我一直遇到语法错误

for(i in 1:length(smalltest)) {
  user <- getUser(smalltest[i])
  numbfriends<-user$getFriendsIDs()
    if length(numbfriends) >250{
    smalltest[i] <-list(null)
  }


}

for（i/1：长度（smalltest））{
用户无需
for
循环，但您可能希望更详细地查看
twitteR
包，并在以下位置查看一些示例：

bridgegate谢谢！@hrbrmstr所以我还有一个问题希望你能帮我。我想用这些“BridgeTweeers”并使用getFriends（）函数返回一个列表，列出我列表中每个BridgeTweeers的追随者。有没有一种方法可以不用for循环也能做到这一点？你只需要“250”或者全部都是？
fof它在R中实际花费了非常长的时间。我不知道为什么。这就像是cmd行Ruby脚本中时间的十分之一（或更快）。
for(i in 1:length(smalltest)) {
  user <- getUser(smalltest[i])
  numbfriends<-user$getFriendsIDs()
    if length(numbfriends) >250{
    smalltest[i] <-list(null)
  }


}

bridgegate <- searchTwitter("bridgegate", n = 25)

# try not to use 't' as a variable name since there's a 't()' function
bridgeTweeters <- laply(bridgegate, function(x) x$getScreenName())

# this gets us **tons** of info about all the twitter users we found above
bridgeTweeters <- lookupUsers(bridgeTweeters)

# prlby 20 other ways to do the following
bridgeTweeters.250 <- as.character(na.omit((sapply(bridgeTweeters, function(x) {
    return(ifelse((x$friendsCount <= 250), x$screenName, NA))
}))))

print(bridgeTweeters.250)

## [1] "SatireFunnyNews" "USRadioNews"     "JOBCREMATORMITT" "__Semir__"      
## [5] "TexasPolitica"   "CallMeAhmjusAyn" "FoamFingerFan"