请教：如何在3D散点图上添加标签？

相似文件 换一批

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

我用scatterplot3d函数作了三维散点图后，没有办法把每个点的标签加上。
比如用以下数据：

	x1	x2	x3
广州	44.2953	95.9	1.57
深圳	57.9923	94.7	2.82
珠海	68.52343	95.2	1.3
汕头	19.0678	92.8	0.42
佛山	24.94806	93	1.3
韶关	22.34637	81.9	1.6
河源	56.0241	74.1	0.07
梅州	42.85714	82.1	0.14
惠州	78.82483	95.9	0.65
汕尾	43.33333	34.2	0.02
东莞	74.11269	94.6	0.54
中山	31.90861	95.3	1.64
江门	34.8659	87.6	0.58
阳江	15.2439	80.4	0.01
湛江	24.10714	81.8	0.34
茂名	10.34483	86.7	0.17
肇庆	49.1573	94.2	0.31
清远	42.32365	70	0.23
潮州	44.44444	81.2	0.52
揭阳	18.82952	74.3	0.21
云浮	28.57143	87.3	0.06

libary(scatterplot3d)
x=read.table("clipboard",header=T)
scatterplot3d(x[,1],x[,2],x[,3])
我想在画出的立体散点图中每个点对应一个城市，但图中的点并没有显示对应城市的名字，结果哪个点代表哪个城市根本看不出来，怎么样把城市名字添加到对应的散点图中呢？？
在二维图中好像可以用text()，可在这个三维图中该用什么代码？
请高手帮帮忙！！

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏2 回帖

关键词：加标签 散点图 scatterplot clipboard Scatter 请教

呵呵，无能为力。。。。。。

我的问题与楼主类似：不但想有标签，还想得到误差棒。不知怎么弄？

同问~请问R中怎么在3维散点图上添加标签啊？

用text()再画一个图叠加上去即可

1. library(rvest)
   
2. web <- read_html('https://bbs.pinggu.org/thread-926618-1-1.html')
   
3. dt <- (web%>%html_nodes('.t_table')%>%html_table(header = T))[[1]]
   
4. library(scatterplot3d)
   
5. library(graph3d)
   
6. s3d <- scatterplot3d(dt[,2:4], pch = 16, color='red',cex.symbols = 2)
   
7. text(s3d$xyz.convert(dt[,2:4]), labels = dt[,1],
   
8.      cex= 0.7, col = "black",adj=c(1,-1),font=2)

复制代码

zhou1_20 发表于 2018-5-6 09:42

大神~ 想请教一下 是不是scatterplot3d里面没有直接加上数据标签这个选项呀？ ^^

偷偷融化的冰 发表于 2018-6-21 12:16
大神~ 想请教一下 是不是scatterplot3d里面没有直接加上数据标签这个选项呀？ ^^

对呀[tongue]