求高手: 用R语言绘图函数

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

谢谢大神已解决

扫码加我 拉你入群

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

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

分享0 收藏3 回帖

关键词：R语言 求高手 已解决

　这里的大神呢？：　

　　自己顶

目前我只能做成这样了，你参考下吧

1. library(VennDiagram)
   
2. foo <- c('a','b','c','d')
   
3. baa <- c('a','e','c','g')
   
4. dbb <- c('a','b','e','m')
   
5. v <- venn.diagram(list(foo=foo, baa=baa, dbb =dbb),
   
6.                   main = "学科图",
   
7.                   fill = c("orange", "blue",'green'),
   
8.                   lty = "blank",
   
9.                   cex =.5,
   
10.                   alpha = c(0.5, 0.5, 0.5), cat.cex = 1.5, cex=1.5,
    
11.                   filename=NULL)
    
12. #lapply(v,  names)
    
13. #lapply(v, function(i) i$label)
    
14. v[[7]]$label  <- '计算机科学'
    
15. v[[8]]$label <- '机器学习'
    
16. v[[9]]$label <- '统计学'
    
17. v[[10]]$label <-  '商业智能'
    
18. v[[11]]$label <- '数据科学'
    
19. v[[12]]$label <- '传统数据分析'
    
20. v[[13]]$label <- '邻域知识'
    
21. v[[14]]$label <-        ' '
    
22. v[[15]]$label <-        ' '
    
23. v[[16]]$label <-        ' '
    
24. # plot  
    
25. grid.newpage()
    
26. grid.draw(v)

复制代码

zhou1_20 发表于 2016-10-27 20:29
目前我只能做成这样了，你参考下吧

好的,非常感谢,我尽力还原一模一样,

zhou1_20 发表于 2016-10-27 20:29
目前我只能做成这样了，你参考下吧

我整的这个不知道怎么出现带数轴的边框,  不知道是不是要加上box()
已解决了!

zhou1_20 发表于 2016-10-27 20:29
目前我只能做成这样了，你参考下吧

box()数轴边框放大,,  谢谢, 已经解决了
,

zhou1_20 发表于 2016-10-27 20:29
目前我只能做成这样了，你参考下吧

谢谢你,已经完美解决了

已解决

你看这样行吗

1. circle = function (x, y, radius, nv = 100)
   
2. {
   
3.     angle.inc <- 2 * pi/nv
   
4.     angles <- seq(0, 2 * pi, by = angle.inc)
   
5.     xv <- cos(angles)*radius + x
   
6.     yv <- sin(angles)*radius + y
   
7.     data.frame(x = xv, y = yv)
   
8. }
   
9. 
   
10. c1 = circle(2.5,5,1)
    
11. c2 = circle(3.5,5,1)
    
12. c3 = circle(3,4.1,1)
    
13. 
    
14. c1$id = 'c1'
    
15. c2$id = 'c2'
    
16. c3$id = 'c3'
    
17. 
    
18. c = rbind(rbind(c1,c2),c3)
    
19. c$id = as.factor(c$id)
    
20. 
    
21. lab  = data.frame(x = c(2, 3, 3.6, 2.3, 3, 3.5, 3),
    
22.                   y = c(5.4, 5.4, 5.4, 4.3, 4.6, 4.3, 3.7),
    
23.                   name= c('计算机科学', '机器学习', '统计学',
    
24.                           '商业智能', '数据科学', '传统数据分析',
    
25.                           '邻域知识'))
    
26. 
    
27. library(ggplot2)
    
28. 
    
29. ggplot(c, aes(x,y,group=id))+
    
30.   geom_polygon(aes(fill = id),alpha = .4)+
    
31.   geom_path(colour = 'red')+
    
32.   annotate('text',x=2,y=5.1,label='计算机科学')+
    
33.   annotate('text',x=3,y=5.4,label='机器学习')+
    
34.   annotate('text',x=3.9,y=5.1,label='统计学')+
    
35.   annotate('text',x=2.3,y=4.3,label='商业智能')+
    
36.   annotate('text',x=3,y=4.6,label='数据科学')+
    
37.   annotate('text',x=3.6,y=4.3,label='传统数据\n分析')+
    
38.   annotate('text',x=3,y=3.7,label='邻域知识')+
    
39.   theme(
    
40.     panel.grid = element_blank(),
    
41.     panel.background = element_blank(),
    
42.     panel.border = element_rect(colour = 'black',fill=NA),
    
43.     legend.position = 'none'
    
44.   )+
    
45.   xlab(' ')+
    
46.   ylab(' ')+
    
47.   ggtitle('学科图')+
    
48.   theme(plot.title = element_text(size = rel(2), face = 'bold'))+
    
49.   scale_fill_manual(values = c('red', 'green','blue'))
    
50.   

复制代码