r语言画大白，重复线条部分还请大神操刀

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

1. library(plotrix)
   
2. plot(seq(-20,20,by=2),seq(-20,20,by=2),type="n",xlab="",ylab="",main="my baymax")
   
3. draw.circle(0,0,5,border='black')
   
4. draw.ellipse(0,6,3.5,6, angle = 0,border='black')
   
5. draw.ellipse(0,12,1.5,2, angle = 0,border='black')            
   
6. draw.ellipse(-4.5,2,1.5,sqrt(36+(6*tan(pi/9))*2), angle =-20,border='black')           
   
7. draw.ellipse(4.5,2,1.5,sqrt(36+(6*tan(pi/9))*2), angle =20,border='black')              
   
8. draw.ellipse(-6.7,-4,0.3,0.9,angle =10,border='black')
   
9. draw.ellipse(6.7,-4,0.3,0.9,angle =-10,border='black')
   
10. draw.ellipse(-6.35,-4,0.2,0.4,border='black')
    
11. draw.ellipse(6.35,-4,0.2,0.4,border='black')
    
12. draw.ellipse(-1.5,-8,1,4,angle =7,border='black')
    
13. draw.ellipse(1.5,-8,1,4,angle =-7,border='black')
    
14. points(-0.45,12.5,pch=16,cex=0.5,col='black')
    
15. points(0.45,12.5,pch=16,cex=0.5,col='black')
    
16. ablineclip(h=12.5, x1 = -0.25,x2 = 0.25,lty = 3, col = "black")

复制代码

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：R语言 ellipse Library border Points library border black angle

哈哈，有意思！

哈哈，丑萌丑萌的