【求高手帮助】：如何画出如附件所示的复杂的散点图？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

如何用R画出如附件所示的算点图？要求如下：
1）图的标题为：Test； X轴坐标图注为A score，数值范围为0-1000，每100或200有一个刻度；X轴坐标图注为B score，同样的，数值范围也为0-1000，每100或200有一个刻度。
2）分别在X，Y轴的400,600处画线，共四条，均为实线，将图为9个区块。同时画45度的对角线，改线为虚线。
3）将 X，Y 均小于400的点显示为绿色点——左下角写green区块中的点；将 X，Y 均大于600的点显示为红色点——右上角写red区块中的点；其它各区域均为黑色点（与附件中显示有差别）；并且点越小越好，因为数据量很大，点大的话，显示效果就很差了，希望达到如附件所示的点大小的效果。

数据为两列，有Header：x和y，保存于test.txt文件。格式如下;

x	y
679.3036	691.1898
664.0597	737.9223
593.9463	639.8832
421.3338	464.7818
436.6633	442.536
427.0238	439.1622
646.3008	706.4119
371.2016	462.4969
659.7856	686.3576
295.0902	363.3815

...
...
...

因为是新手，很多东西不熟，所以请高手提供完整的做该图的R语言script，请从read.table("test.txt")开始。
非常感谢！！

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：求高手 散点图 script score Green 高手 附件

plot( )
points

谁给个详细点的帮助呢？谢啊！
1# qcshare

这么小得点，而且分辨率这么高，还真不知道怎么实现

这个不难，但是点没法变小。

1. dat <- read.table("test.txt", header = TRUE)
   
2. plot(1, 1, main = "Test", xaxs = "i", yaxs = "i", xlab = "A Score", ylab = "B Score", xlim = c(0, 1000), ylim = c(0, 1000), type = "n")
   
3. abline(h = 400)
   
4. abline(h = 600)
   
5. abline(v = 400)
   
6. abline(v = 600)
   
7. abline(0, 1, lty = 2)
   
8. red1 <- (dat$x >= 600) & (dat$y >= 600)
   
9. green1 <- (dat$x <= 400) & (dat$y <= 400)
   
10. black1 <- !(red1 | green1)
    
11. dat.green <- dat[green1, ]
    
12. dat.red <- dat[red1, ]
    
13. dat.black <- dat[black1, ]
    
14. points(dat.green, pch = 16, cex = 0.01, col = "green")
    
15. points(dat.red, pch = 16, cex = 0.01, col = "red")
    
16. points(dat.black, pch = 16, cex = 0.01, col = "black")

复制代码

楼上的对R编程很了解哦。向各位学习。

6# qoiqpwqr

很好，很强大!