粉丝地图的可视化

执行最后一步是貌似出现了这个错误...
是因为drawit(i)这边的i值对我来说太大了吗？
> print(drawit(3800))
警告信息：
1: Removed 14 rows containing missing values (geom_path).
2: Removed 8 rows containing missing values (geom_point).
3: Removed 8 rows containing missing values (geom_point).
错误于UseMethod("depth") : "depth"没有适用于"NULL"目标对象的方法
错误于UseMethod("depth") : "depth"没有适用于"NULL"目标对象的方法
错误: 'UseMethod'不能这样使用
错误于grid.Call.graphics(L_points, x$x, x$y, x$pch, x$size) :
unprotect():只有1个保护项

[未知用户] 可能是因为标记的点在你获取的地图的经纬度之外，3800是个测试的数值，你可以换其他数值试一下；最后的gif动画也不是所有点的~

赞，好文章，最喜欢‘图文码’并茂的文章啦:D

第三部分用到了ggmap，那第二步获取经纬度就可以用里边geocode函数嘛

myfri = data.frame(name = info[, 1],province=a[, 1],city=a[, 2],
loc = apply(a, 1, paste, collapse = " ",
follower = as.numeric(info[, 3]))
结尾少了个“）”

[未知用户] allEdges <- do.call(rbind, allEdges)[/code]
多了个[/code]

[未知用户] 成功运行了，感谢PuddingNnn
另外貌似还要装个ImageMagick软件

Error in if ((distance1 < sum((graphCenter - c(toC , fromC ))^2)) == :
missing value where TRUE/FALSE needed
这是什么原因？