names = c("Justin Bieber – Baby ft. Ludacris", "YouTube Rewind 2018")
xbaby = c(5.81590277777778, 8.69209490740741,
9.11802083333333, 9.13759259259259, 9.14086805555556, 9.63936342592593, 9.65163194444444, 9.66417824074074, 9.69325231481482, 9.73494212962963, 9.7766087962963, 9.81826388888889, 9.85996527777778, 9.90170138888889, 9.944375, 9.98494212962963,
10.0266203703704, 10.0682523148148, 10.1099884259259, 10.1515856481481, 10.1934953703704, 10.2349768518519, 10.2766203703704, 10.3182638888889, 10.3599074074074, 10.3749074074074, 10.4016203703704, 10.4433912037037, 10.4448032407407, 10.4849189814815, 10.5266319444444, 10.5683101851852, 10.6099421296296, 10.6517013888889, 10.6933333333333, 10.7349768518519, 10.7766319444444, 10.8183333333333, 10.8599421296296, 10.901724537037, 10.9433217592593, 10.985,
11.0266782407407, 11.0682523148148, 11.1099189814815, 11.139849537037, 11.1516203703704, 11.1932638888889, 11.2349074074074, 11.2765856481481, 11.318287037037, 11.3599189814815, 11.4016666666667, 11.443275462963, 11.4849074074074, 11.5266319444444, 11.5683217592593, 11.5871296296296, 11.6099768518519, 11.6516435185185, 11.6932407407407, 11.7349421296296, 11.818275462963, 11.9849074074074,
12.0265972222222, 12.0682407407407, 12.1099768518519, 12.1516087962963, 12.193287037037, 12.2349421296296, 12.2766203703704, 12.3182523148148, 12.3599189814815, 12.3682060185185, 12.4015972222222, 12.4432638888889, 12.4849189814815, 12.5266203703704, 12.5630555555556, 12.5683101851852, 12.6101157407407, 12.6516435185185, 12.6932523148148, 12.7349537037037, 12.7766203703704, 12.8182986111111, 12.8599537037037, 12.9016550925926, 12.9433101851852, 12.9848958333333,
13.0266319444444, 13.068275462963, 13.1099305555556, 13.1516319444444, 13.193287037037, 13.2349768518519, 13.2765856481481, 13.3182407407407, 13.3456597222222, 13.3599884259259, 13.4029861111111, 13.4452314814815, 13.4858449074074, 13.5278472222222)
ybaby = c(9.693077, 9.713124, 9.720787, 9.721213, 9.721269, 9.732068, 9.732334, 9.732644, 9.733394, 9.734918, 9.736446, 9.739106, 9.744284, 9.748352, 9.75146, 9.753973, 9.755631, 9.757637, 9.759458, 9.76126, 9.76286, 9.764237, 9.76535, 9.766292, 9.767241, 9.76756, 9.768169, 9.768908, 9.768928, 9.769786, 9.770867, 9.772272, 9.773767, 9.775294, 9.777171, 9.779502, 9.781442, 9.78303, 9.784379, 9.785449, 9.786555, 9.78742, 9.767546, 9.768843, 9.770133, 9.771444, 9.771965, 9.773527, 9.774877, 9.776253, 9.777303, 9.778404, 9.779516, 9.776462, 9.777602, 9.778834, 9.780504, 9.781145, 9.781977, 9.783792, 9.785763, 9.787799, 9.791882, 9.798756, 9.796544, 9.797928, 9.799513, 9.800875, 9.802074, 9.803305, 9.804447, 9.80564, 9.80661, 9.806811, 9.807486, 9.801107, 9.802176, 9.803525, 9.80509, 9.805306, 9.807057, 9.809016, 9.811067, 9.813712, 9.816438, 9.81877, 9.821197, 9.823669, 9.82584, 9.82798, 9.821687, 9.823633, 9.826027, 9.828889, 9.832435, 9.835471, 9.838304, 9.8408, 9.842452, 9.843326, 9.846137, 9.838511, 9.841371, 9.844882)
xrewind = c(6.68599537037037, 6.76471064814815, 6.78061342592593, 6.78898148148148, 6.80885416666667, 6.81530092592593, 6.84053240740741, 6.8490625, 6.86707175925926, 6.88109953703704, 6.89415509259259, 6.91986111111111, 6.93295138888889, 6.95553240740741, 6.98798611111111,
7.05358796296296, 7.09444444444444, 7.09972222222222, 7.11597222222222, 7.11916666666667, 7.13452546296296, 7.14430555555556, 7.16891203703704, 7.1937962962963, 7.19831018518519, 7.21430555555556, 7.21829861111111, 7.24261574074074, 7.26696759259259, 7.2687037037037, 7.29185185185185, 7.31130787037037, 7.31163194444444, 7.3162962962963, 7.34082175925926, 7.36528935185185, 7.38679398148148, 7.38987268518519, 7.40341435185185, 7.41636574074074, 7.43986111111111, 7.4647337962963, 7.46548611111111, 7.49023148148148, 7.49398148148148, 7.51600694444444, 7.51722222222222, 7.53868055555556, 7.54267361111111, 7.56859953703704, 7.59366898148148, 7.59443287037037, 7.61618055555556, 7.61990740740741, 7.64525462962963, 7.64851851851852, 7.67153935185185, 7.69896990740741, 7.71821759259259, 7.74359953703704, 7.76914351851852, 7.93498842592593,
8.02210648148148, 8.11277777777778, 8.13581018518519, 8.15068287037037, 8.15961805555556, 8.1925462962963, 8.38634259259259, 8.4509837962963, 8.51322916666667, 8.53039351851852, 8.58667824074074, 8.5915625, 8.61275462962963, 8.63030092592593, 8.78284722222222,
9.02753472222222, 9.11203703703704, 9.12537037037037, 9.17958333333333, 9.30719907407407, 9.30725694444445, 9.38081018518519, 9.41538194444444, 9.4703587962963, 9.60883101851852, 9.6403125, 9.65280092592593, 9.69423611111111, 9.7356712962963, 9.77248842592593, 9.77767361111111, 9.81924768518519, 9.86096064814815, 9.90288194444445, 9.94739583333333, 9.94880787037037, 9.98596064814815,
10.0121990740741, 10.0275231481481, 10.0690162037037, 10.1110648148148, 10.1494907407407, 10.1527083333333, 10.198912037037, 10.2069560185185, 10.2139236111111, 10.2359606481481, 10.2777662037037, 10.3191087962963, 10.3608912037037, 10.3918055555556, 10.4029398148148, 10.4243981481481, 10.4298148148148, 10.4482060185185, 10.4857407407407, 10.5237268518519, 10.5348611111111, 10.5696412037037, 10.6109953703704, 10.6325, 10.6528587962963, 10.6695833333333, 10.6925115740741, 10.694525462963, 10.7158449074074, 10.7361458333333, 10.775150462963, 10.7781597222222, 10.8194907407407, 10.8609375, 10.8704282407407, 10.9029166666667, 10.9443402777778, 10.9507986111111, 10.9829513888889, 10.9859837962963,
11.0276736111111, 11.0315509259259, 11.0690046296296, 11.1107986111111, 11.1281944444444, 11.1525115740741, 11.1784722222222, 11.1847337962963, 11.1939814814815, 11.207349537037, 11.2111458333333, 11.2356597222222, 11.2406828703704, 11.2715277777778, 11.2772800925926, 11.3146527777778, 11.3192361111111, 11.3606944444444, 11.3807175925926, 11.402974537037, 11.4186342592593, 11.4441087962963, 11.485625, 11.5018171296296, 11.5277430555556, 11.5693518518519, 11.6110648148148, 11.6329976851852, 11.6528472222222, 11.6940740740741, 11.7125, 11.735775462963, 11.8005787037037, 11.8612037037037, 11.9856944444444,
12.0274652777778, 12.0690277777778, 12.0937962962963, 12.1108564814815, 12.1110185185185, 12.1475115740741, 12.1561458333333, 12.1790393518519, 12.1941435185185, 12.2243171296296, 12.2441782407407, 12.2441898148148, 12.2776041666667, 12.2841550925926, 12.3190046296296, 12.331400462963, 12.355474537037, 12.3681828703704, 12.4025694444444, 12.4440972222222, 12.4857407407407, 12.5052199074074, 12.5276273148148, 12.5285648148148, 12.5692361111111, 12.6110185185185, 12.6110532407407, 12.6349305555556, 12.6528587962963, 12.6941087962963, 12.6975347222222, 12.7359259259259, 12.7476273148148, 12.7777430555556, 12.7778240740741, 12.8192939814815, 12.8266666666667, 12.8274074074074, 12.8609027777778, 12.9028240740741, 12.9443402777778, 12.9604513888889, 12.9856481481481,
13.0122685185185, 13.0275578703704, 13.0690046296296, 13.1030092592593, 13.1109490740741, 13.1526967592593, 13.1553472222222, 13.1942592592593, 13.2358680555556, 13.2680902777778, 13.2775231481482, 13.3189583333333, 13.3563541666667, 13.4105208333333, 13.4290509259259, 13.4548263888889, 13.4923958333333, 13.500150462963, 13.5387268518519)
yrewind = c(0.000232, 0.02398, 0.063483, 0.087599, 0.146173, 0.153132, 0.249333, 0.27125, 0.336165, 0.371935, 0.421326, 0.501568, 0.539504, 0.598971, 0.686631, 0.847224, 0.951223, 0.964547, 1.008145, 1.016678, 1.057249, 1.084752, 1.150871, 1.212052, 1.221569, 1.260836, 1.270231, 1.326935, 1.380581, 1.384016, 1.43112, 1.468203, 1.468728, 1.477482, 1.522651, 1.56662, 1.602199, 1.607184, 1.62924, 1.650095, 1.687603, 1.711571, 1.712918, 1.756542, 1.76385, 1.807989, 1.810706, 1.856263, 1.865085, 1.924927, 1.984106, 1.985963, 2.036616, 2.045506, 2.104748, 2.112442, 2.165567, 2.225713, 2.26981, 2.323515, 2.383776, 3.000019, 3.287343, 3.481545, 3.531378, 3.564793, 3.583955, 3.64472, 3.938613, 4.036563, 4.11515, 4.1418, 4.232937, 4.24123, 4.279391, 4.31323, 4.627381, 4.994177, 5.115738, 5.136456, 5.22015, 5.392534, 5.392689, 5.477296, 5.524964, 5.590867, 5.785978, 5.835527, 5.856029, 5.924057, 5.99204, 6.049784, 6.057637, 6.126629, 6.205264, 6.274328, 6.342032, 6.344077, 6.374746, 6.413739, 6.434772, 6.485996, 6.542486, 6.594585, 6.598735, 6.655967, 6.665524, 6.673209, 6.697388, 6.739523, 6.776086, 6.812825, 6.840781, 6.850837, 6.87025, 6.875249, 6.892275, 6.923142, 6.966468, 6.980615, 7.027199, 7.087851, 7.121012, 7.15254, 7.178393, 7.216213, 7.219769, 7.256199, 7.289118, 7.350148, 7.355213, 7.416936, 7.476194, 7.489874, 7.540614, 7.625977, 7.637941, 7.646753, 7.65167, 7.714532, 7.719749, 7.768548, 7.819407, 7.840656, 7.870787, 7.90246, 7.909677, 7.919966, 7.934288, 7.938208, 7.961744, 7.966136, 7.992804, 7.99759, 8.024982, 8.028067, 8.054549, 8.066079, 8.078439, 8.087307, 8.10208, 8.112273, 8.123148, 8.14202, 8.176041, 8.215797, 8.238583, 8.261044, 8.306994, 8.327088, 8.358015, 8.461338, 8.544436, 8.678387, 8.71857, 8.755733, 8.777698, 8.79279, 8.792898, 8.824055, 8.831218, 8.849234, 8.860492, 8.8811, 8.893965, 8.893965, 8.91385, 8.917553, 8.935399, 8.941305, 8.952479, 8.958049, 8.972624, 8.990473, 8.988212, 8.997964, 9.010708, 9.011296, 9.037378, 9.068422, 9.068427, 9.088492, 9.104167, 9.147647, 9.151575, 9.198291, 9.212739, 9.248102, 9.248186, 9.295177, 9.303229, 9.303977, 9.344489, 9.397496, 9.443604, 9.439781, 9.46487, 9.490177, 9.503821, 9.53904, 9.568557, 9.575914, 9.617862, 9.620733, 9.662017, 9.702318, 9.731271, 9.739389, 9.773241, 9.80428, 9.846172, 9.860609, 9.860018, 9.896525, 9.905032, 9.951233)
par(lwd=2)
plot(NA, xlim=c(5.81590277777778, 13.5387268518519), ylim=c(0, 10), xlab="Date", ylab="Dislikes (millions)", col=1)
lines(xbaby, ybaby, col="#30DD70")
lines(xrewind, yrewind, col="#7030DD")
legend("bottomright", inset=0.04, col=c("#30DD70", "#7030DD"), lwd=3, legend=names)
# save as PDF
dev.off()
