R 修改分面打印ggplot2中的图例
对于此图,我想将图例拆分为两个单独的图例。一个将脉冲湿地显示为圆形,阴影对应于湿地编号,另一个将静态湿地显示为三角形,阴影对应于湿地编号。那么水文传说就没有必要了,我想把它去掉 下面是我想要的图例(但当然要小一些。这是在PowerPoint中完成的,只是为了演示) 我正在粘贴下面的数据和代码 资料 日期水文湿地温度层 2015年6月1日,一个21.9表面 2月15日,一个21.0底部 3 7月1日脉冲一个28.8表面 4 7月1日脉动一个23.5底部 7月5日至10日,一个31.8表面出现脉冲 7月6日至10日,一个22.6底部出现脉冲 7月14日脉冲一个23.0表面 7月8日至14日,一个21.4的底部出现脉冲 9月15日一个28.8的表面 8月10日至15日为28.5底部 11 7-11月12.1号表面 11月12日至7日,一个9.9的底部出现脉冲 2013年6月15日静态两个22.2表面 2014年6月15日静态两个21.2底部 15 1-7月静态两个29.0表面 16 7月1日静态两个24.1底部 2017年7月10日静态两个30.9表面 7月18日10日静态两个23.3底部 7月19日至14日静态两个25.2表面 2014年7月20日静态二22.6底部 21 1-8月静态两个27.3表面 22 1-8月静态2 23.5底部 8月23日15日静态两个26.7表面 8月24日至15日静态两个23.6底部 25 7-11月静态两个11.9表面 26 11月7日静态两个9.0底部 6月27日至15日,三个21.3表面 6月28日15日三个20.9底部 29年7月1日脉冲三次26.1表面 30 7月1日脉冲三次23.8底部 7月31日至10日,三个30.1表面发生脉冲 7月32日至10日,三个22.8底部出现脉冲 7月33日至14日,三次23.7级表面脉冲 7月34日至14日三个22.2底部脉冲 35 7-11月脉冲三个12.5表面 36 7-11月底脉冲三次10.0 37 6月15日静态四21.0表面 38 6月15日静态4 19.3底部 39 7月1日静态四25.0表面 40 7月1日静态四个21.2底部 41 2010年7月10日静态四25.7表面 7月10日42静态4 21.3底部 43 7月14日静止四点22.5表面 44 7月14日静态4 20.8底部 45 1-8月静态四24.1表面 46 1-8月静态4 22.8底部 47.15八月静态四25.1表面 48 8月15日静态4 22.2底部 49 7-11月静态四12.2表面 50 7-11月静态四个9.1底部 51 6月15日静态5 19.7表面 52 6月15日静态5 19.2底部 53 7月1日静态5 24.1表面 54 7月1日静态5 22.9底部 55年7月10日静态5 24.6表面 56 7月10日静态5 21.7底部 57 7月14日静态5 21.3表面 58 7月14日静态5 23.0底部 59 1-8月静态5 23.8表面 60 1-8月静态5 22.0底部 61 15 8月15日静态5 24.8表面 62 8月15日静态5 23.1底部 63 7-11月静态5 11.7表面 64 7-11月静态五个8.8底部 65.15 Jun脉冲6 21.2表面 66 6月15日6月20.4日底部 67 7月1日脉冲6 24.9表面 68 7月1日脉冲6 22.5底部 69 7月10日脉冲6 28.6表面 7月70日10日6点22.0触底 71 7月14日脉冲6 21.9表面 7月14日7月72日6点21.4底部 73.15.6 27.5表面 74月15日6月26.1日底部 75 7-11月脉冲六面13.3 76年11月7日脉冲6 9.5底部 77 15 6月7日19.7表面 78月15日7月18.7日底部 79 7月1日脉冲7 23.0表面 80 7月1日脉冲7 20.8底部 81 7月10日脉冲7 24.7表面 82 7月10日7月22.2日底部 83 7月14日7月21.3日表面脉冲 7月84日14日7月20.6日底部 85.15.26.2表面 86月15日7月24.7日底部 87 7-11月脉冲七12.0表面 88月7日至11月7日,底部为10.5 89 6月15日静态8 20.6表面 90 6月15日静态8 19.5底部 91 7月1日静态8 28.1表面 92 7月1日静态8 22.5底部 93 7月10日静态8 28.8表面 94年7月10日静态8 23.1底部 1995年7月14日静态8 24.7表面 96 7月14日静态8 21.9底部 97 1-8月静态8 25.0表面 98 1-8月静态8 22.0底部 99年8月15日静态8 27.6表面 8月15日100静态8 25.3底部 101 7-11月静态8 12.1表面 102 7-11月静态8 10.3底部 103 6月15日静态9 20.7表面 104 6月15日静态9 19.8底部 105年7月1日静态9 24.8表面 106 7月1日静态9 22.7底部 107 7月10日静态9 28.3表面 108 7月10日静态9 22.8底部 109 7月14日静态9 23.9表面 110 7月14日静态9 22.0底部 111 1-27.7表面 112 1-8月静态9 24.5底部 113 8月15日静态9 25.8表面 114 8月15日静态9 23.4底部 115 7-11月静态9 11.9表面 116 11月7日静态9.5底部 117年6月15日脉冲10 22.3表面 118年6月15日10日21.9底部 119 7月1日至29.6日表面脉冲 120 7月1日脉冲10 28.2底部 121 7月10日脉冲Ten 33.0表面 122 7月10日10点30.4底部 123 7月14日脉冲10 25.6表面 124 7月14日10点24.1触底 125 7-11月脉冲10 13.2表面 126 7-11月10日10.1底部 代码R 修改分面打印ggplot2中的图例,r,ggplot2,R,Ggplot2,对于此图,我想将图例拆分为两个单独的图例。一个将脉冲湿地显示为圆形,阴影对应于湿地编号,另一个将静态湿地显示为三角形,阴影对应于湿地编号。那么水文传说就没有必要了,我想把它去掉 下面是我想要的图例(但当然要小一些。这是在PowerPoint中完成的,只是为了演示) 我正在粘贴下面的数据和代码 资料 日期水文湿地温度层 2015年6月1日,一个21.9表面 2月15日,一个21.0底部 3 7月1日脉冲一个28.8表面 4 7月1日脉动一个23.5底部 7月5日至10日,一个31.8表面出现脉
colvec这是一个受thi启发的解决方案
Date Hydrology Wetland Temp Layer
1 15-Jun Pulsed One 21.9 Surface
2 15-Jun Pulsed One 21.0 Bottom
3 1-Jul Pulsed One 28.8 Surface
4 1-Jul Pulsed One 23.5 Bottom
5 10-Jul Pulsed One 31.8 Surface
6 10-Jul Pulsed One 22.6 Bottom
7 14-Jul Pulsed One 23.0 Surface
8 14-Jul Pulsed One 21.4 Bottom
9 15-Aug Pulsed One 28.8 Surface
10 15-Aug Pulsed One 28.5 Bottom
11 7-Nov Pulsed One 12.1 Surface
12 7-Nov Pulsed One 9.9 Bottom
13 15-Jun Static Two 22.2 Surface
14 15-Jun Static Two 21.2 Bottom
15 1-Jul Static Two 29.0 Surface
16 1-Jul Static Two 24.1 Bottom
17 10-Jul Static Two 30.9 Surface
18 10-Jul Static Two 23.3 Bottom
19 14-Jul Static Two 25.2 Surface
20 14-Jul Static Two 22.6 Bottom
21 1-Aug Static Two 27.3 Surface
22 1-Aug Static Two 23.5 Bottom
23 15-Aug Static Two 26.7 Surface
24 15-Aug Static Two 23.6 Bottom
25 7-Nov Static Two 11.9 Surface
26 7-Nov Static Two 9.0 Bottom
27 15-Jun Pulsed Three 21.3 Surface
28 15-Jun Pulsed Three 20.9 Bottom
29 1-Jul Pulsed Three 26.1 Surface
30 1-Jul Pulsed Three 23.8 Bottom
31 10-Jul Pulsed Three 30.1 Surface
32 10-Jul Pulsed Three 22.8 Bottom
33 14-Jul Pulsed Three 23.7 Surface
34 14-Jul Pulsed Three 22.2 Bottom
35 7-Nov Pulsed Three 12.5 Surface
36 7-Nov Pulsed Three 10.0 Bottom
37 15-Jun Static Four 21.0 Surface
38 15-Jun Static Four 19.3 Bottom
39 1-Jul Static Four 25.0 Surface
40 1-Jul Static Four 21.2 Bottom
41 10-Jul Static Four 25.7 Surface
42 10-Jul Static Four 21.3 Bottom
43 14-Jul Static Four 22.5 Surface
44 14-Jul Static Four 20.8 Bottom
45 1-Aug Static Four 24.1 Surface
46 1-Aug Static Four 22.8 Bottom
47 15-Aug Static Four 25.1 Surface
48 15-Aug Static Four 22.2 Bottom
49 7-Nov Static Four 12.2 Surface
50 7-Nov Static Four 9.1 Bottom
51 15-Jun Static Five 19.7 Surface
52 15-Jun Static Five 19.2 Bottom
53 1-Jul Static Five 24.1 Surface
54 1-Jul Static Five 22.9 Bottom
55 10-Jul Static Five 24.6 Surface
56 10-Jul Static Five 21.7 Bottom
57 14-Jul Static Five 21.3 Surface
58 14-Jul Static Five 23.0 Bottom
59 1-Aug Static Five 23.8 Surface
60 1-Aug Static Five 22.0 Bottom
61 15-Aug Static Five 24.8 Surface
62 15-Aug Static Five 23.1 Bottom
63 7-Nov Static Five 11.7 Surface
64 7-Nov Static Five 8.8 Bottom
65 15-Jun Pulsed Six 21.2 Surface
66 15-Jun Pulsed Six 20.4 Bottom
67 1-Jul Pulsed Six 24.9 Surface
68 1-Jul Pulsed Six 22.5 Bottom
69 10-Jul Pulsed Six 28.6 Surface
70 10-Jul Pulsed Six 22.0 Bottom
71 14-Jul Pulsed Six 21.9 Surface
72 14-Jul Pulsed Six 21.4 Bottom
73 15-Aug Pulsed Six 27.5 Surface
74 15-Aug Pulsed Six 26.1 Bottom
75 7-Nov Pulsed Six 13.3 Surface
76 7-Nov Pulsed Six 9.5 Bottom
77 15-Jun Pulsed Seven 19.7 Surface
78 15-Jun Pulsed Seven 18.7 Bottom
79 1-Jul Pulsed Seven 23.0 Surface
80 1-Jul Pulsed Seven 20.8 Bottom
81 10-Jul Pulsed Seven 24.7 Surface
82 10-Jul Pulsed Seven 22.2 Bottom
83 14-Jul Pulsed Seven 21.3 Surface
84 14-Jul Pulsed Seven 20.6 Bottom
85 15-Aug Pulsed Seven 26.2 Surface
86 15-Aug Pulsed Seven 24.7 Bottom
87 7-Nov Pulsed Seven 12.0 Surface
88 7-Nov Pulsed Seven 10.5 Bottom
89 15-Jun Static Eight 20.6 Surface
90 15-Jun Static Eight 19.5 Bottom
91 1-Jul Static Eight 28.1 Surface
92 1-Jul Static Eight 22.5 Bottom
93 10-Jul Static Eight 28.8 Surface
94 10-Jul Static Eight 23.1 Bottom
95 14-Jul Static Eight 24.7 Surface
96 14-Jul Static Eight 21.9 Bottom
97 1-Aug Static Eight 25.0 Surface
98 1-Aug Static Eight 22.0 Bottom
99 15-Aug Static Eight 27.6 Surface
100 15-Aug Static Eight 25.3 Bottom
101 7-Nov Static Eight 12.1 Surface
102 7-Nov Static Eight 10.3 Bottom
103 15-Jun Static Nine 20.7 Surface
104 15-Jun Static Nine 19.8 Bottom
105 1-Jul Static Nine 24.8 Surface
106 1-Jul Static Nine 22.7 Bottom
107 10-Jul Static Nine 28.3 Surface
108 10-Jul Static Nine 22.8 Bottom
109 14-Jul Static Nine 23.9 Surface
110 14-Jul Static Nine 22.0 Bottom
111 1-Aug Static Nine 27.7 Surface
112 1-Aug Static Nine 24.5 Bottom
113 15-Aug Static Nine 25.8 Surface
114 15-Aug Static Nine 23.4 Bottom
115 7-Nov Static Nine 11.9 Surface
116 7-Nov Static Nine 9.5 Bottom
117 15-Jun Pulsed Ten 22.3 Surface
118 15-Jun Pulsed Ten 21.9 Bottom
119 1-Jul Pulsed Ten 29.6 Surface
120 1-Jul Pulsed Ten 28.2 Bottom
121 10-Jul Pulsed Ten 33.0 Surface
122 10-Jul Pulsed Ten 30.4 Bottom
123 14-Jul Pulsed Ten 25.6 Surface
124 14-Jul Pulsed Ten 24.1 Bottom
125 7-Nov Pulsed Ten 13.2 Surface
126 7-Nov Pulsed Ten 10.1 Bottom
colvec <-c("white", "white","gray80", "gray80", "gray60", "gray60", "gray37", "gray37","black", "black")
water$Layer=factor(water$Layer, c("Surface", "Bottom"))
water$Date=factor(water$Date, c("15-Jun", "1-Jul", "10-Jul", "14-Jul", "1-Aug", "15-Aug", "7-Nov"))
water$Wetland=factor(water$Wetland, c("One", "Two", "Three", "Four", "Five", "Six", "Seven", "Eight", "Nine", "Ten"))
ggplot(water, aes(Date, Temp, group=Wetland, shape=Hydrology)) +
geom_point(size =4, color = "black")+
geom_point(aes(color=Wetland),size=3) +
scale_colour_manual(values=colvec) +
facet_grid(Layer ~ Hydrology)
colvec2 <-c("white", "gray80", "gray60", "gray37", "black")
colvec <-c("white", "white","gray80", "gray80", "gray60", "gray60", "gray37", "gray37","black", "black")
p<-ggplot(water, aes(Date, Temp, group=Wetland, shape=Hydrology)) +
geom_point(aes(color=Wetland),size=3) +
scale_colour_manual(values=colvec) +
facet_grid(Layer ~ Hydrology) +
theme(legend.position="none")
p1<-ggplot(subset(water,Hydrology=="Pulsed"),
aes(Date, Temp, group=Wetland, shape=Hydrology)) +
geom_point(aes(color=Wetland),size=3,shape=16) +
scale_colour_manual("Pulsed Wetlands",values=colvec2) +
facet_grid(Layer ~ Hydrology)
p2<-ggplot(subset(water,Hydrology=="Static"),
aes(Date, Temp, group=Wetland, shape=Hydrology)) +
geom_point(aes(color=Wetland),size=3,shape=17) +
scale_colour_manual("Static Wetlands",values=colvec2) +
facet_grid(Layer ~ Hydrology)
pt1<-ggplot_gtable(ggplot_build(p1))
pt2<-ggplot_gtable(ggplot_build(p2))
leg1<-pt1$grobs[[12]]
leg2<-pt2$grobs[[12]]
library(gridExtra)
grid.arrange(arrangeGrob(p,arrangeGrob(leg1,leg2), ncol = 2,widths=c(3/4,1/4)))