start = as_date(c("2018-07-01", "2020-01-01","2020-03-29", "2021-04-01"))
end = as_date(c("2018-07-07", "2020-01-07","2020-04-05", "2021-04-07"))
name = c("Bonus Malus", "WLTP", "Corona", "Höjd Malus")
weightedmonth <- ggplot(data = sum)+
geom_col(
mapping = aes(
x = mon,
y = weightedmean),
fill = "NA",
width = 0)+
geom_line(
mapping = aes(
x = mon,
y = weightedmean),
size =1)+
geom_rect(aes(xmin = start,
xmax = end,
ymin = 1, ymax = 200,
fill = name),
data = events,
show.legend = F) +
geom_text(aes(x = start,
y = 200,
label = name,
angle = 90),
data = events)
weightedmonth +ylim(50,300)
structure(list(mon = structure(c(15248, 15279, 15309, 15340,
15371, 15400, 15431, 15461, 15492, 15522, 15553, 15584, 15614,
15645, 15675, 15706, 15737, 15765, 15796, 15826, 15857, 15887,
15918, 15949, 15979, 16010, 16040, 16071, 16102, 16130, 16161,
16191, 16222, 16252, 16283, 16314, 16344, 16375, 16405, 16436,
16467, 16495, 16526, 16556, 16587, 16617, 16648, 16679, 16709,
16740, 16770, 16801, 16832, 16861, 16892, 16922, 16953, 16983,
17014, 17045, 17075, 17106, 17136, 17167, 17198, 17226, 17257,
17287, 17318, 17348, 17379, 17410, 17440, 17471, 17501, 17532,
17563, 17591, 17622, 17652, 17683, 17713, 17744, 17775, 17805,
17836, 17866, 17897, 17928, 17956, 17987, 18017, 18048, 18078,
18109, 18140, 18170, 18201, 18231, 18262, 18293, 18322, 18353,
18383, 18414, 18444, 18475, 18506, 18536, 18567, 18597, 18628,
18659, 18687, 18718, 18779, 18809, 18840, 18871, 18901, 18932,
18962, 18993, 19024), class = "Date"), weightedmean = c(100,
99.2423134414479, 98.3162838463254, 99.252112863364, 99.5180176702187,
100.265674724215, 99.5525612633625, 102.407857383055, 104.046093697699,
104.66047258202, 102.598193136023, 100.89554908301, 99.0737210660954,
99.7234343618667, 100.236457519604, 101.235313994651, 108.011771697815,
103.236771660583, 100.555880183775, 102.252606349836, 103.310819805765,
103.273309437187, 101.467328426967, 101.590038465991, 103.733754890145,
101.758699313206, 103.736957095661, 102.831338674159, 102.107090830357,
103.858323214723, 102.992560502432, 101.362633485982, 101.431405853365,
102.202327327611, 101.864204912544, 102.990800776382, 104.127963341819,
104.947474998033, 105.126505109219, 104.291559527613, 107.481918483106,
105.798025483102, 105.107722734023, 105.064767767392, 104.387176775546,
101.68381801207, 102.910984756401, 102.663284891351, 102.710740535808,
102.045790880458, 103.3525070335, 103.422952595365, 103.77251140577,
102.109216613406, 103.494197806984, 105.225756237521, 106.177860726304,
107.005917514352, 105.145538107452, 105.634822011824, 106.190723716057,
106.178329381594, 100.154617659433, 102.970986917297, 103.897636611613,
102.673533333473, 104.687709579375, 105.042104266581, 105.39060714005,
106.725355476153, 104.931321526247, 105.242561881912, 105.55639736534,
105.521151160823, 106.316235703397, 108.28397755938, 106.785912490329,
106.253597258379, 106.950244960296, 105.576827797675, 102.79860029215,
102.056101093817, 106.881141897409, 101.164750257887, 103.98014687603,
105.377824820397, 104.465670462291, 107.413434331653, 108.413837193392,
109.325721704088, 110.026216113471, 108.721791672861, 106.605098040895,
110.994881506019, 110.622265127032, 114.737031043255, 111.35641331701,
110.277652749156, 112.30506090765, 113.098391088588, 111.716085146746,
112.246608039447, 110.601254989196, 116.237596880005, 110.052883652355,
113.216036897086, 111.588134564165, 110.202745017972, 113.666813981058,
112.60292327424, 117.435793934056, 116.597884503039, 117.240640510848,
114.732062770459, 115.453828331953, 112.537171569202, 109.123726160378,
108.631626040805, 110.773122832586, 113.845273630606, 118.408061884194,
118.610968738796, 119.173005520999, 118.481490078228)), class = c("tbl_df",
"tbl", "data.frame"), row.names = c(NA, -124L))
Warning messages:
1: Removed 124 rows containing missing values (geom_col).
2: Removed 4 rows containing missing values (geom_rect).
The warning from geom_col I dont care about, but why wont geom_rect work?