利用ggplot2包做了一副以复杂为目的的图，大伙继续

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

1. library(tidyverse)
   
2. library(gcookbook)
   
3. 
   
4. heightweight %>%
   
5.   mutate(sex=factor(sex,levels = c("m","f"),
   
6.                     labels = c("Male","Famale"))) %>%
   
7.   ggplot(aes(ageYear,heightIn,color=sex, shape=sex))+
   
8.     geom_point()+
   
9.     geom_smooth(method = "lm")+
   
10.     scale_color_manual(values = c("darkred", "darkblue"),
    
11.                      labels = c("Male", "Famale"))+
    
12.     scale_shape_manual(values = c(21,24),
    
13.                        labels = c("Male", "Famale"))->p
    
14. 
    
15. p +
    
16.   ggtitle("Plot title here")+
    
17.   theme(
    
18.   # 绘图区域选项
    
19.     panel.grid.major = element_line(color="wheat3"),
    
20.     panel.grid.minor = element_line(color="red",linetype = "dashed",size=0.2),
    
21.     panel.background = element_rect(fill="honeydew"),
    
22.     panel.border = element_rect(color = "blue",size=1,fill=NA))+
    
23.   
    
24.   # 坐标轴及标题文本项目选项
    
25.   theme(
    
26.     axis.title.x=element_text(color="mediumpurple",size=14,face = "bold"),
    
27.     axis.title.y=element_text(color="#FFDDAA",size=14,angle=90,face = "bold.italic"),
    
28.     axis.text.x=element_text(color="khaki4",size=12),
    
29.     axis.text.y=element_text(color="blue"),
    
30.     axis.line = element_line(size = 4,color="black",lineend = "square"),
    
31.     plot.title=element_text(color="darkred", face = "bold",
    
32.                             size=20, hjust = 0, angle=180))+
    
33.   
    
34.   # 图例选项
    
35.   theme(
    
36.     legend.position = c(0,1),
    
37.     legend.justification = c(0,1),
    
38.     legend.background = element_rect(fill="grey85",color="magenta3",size=1),
    
39.     legend.title = element_text(color = "blue",face="bold",size=14),
    
40.     legend.text = element_text(color="yellow"),
    
41.     legend.key = element_rect(color="green",size=0.25)) +
    
42.   
    
43.   
    
44.   # 修改刻度标签的文本
    
45.   scale_y_continuous(breaks = c(50,56,60,66,72),
    
46.                      labels = c("Tiny",
    
47.                                 "Really\nshort",
    
48.                                 "Short","Medium",
    
49.                                 "Tallish"))+
    
50.   
    
51.   # 添加矩形阴影区域
    
52.   annotate("rect",
    
53.            xmin = 13.5, xmax = 14.5,
    
54.            ymin = 50, ymax = 72,
    
55.            alpha=0.1,fill="red")+
    
56.   
    
57.   # 添加带有箭头的线段
    
58.   annotate("segment",x=13,xend=15,y=50,yend=55,
    
59.            size=2,color="green",
    
60.            arrow=arrow(angle = 60))+
    
61.   
    
62.   # 添加地毯
    
63.   geom_rug(sides = "b")+
    
64.   
    
65.   # 分面选项
    
66.   facet_grid(sex ~ .)+
    
67.   theme(
    
68.     strip.background = element_rect(fill="lightblue",color="turquoise4",size=0.8),
    
69.     strip.text.y = element_text(size=14,angle = 90,face="bold",color="white"))
    
70.   

复制代码

扫码加我 拉你入群

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

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

分享0 收藏1 回帖

关键词：ggplot2 gplot plot GPL Background

学习了

屋檐滴语 发表于 2018-7-5 02:35

thanks a lot

好看不是目的，配色都是随便找的颜色，主要是学习系统的学习下ggplot2，将来好随心所欲的根据自己需要作图。

厉害..............

哇感谢！！！我好像也有写类似的东西，看看能不能在这里重复！！！

1. library(ggplot2)
   
2. library(showtext)
   
3. df <- data.frame(x=1:3,y=1:3,text=letters[2:4], face = c("plain", "bold", "italic"))
   
4. GeneName <- "KIF2C"
   
5. font.add("STXINGKA", "STXINGKA.TTF")
   
6. font.add("STHUPO","STHUPO.TTF")
   
7. showtext.auto()
   
8. pdf("example.pdf", 7, 4)  ## PDF device
   
9. ggplot(df,aes(x,y,color=text)) + geom_text(aes(label=text,fontface=face),size=10) +
   
10.   labs(x = bquote(.(GeneName)~a^-10~bold(a^bold("-10"))~log[2](frac(FC,cd))~~~mu[3]%*%phi),
    
11.        y = expression(bold("-"*log[bold("-10")]~~~-log[10])),
    
12.        color = expression("Temperature (" * degree * C *")"*"\u2030")) + ### Unicode for Per Mille Sign is U+2030
    
13.   theme(axis.title.x=element_text(size=20),
    
14.         axis.title.y=element_text(size=20)) +
    
15.   scale_color_manual(labels=c("b for \n bad",expression("c for"~chi),"d for 狗"),
    
16.                      values = c("blue","red","green")) +
    
17.   annotate("text",x=2.5,y=0.5,label="这是华文琥珀",family="STHUPO") +
    
18.   annotate("text",x=0,y=2.5,label="这是行楷\n真的不骗你，输出pdf你就知道了",family="STXINGKA",hjust="inward",vjust="inward") +
    
19.   annotate("text",x=0,y=0.1,label='"P = 5.73 x"~10^-9',hjust="inward",vjust="inward",parse = T)  # can`t use \n and expression
    
20. dev.off()
    
21. showtext.auto(FALSE)

复制代码

可能注释做的不太好，因为其中用到了一些文本引用，表达式，对表达式的某部分加粗，使用不同字体，使用特殊符号，写在一起了。至于还没弄明白的有：Rstudio中显示与pdf输出结果不一致，主要表现为字体（例如小写的g，以及某些加粗），Rstudio的导出pdf功能也跟代码输出pdf不一样（例如缺少的字体会完全不显示）。共同学习，如果有懂的还请多多指教

zerofung 发表于 2018-7-5 10:27
可能注释做的不太好，因为其中用到了一些文本引用，表达式，对表达式的某部分加粗，使用不同字体，使用 ...

我那个图确实是少了回归方程。另外还可以在加一条均线。
至于你做的图，在Rstudio里显示的和保存的效果不一样，在R notebook里试试，谢益辉貌似解决了这个问题。