对于此图，我想将图例拆分为 2 个单独的图例。一种将脉冲湿地显示为圆形，阴影对应于湿地编号，另一种将静态湿地显示为三角形，灰色阴影对应于湿地编号。然后水文传说就没有必要了，我想摆脱它。
这是我希望图例看起来的样子（但当然更小。这是在 PowerPoint 中完成的，只是为了演示）。
我正在粘贴下面的数据和代码。
数据
日期水文湿地温度层 1 15-Jun 脉冲一个 21.9 表面 2 15-Jun 脉冲一个 21.0 底部 3 7 月 1 日脉冲一个 28.8 表面 4 7 月 1 日脉冲一个 23.5 底部 5 7 月 10 日脉冲一个 31.8 表面 6 7 月 10 日脉冲一个 22.6 底部 7 7 月 14 日脉冲一个 23.0 表面 8 7 月 14 日脉冲一个 21.4 底部 9 8 月 15 日脉冲一个 28.8 表面 10 8 月 15 日脉冲一个 28.5 底部 11 11 月 7 日脉冲一个 12.1 表面 12 11 月 7 日脉冲一个 9.9 底部 13 15-6月 静二 22.2面 14 15-6月 静二 21.2 底部 15 1-7月 静态二 29.0面 16 7 月 1 日静态二 24.1 底部 17 7月10日 静二 30.9面 18 7 月 10 日静态二 23.3 底部 19 7月14日 静二 25.2面 20 7 月 14 日 静态 二 22.6 底部 21 1-Aug 静态二 27.3 表面 22 1-8 月静态 2 23.5 底部 23 8 月 15 日静态 2 26.7 表面 24 8 月 15 日静态两个 23.6 底部 25 7-11月静态二 11.9面 26 7-11月静态二 9.0底部 27 15-Jun 脉冲三 21.3 表面 28 15-6月 脉冲三 20.9 底部 29 7 月 1 日脉冲三 26.1 表面 30 7 月 1 日脉冲三 23.8 底部 31 7 月 10 日脉冲三 30.1 表面 32 7 月 10 日脉冲三 22.8 底部 33 7 月 14 日脉冲三 23.7 表面 34 7 月 14 日脉冲三 22.2 底部 35 11 月 7 日脉冲三 12.5 表面 36 11 月 7 日脉冲三个 10.0 底部 37 15-6月 静四21.0面 38 15-6月静四19.3底 39 7 月 1 日静态四 25.0 面 40 1-7 月静态四 21.2 底部 41 7 月 10 日静态四 25.7 表面 42 7 月 10 日静态四 21.3 底部 43 7月14日静四22.5面 44 7 月 14 日静态四 20.8 底部 45 1-8 月静态四 24.1 表面 46 1-8 月静态四 22.8 底部 47 8 月 15 日静态四 25.1 表面 48 8 月 15 日静态四 22.2 底部 49 7-11月静态四12.2面 50 7-11月静态四 9.1底部 51 15-6月静五19.7面 52 15-6月静五19.2底部 53 1-7月静态五 24.1 表面 54 7 月 1 日静态五 22.9 底部 55 7 月 10 日静态五 24.6 表面 56 7 月 10 日静态五 21.7 底部 57 7月14日静五21.3面 58 7 月 14 日静态五 23.0 底部 59 1-Aug 静态五 23.8 表面 60 1-8 月静态五 22.0 底部 61 8 月 15 日静态五 24.8 表面 62 8 月 15 日静态五 23.1 底部 63 7-11月静态五11.7面 64 7-11月静态五8.8底部 65 15-Jun 脉冲六 21.2 面 66 15-Jun 脉冲六 20.4 底部 67 7 月 1 日脉冲六 24.9 表面 68 7 月 1 日脉冲六 22.5 底部 69 7 月 10 日脉冲六 28.6 表面 70 7 月 10 日脉冲六 22.0 底部 71 7 月 14 日脉冲六 21.9 表面 72 7 月 14 日脉冲六 21.4 底部 73 8 月 15 日脉冲六 27.5 表面 74 8 月 15 日脉冲六 26.1 底部 75 11 月 7 日脉冲六 13.3 表面 76 11 月 7 日脉冲六 9.5 底部 77 15-Jun 脉冲七 19.7 表面 78 15-6月 脉冲七 18.7 底部 79 7 月 1 日脉冲七 23.0 表面 80 7 月 1 日脉冲七 20.8 底部 81 7 月 10 日脉冲七 24.7 表面 82 7 月 10 日脉冲七 22.2 底部 83 7 月 14 日脉冲七 21.3 表面 84 7 月 14 日脉冲七 20.6 底部 85 8 月 15 日脉冲七 26.2 表面 86 8 月 15 日脉冲七 24.7 底部 87 11 月 7 日脉冲七 12.0 表面 88 11 月 7 日脉冲七 10.5 底部 89 15-6月 静八 20.6面 90 15-6月 静八 19.5 底部 91 1-7月静八 28.1 表面 92 7 月 1 日静态八 22.5 底部 93 7月10日 静八 28.8 面 94 7 月 10 日静态八 23.1 底部 95 7月14日 静八 24.7 面 96 7 月 14 日静态八 21.9 底部 97 8 月 1 日静态八 25.0 表面 98 8 月 1 日静态八 22.0 底部 99 8月15日静八27.6面 100 8 月 15 日静态 8 25.3 底部 101 7-11月静八 12.1面 102 11 月 7 日静态八 10.3 底部 103 15-6月 静九 20.7面 104 15-6月静九19.8底 105 1-7月静九 24.8面 106 1-7月静九 22.7底部 107 10-7月静九 28.3面 108 10-7月 静九 22.8 底部 109 14-7月静九 23.9面 110 14-7月静九 22.0底部 111 1-8月静九 27.7面 112 1-Aug 静九 24.5 底部 113 15-8月静九 25.8面 114 8 月 15 日静态九 23.4 底部 115 7-11月静九 11.9面 116 7-11月静九9.5底 117 15-Jun 脉冲十 22.3 表面 118 15-Jun 脉冲十 21.9 底部 119 1-7 月脉冲十 29.6 表面 120 1-7 月脉冲十 28.2 底部 121 7 月 10 日脉冲十 33.0 表面 122 7 月 10 日脉冲十 30.4 底部 123 7 月 14 日脉冲十 25.6 表面 124 7 月 14 日脉冲十 24.1 底部 125 11 月 7 日脉冲十 13.2 表面 126 11 月 7 日脉冲十 10.1 底部
代码
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)
谢谢，
-莎拉
