ggplot2制作宣传页

相似文件 换一批

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

1. #加载所需R包
   
2. library(ggplot2)
   
3. library(RColorBrewer)
   
4. 
   
5. #数据准备
   
6. cols=brewer.pal(6,'Accent')
   
7. t = seq(0, 12*pi, length.out = 6000)
   
8. dd=data.frame(x=sin(t)*(exp(cos(t)) - 2*cos(4*t) - sin(t/12)^5),
   
9.               y=cos(t)*(exp(cos(t)) - 2*cos(4*t) - sin(t/12)^5),
   
10.               group=as.factor(rep(1:6,rep(1000,6))))
    
11. 
    
12. #设置系统字体
    
13. Sys.setlocale("LC_ALL", "Chinese")
    
14. windowsFonts(myFont = windowsFont("楷体"))
    
15. 
    
16. #绘制蝴蝶图
    
17. p=ggplot(dd, aes(x, y))+
    
18.   geom_path(aes(colour=group))+
    
19.   xlim(-5,3.3)+ylim(-6,3.3)+
    
20.   scale_colour_brewer(palette = "Accent")+
    
21.   theme(axis.title =element_blank(),
    
22.         axis.text = element_blank(),
    
23.         axis.ticks = element_blank(),
    
24.         panel.grid.major = element_line(colour = "black"),
    
25.         panel.grid.minor = element_blank(),
    
26.         panel.background = element_rect(fill='black'),
    
27.         plot.background= element_rect(fill='black'),
    
28.         panel.border = element_rect(linetype = "dashed", colour ='black',fill=NA),
    
29.         legend.position="none")
    
30. 
    
31. #添加宣传标题
    
32. p1=p+annotate("text", x = rep(-4.5,3), y = seq(2,-4,length.out = 3),
    
33.               label = c('开','讲','啦'),
    
34.               color = "gray70",
    
35.               size=12,alpha=0.8,family="myFont",fontface="bold")
    
36. 
    
37. #添加课程内容，使用仿宋
    
38. #注意下面的代码中有一个空行，这里和ctex语法类似表示另起一段.
    
39. windowsFonts(myFont1 = windowsFont("仿宋"))
    
40. p2=p1+annotate("text", x = 0, y = -4,
    
41.                label = "从2017-7-25起, xx公众号将推出\n微课|xxx绘图系列, 课程免费, 每周一周三更新.\n
    
42.                欢迎大家关注公众号.xx大数据\n点击学习园地——可视化进行学习.",
    
43.                color = "gold",
    
44.                size=4,family="myFont1",fontface="bold")
    
45. 
    
46. #保存图片
    
47. p2+ggsave("plot.png", width = 5, height = 5)

复制代码

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

厉害，请问你是什么公众号，如何关注你

jokese 发表于 2019-4-10 06:32
厉害，请问你是什么公众号，如何关注你

数萃大数据

非常不错，点赞！

可以欸~
我试着跑了一下，真的出来了