[未知用户] 前来观瞻
粉丝地图的可视化
今天晚上一直在尝试这个,完全是看到效果图之后才开始接触R的。苦逼得不晓得myfri里的m_fol 是从哪里来的 哭死了
错误出现于这一步...
> myfri2 = sqldf("SELECT province,city, avg(lon) AS m_lon, avg(lat)
+ AS m_lat, avg(follower)
+ AS m_fol FROM myfri GROUP BY province,city")
错误于sqliteExecStatement(con, statement, bind.data) :
RS-DBI driver: (error in statement: no such column: follower)
> myfri2 = sqldf("SELECT province,city, avg(lon) AS m_lon, avg(lat)
+ AS m_lat, avg(follower)
+ AS m_fol FROM myfri GROUP BY province,city")
错误于sqliteExecStatement(con, statement, bind.data) :
RS-DBI driver: (error in statement: no such column: follower)
貌似搞错了...一开始时as.numeric没转换成功...
执行最后一步是貌似出现了这个错误...
是因为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个保护项
是因为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
7 天 后
第三部分用到了ggmap,那第二步获取经纬度就可以用里边geocode函数嘛
10 天 后
myfri = data.frame(name = info[, 1],province=a[, 1],city=a[, 2],
loc = apply(a, 1, paste, collapse = " ",
follower = as.numeric(info[, 3]))
结尾少了个“)”
loc = apply(a, 1, paste, collapse = " ",
follower = as.numeric(info[, 3]))
结尾少了个“)”
[未知用户] allEdges <- do.call(rbind, allEdges)[/code]
多了个[/code]
多了个[/code]
[未知用户] 谢谢您的提醒,我在这里给大家道个歉,另外我会马上修改的,谢谢啦!
[未知用户] 成功运行了,感谢PuddingNnn
另外貌似还要装个ImageMagick软件
另外貌似还要装个ImageMagick软件
9 个月 后
Error in if ((distance1 < sum((graphCenter - c(toC , fromC ))^2)) == :
missing value where TRUE/FALSE needed
这是什么原因?
missing value where TRUE/FALSE needed
这是什么原因?
7 天 后
点的大小和线的粗细是代表他们的粉丝数,那怎么看粉丝在一个地区分布的多少呢?