Discontinous graph - ggplot in R - r
I am using ggplot command to graph my data. I get this picture:
The graph is ugly and discontinus; I look at another data and it looks like this:
(Their code is in Step 2 on link: https://www.datascience.com/blog/introduction-to-forecasting-with-arima-in-r-learn-data-science-tutorials). How do I make my data look like that?
My code is:
daily_data = read.csv2('satni3.csv', header=TRUE, stringsAsFactors=FALSE)
daily_data$Date = as.Date(daily_data$datum, format = "%Y.%m.%d")
ggplot(daily_data, aes(Date, total)) +
geom_line() +
scale_x_date('day') +
ylab("opterecenje") +
xlab("") # total is the column with numbers that represent some data for a given date.
Here is half of my data (there is 15 days missing), pasted, first are names of columns and then there is data:
datum;sat;a11;a21;a31;b11;b21;b31;b41;b51;c11;c21;xx1;a12;a22;a32;b12;b22;b32;b42;b52;c12;c22;xx2;sum1;sum2;total
01.01.2017;00:00;0;16;0;0;0;0;0;0;0;0;0;0;62;4;1;0;0;0;0;1;0;0;16;68;84
01.01.2017;01:00;0;76;3;0;0;0;0;0;0;0;0;0;3;0;0;0;0;0;0;0;0;0;79;3;82
01.01.2017;02:00;0;151;3;2;0;0;0;0;0;0;0;0;15;0;1;0;0;0;0;0;0;0;156;16;172
01.01.2017;03:00;0;72;1;0;0;0;0;0;0;0;0;0;19;1;0;0;0;0;0;0;0;0;73;20;93
01.01.2017;04:00;0;32;1;0;0;0;0;0;0;0;0;0;18;0;0;0;0;0;0;0;0;0;33;18;51
01.01.2017;05:00;0;22;3;0;0;0;0;0;0;0;0;0;15;0;0;0;0;0;0;0;0;0;25;15;40
01.01.2017;06:00;0;7;0;0;0;0;0;0;0;0;0;0;12;0;0;0;0;0;0;1;0;0;7;13;20
01.01.2017;07:00;0;10;0;0;0;0;0;0;0;0;0;0;14;0;0;0;0;0;0;1;0;0;10;15;25
01.01.2017;08:00;0;9;0;0;0;0;0;0;0;0;0;0;11;0;0;0;0;0;0;0;0;0;9;11;20
01.01.2017;09:00;0;12;0;0;0;0;0;0;0;0;0;0;15;0;1;0;0;0;0;1;0;0;12;17;29
01.01.2017;10:00;0;15;2;0;0;0;0;0;1;0;0;0;21;1;1;0;0;0;0;0;0;0;18;23;41
01.01.2017;11:00;0;37;1;0;0;0;0;0;0;0;0;0;28;3;0;0;0;0;0;0;0;0;38;31;69
01.01.2017;12:00;0;59;2;0;0;0;0;0;0;0;0;0;78;2;0;0;0;0;0;1;0;0;61;81;142
01.01.2017;13:00;0;70;0;1;0;0;0;0;2;0;0;3;88;4;0;0;0;0;0;1;0;1;73;97;170
01.01.2017;14:00;1;123;5;1;0;0;0;0;0;0;0;0;110;3;0;0;0;0;1;0;0;0;130;114;244
01.01.2017;15:00;3;101;0;0;0;0;0;0;6;0;0;1;124;4;0;0;0;0;0;1;0;0;110;130;240
01.01.2017;16:00;0;128;1;0;0;0;0;0;2;0;0;0;117;3;0;0;0;0;0;0;0;0;131;120;251
01.01.2017;17:00;1;126;2;0;0;0;0;1;0;0;0;0;99;2;0;0;0;0;0;1;0;0;130;102;232
01.01.2017;18:00;0;91;1;0;0;0;0;0;1;0;0;0;84;1;1;0;0;0;0;0;0;0;93;86;179
01.01.2017;19:00;0;69;2;1;0;0;0;0;1;0;0;0;53;4;1;0;0;0;0;0;0;0;73;58;131
01.01.2017;20:00;0;54;0;0;0;0;0;0;0;0;0;0;42;1;0;0;0;0;0;2;0;0;54;45;99
01.01.2017;21:00;0;36;0;0;1;0;0;0;1;0;0;0;22;1;0;0;0;0;0;2;0;0;38;25;63
01.01.2017;22:00;0;11;0;1;0;0;0;0;1;0;0;0;19;2;1;0;0;0;0;0;0;0;13;22;35
01.01.2017;23:00;0;15;0;0;0;0;0;0;2;0;0;0;12;2;0;0;0;0;0;0;0;0;17;14;31
02.01.2017;00:00;0;13;0;0;0;0;0;0;0;0;0;0;10;0;0;0;0;0;0;1;0;0;13;11;24
02.01.2017;01:00;0;11;1;0;0;0;0;0;0;0;0;0;2;0;0;0;0;0;0;0;0;0;12;2;14
02.01.2017;02:00;0;2;0;0;0;0;0;0;0;0;0;0;5;0;0;0;0;0;1;0;0;0;2;6;8
02.01.2017;03:00;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0
02.01.2017;04:00;0;5;0;0;0;0;0;1;1;0;0;0;1;1;0;0;0;0;0;0;0;0;7;2;9
02.01.2017;05:00;0;3;2;0;0;0;0;1;2;0;0;0;3;1;0;0;0;0;0;2;0;0;8;6;14
02.01.2017;06:00;0;8;1;0;0;0;0;0;0;0;0;0;7;1;0;0;0;0;0;2;0;1;9;11;20
02.01.2017;07:00;0;29;0;0;0;0;0;1;1;0;0;1;37;1;0;0;1;0;0;3;0;0;31;43;74
02.01.2017;08:00;0;60;1;0;0;1;0;0;0;0;0;0;75;5;3;1;2;0;0;1;0;0;62;87;149
02.01.2017;09:00;0;54;1;2;2;4;0;0;1;0;0;0;62;3;5;1;2;1;1;0;0;0;64;75;139
02.01.2017;10:00;0;52;7;1;1;9;1;0;1;0;0;0;63;4;2;1;7;0;0;1;0;0;72;78;150
02.01.2017;11:00;0;76;5;5;0;6;0;1;2;0;0;0;81;5;2;2;7;0;1;0;0;0;95;98;193
02.01.2017;12:00;0;86;6;6;0;10;0;1;0;0;0;0;79;9;1;1;9;0;3;2;0;0;109;104;213
02.01.2017;13:00;0;92;2;2;2;4;0;0;2;0;0;0;69;3;0;3;7;0;1;0;0;0;104;83;187
02.01.2017;14:00;0;104;2;3;2;9;0;1;0;0;0;0;99;7;3;4;5;1;1;1;0;1;121;122;243
02.01.2017;15:00;0;117;8;0;1;11;0;0;1;0;0;0;85;2;0;1;11;0;0;2;0;0;138;101;239
02.01.2017;16:00;0;113;4;0;0;6;0;0;4;0;0;0;95;1;2;0;8;0;0;3;0;0;127;109;236
02.01.2017;17:00;0;115;3;2;0;3;0;0;2;0;0;0;114;3;0;0;5;0;0;1;0;0;125;123;248
02.01.2017;18:00;0;61;1;1;1;1;0;1;0;0;0;0;94;4;1;0;0;0;0;2;0;0;66;101;167
02.01.2017;19:00;0;72;4;0;0;0;0;0;1;0;0;0;57;3;0;0;0;0;0;1;0;0;77;61;138
02.01.2017;20:00;0;33;1;0;0;0;0;0;2;0;0;0;45;1;0;0;0;0;0;1;0;0;36;47;83
02.01.2017;21:00;0;21;1;1;0;0;0;1;0;0;0;0;32;4;0;0;0;0;0;4;0;0;24;40;64
02.01.2017;22:00;0;22;1;0;0;0;0;0;0;0;0;0;24;1;0;0;0;0;0;1;0;0;23;26;49
02.01.2017;23:00;0;23;0;0;0;0;0;1;1;0;0;0;20;0;0;0;0;0;0;0;0;0;25;20;45
03.01.2017;00:00;0;12;0;0;0;0;0;0;1;0;0;0;8;1;0;0;0;0;0;0;0;0;13;9;22
03.01.2017;01:00;0;7;0;0;0;0;0;0;0;0;0;0;3;0;0;0;0;0;0;1;0;0;7;4;11
03.01.2017;02:00;0;4;0;0;0;0;0;0;0;0;0;0;1;0;0;0;0;0;0;0;0;0;4;1;5
03.01.2017;03:00;0;2;0;0;0;0;0;0;0;0;0;0;1;0;0;0;0;0;0;0;0;0;2;1;3
03.01.2017;04:00;0;2;0;0;0;0;0;0;0;0;0;0;1;1;0;0;0;0;0;0;0;0;2;2;4
03.01.2017;05:00;0;3;1;0;0;0;0;0;3;0;0;0;3;0;0;0;0;0;0;1;0;0;7;4;11
03.01.2017;06:00;0;7;0;0;0;0;0;0;1;0;0;0;3;2;0;0;0;0;0;2;0;0;8;7;15
03.01.2017;07:00;0;25;2;0;0;0;0;0;2;0;0;0;51;5;0;1;0;0;1;2;0;0;29;60;89
03.01.2017;08:00;0;64;4;1;1;5;0;0;0;0;0;1;86;4;4;1;2;1;0;2;0;0;75;101;176
03.01.2017;09:00;0;65;4;2;3;6;0;0;1;0;0;0;57;8;5;0;7;0;0;1;0;1;81;79;160
03.01.2017;10:00;0;84;13;3;3;8;1;2;1;0;0;0;75;9;1;0;5;0;0;0;0;1;115;91;206
03.01.2017;11:00;0;74;3;3;1;6;0;2;1;0;0;0;75;7;1;3;4;0;0;0;0;0;90;90;180
03.01.2017;12:00;1;96;10;3;3;9;0;0;0;0;1;1;85;6;5;1;7;0;0;0;0;0;123;105;228
03.01.2017;13:00;1;115;9;5;0;1;0;0;1;0;1;0;103;7;2;2;6;0;0;1;1;1;133;123;256
03.01.2017;14:00;2;120;8;3;0;6;0;0;1;0;3;0;114;6;2;1;5;0;0;1;0;0;143;129;272
03.01.2017;15:00;0;116;6;1;0;7;0;0;1;0;0;1;107;5;1;0;6;0;0;3;0;0;131;123;254
03.01.2017;16:00;0;139;4;0;0;5;0;0;4;0;0;0;115;5;1;0;4;0;0;2;0;0;152;127;279
03.01.2017;17:00;0;117;1;2;0;4;0;0;1;0;0;0;126;5;0;2;5;0;0;1;0;0;125;139;264
03.01.2017;18:00;0;86;4;1;0;1;0;0;0;0;0;0;86;4;0;0;0;0;0;2;0;0;92;92;184
03.01.2017;19:00;0;57;2;0;0;0;0;0;1;0;0;0;70;3;1;0;0;0;1;0;0;1;60;76;136
03.01.2017;20:00;0;40;4;0;0;0;0;1;1;0;0;0;48;3;2;1;0;0;0;0;0;0;46;54;100
03.01.2017;21:00;0;37;0;1;0;0;0;0;1;0;0;0;37;3;0;0;0;0;0;3;0;0;39;43;82
03.01.2017;22:00;0;25;1;1;0;0;0;0;0;0;0;0;20;0;0;0;0;0;0;1;0;0;27;21;48
03.01.2017;23:00;0;23;0;0;0;1;0;0;2;0;0;0;14;0;0;0;0;0;0;0;0;0;26;14;40
04.01.2017;00:00;0;20;0;0;0;0;0;0;0;0;0;0;10;0;1;0;0;0;0;0;0;0;20;11;31
04.01.2017;01:00;0;4;0;0;0;0;0;0;0;0;0;0;1;0;0;0;0;0;0;0;0;0;4;1;5
04.01.2017;02:00;0;4;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;4;0;4
04.01.2017;03:00;0;1;0;0;0;0;0;0;0;0;0;0;2;0;0;0;0;0;0;0;0;0;1;2;3
04.01.2017;04:00;0;1;0;0;0;0;0;0;1;0;0;0;0;0;0;0;0;0;0;0;0;0;2;0;2
04.01.2017;05:00;0;4;1;0;0;0;0;0;2;0;0;0;5;1;0;0;0;0;0;1;0;0;7;7;14
04.01.2017;06:00;0;10;0;0;0;0;0;0;0;0;0;0;5;2;0;0;0;0;0;1;0;0;10;8;18
04.01.2017;07:00;0;31;3;0;0;0;0;0;2;0;0;1;43;6;0;1;1;0;0;3;0;0;36;55;91
04.01.2017;08:00;0;74;4;1;0;4;0;0;0;0;1;0;91;2;6;1;3;0;0;2;0;0;84;105;189
04.01.2017;09:00;0;65;10;2;2;7;0;0;1;0;0;0;73;8;3;1;8;0;0;1;0;0;87;94;181
04.01.2017;10:00;0;76;4;4;2;9;0;0;1;0;0;0;66;9;2;1;8;0;0;0;0;0;96;86;182
04.01.2017;11:00;1;94;1;3;2;7;0;1;1;0;0;0;89;4;2;2;8;0;0;0;0;0;110;105;215
04.01.2017;12:00;0;96;4;1;0;8;0;0;0;0;0;0;92;5;2;2;7;0;0;0;0;1;109;109;218
04.01.2017;13:00;1;98;4;3;1;3;0;0;1;0;0;1;100;10;4;5;5;0;0;2;0;0;111;127;238
04.01.2017;14:00;1;120;3;0;0;8;0;1;1;0;0;0;84;4;3;0;5;0;0;2;0;1;134;99;233
04.01.2017;15:00;0;114;3;1;1;4;0;0;1;0;0;0;109;5;0;1;7;0;1;2;0;1;124;126;250
04.01.2017;16:00;1;139;6;1;0;6;0;0;4;0;0;0;109;4;4;1;7;0;0;2;0;0;157;127;284
04.01.2017;17:00;1;115;5;3;0;7;0;0;1;0;0;1;124;5;0;0;8;0;0;1;0;0;132;139;271
04.01.2017;18:00;0;77;2;1;0;0;0;0;1;0;0;0;97;3;1;0;0;0;0;2;0;0;81;103;184
04.01.2017;19:00;0;51;4;0;0;0;0;0;2;0;0;0;57;1;0;0;0;0;0;0;0;0;57;58;115
04.01.2017;20:00;0;41;3;1;0;0;0;0;1;0;0;0;34;2;0;0;0;0;1;2;0;0;46;39;85
04.01.2017;21:00;0;24;2;0;0;0;0;0;1;0;0;0;38;0;0;0;0;0;0;4;0;0;27;42;69
04.01.2017;22:00;0;23;1;0;0;0;0;0;1;0;0;0;30;2;0;0;0;0;0;0;0;0;25;32;57
04.01.2017;23:00;0;16;0;0;0;0;0;0;2;0;0;0;14;0;0;0;0;0;0;0;0;0;18;14;32
05.01.2017;00:00;0;19;0;0;0;0;0;0;0;0;0;0;10;1;1;0;0;0;0;1;0;0;19;13;32
05.01.2017;01:00;0;9;0;0;0;0;0;0;0;0;0;0;1;0;0;0;0;0;0;0;0;0;9;1;10
05.01.2017;02:00;0;2;0;0;0;0;0;0;0;0;0;0;3;0;0;0;0;0;0;0;0;0;2;3;5
05.01.2017;03:00;0;0;0;0;0;0;0;0;0;0;0;0;1;0;0;0;0;0;0;0;0;0;0;1;1
05.01.2017;04:00;0;1;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;1;0;1
05.01.2017;05:00;0;4;1;0;0;1;0;0;2;0;0;0;4;1;0;0;0;0;0;1;0;0;8;6;14
05.01.2017;06:00;0;7;0;0;0;0;0;0;1;0;0;0;5;1;0;0;0;0;0;2;0;0;8;8;16
05.01.2017;07:00;0;30;1;0;0;0;0;0;2;0;0;1;49;5;0;0;0;0;0;4;0;0;33;59;92
05.01.2017;08:00;0;57;1;3;2;8;0;0;0;0;0;0;76;4;3;3;9;0;0;2;0;0;71;97;168
05.01.2017;09:00;0;64;4;4;1;12;0;0;1;0;0;0;59;6;2;1;9;0;0;1;0;0;86;78;164
05.01.2017;10:00;2;85;8;2;2;10;0;0;1;0;0;1;40;8;3;2;11;0;0;0;0;0;110;65;175
05.01.2017;11:00;0;86;9;6;2;8;0;0;2;0;0;0;91;6;5;3;11;0;0;0;0;0;113;116;229
05.01.2017;12:00;0;127;9;2;6;10;0;0;0;0;0;1;93;7;1;3;11;0;0;2;0;1;154;119;273
05.01.2017;13:00;0;105;5;1;2;4;0;0;3;0;0;0;107;9;3;3;5;0;0;0;1;1;120;129;249
05.01.2017;14:00;0;104;5;3;0;14;0;0;1;0;0;0;117;7;2;0;10;0;0;1;0;1;127;138;265
05.01.2017;15:00;0;117;5;1;0;10;0;0;1;0;0;0;107;6;3;0;10;0;1;3;0;1;134;131;265
05.01.2017;16:00;0;126;4;1;0;11;0;0;4;0;0;0;110;3;3;2;10;0;1;1;0;0;146;130;276
05.01.2017;17:00;0;132;4;0;1;10;0;0;1;0;0;0;118;1;2;0;13;0;0;0;0;0;148;134;282
05.01.2017;18:00;0;71;2;2;0;1;0;0;1;0;0;0;89;3;0;1;1;0;0;1;0;0;77;95;172
05.01.2017;19:00;0;57;5;0;0;0;0;0;2;0;0;0;57;2;0;0;0;0;0;1;0;0;64;60;124
05.01.2017;20:00;0;43;4;1;0;0;0;0;1;0;0;0;58;3;0;0;0;0;1;2;0;0;49;64;113
05.01.2017;21:00;0;36;0;0;0;0;0;1;1;0;0;0;50;1;0;0;0;0;0;4;0;0;38;55;93
05.01.2017;22:00;0;30;2;0;0;0;0;0;1;0;0;0;25;1;0;0;0;0;0;1;0;0;33;27;60
05.01.2017;23:00;0;17;1;0;0;0;0;0;2;0;0;0;22;0;1;0;0;0;0;0;0;0;20;23;43
06.01.2017;00:00;0;22;0;0;0;0;0;0;0;0;0;0;13;1;0;0;0;0;0;1;0;0;22;15;37
06.01.2017;01:00;0;5;0;0;0;0;0;0;0;0;0;0;6;1;0;0;0;0;0;0;0;0;5;7;12
06.01.2017;02:00;0;4;0;0;0;0;0;0;0;0;0;0;5;0;0;0;0;0;0;0;0;0;4;5;9
06.01.2017;03:00;0;1;1;0;0;0;0;0;0;0;0;0;5;0;0;0;0;0;0;0;0;0;2;5;7
06.01.2017;04:00;0;2;0;0;0;0;0;0;0;0;0;0;1;1;0;0;0;0;0;0;0;0;2;2;4
06.01.2017;05:00;0;5;1;0;0;0;0;0;2;0;0;0;7;0;0;0;0;0;0;0;0;0;8;7;15
06.01.2017;06:00;0;6;0;0;0;0;0;0;1;0;0;0;7;3;0;0;0;0;0;0;0;0;7;10;17
06.01.2017;07:00;0;7;1;0;0;0;0;0;0;0;0;0;21;4;0;1;0;0;0;1;0;0;8;27;35
06.01.2017;08:00;0;10;3;0;0;0;0;0;0;0;0;0;27;1;1;0;0;0;0;1;0;0;13;30;43
06.01.2017;09:00;0;15;3;1;0;1;0;0;1;0;0;0;24;1;2;0;0;0;0;1;0;0;21;28;49
06.01.2017;10:00;0;41;3;0;3;2;0;0;0;0;0;0;39;1;2;1;2;0;0;0;0;0;49;45;94
06.01.2017;11:00;0;61;3;1;1;1;0;0;1;0;0;0;52;1;0;0;1;0;0;0;0;0;68;54;122
06.01.2017;12:00;0;61;5;1;0;0;0;0;0;0;0;0;58;1;1;0;1;0;0;2;0;1;67;64;131
06.01.2017;13:00;0;73;4;0;0;0;0;0;1;0;0;0;59;1;1;0;1;0;0;1;0;0;78;63;141
06.01.2017;14:00;0;67;2;2;0;0;0;0;1;0;0;0;91;3;1;0;0;0;0;2;0;0;72;97;169
06.01.2017;15:00;0;93;4;1;0;0;0;0;0;0;0;0;78;2;2;0;0;0;0;0;0;0;98;82;180
06.01.2017;16:00;0;67;3;0;0;0;0;0;1;0;0;0;72;1;0;1;0;0;0;1;0;0;71;75;146
06.01.2017;17:00;0;73;1;1;0;0;0;0;1;0;0;0;59;2;1;0;0;0;0;0;0;0;76;62;138
06.01.2017;18:00;0;59;1;0;0;0;0;0;0;0;0;0;61;3;0;0;0;0;0;0;0;0;60;64;124
06.01.2017;19:00;0;47;2;0;0;0;0;0;0;0;0;0;42;0;0;0;0;0;0;1;0;0;49;43;92
06.01.2017;20:00;0;31;0;0;0;0;0;0;1;0;0;0;28;1;0;0;0;0;1;1;0;0;32;31;63
06.01.2017;21:00;0;51;0;0;0;0;0;0;1;0;0;0;26;0;0;0;0;0;0;2;0;0;52;28;80
06.01.2017;22:00;0;16;0;0;0;0;0;0;1;0;0;0;19;0;0;0;0;0;0;0;0;0;17;19;36
06.01.2017;23:00;0;24;0;0;0;0;0;0;1;1;0;0;31;0;1;0;0;0;0;0;0;0;26;32;58
07.01.2017;00:00;0;12;1;0;0;0;0;0;0;0;0;0;9;2;0;0;0;0;0;0;0;0;13;11;24
07.01.2017;01:00;0;9;0;0;0;0;0;0;0;0;0;0;5;1;0;0;0;0;0;1;0;0;9;7;16
07.01.2017;02:00;0;2;1;0;0;0;0;0;0;0;0;0;8;0;0;0;0;0;0;0;0;0;3;8;11
07.01.2017;03:00;0;2;0;0;0;0;0;0;0;0;0;0;4;0;0;0;0;0;0;0;0;0;2;4;6
07.01.2017;04:00;0;1;1;0;0;0;0;0;0;0;0;0;4;0;0;0;0;0;0;0;0;0;2;4;6
07.01.2017;05:00;0;2;0;0;0;0;0;0;2;0;0;0;7;1;0;0;0;0;0;0;0;0;4;8;12
07.01.2017;06:00;0;4;0;0;0;0;0;0;1;0;0;0;5;1;0;0;0;0;0;2;0;0;5;8;13
07.01.2017;07:00;0;7;3;0;0;0;0;0;0;0;0;0;28;5;1;0;0;0;0;2;0;0;10;36;46
07.01.2017;08:00;0;24;2;0;1;8;0;0;0;0;1;0;31;2;2;0;7;0;1;2;0;0;36;45;81
07.01.2017;09:00;0;32;5;1;3;11;0;0;1;0;0;0;30;2;3;1;16;0;0;1;0;0;53;53;106
07.01.2017;10:00;0;47;4;3;3;14;0;0;0;0;0;0;41;3;2;3;12;0;0;1;0;1;71;63;134
07.01.2017;11:00;0;83;5;3;2;12;0;0;1;0;0;0;54;2;2;1;9;0;0;0;0;0;106;68;174
07.01.2017;12:00;0;90;2;1;1;7;0;0;0;0;0;0;78;2;1;1;10;0;0;1;0;2;101;95;196
07.01.2017;13:00;2;84;3;2;2;6;0;0;1;0;0;0;81;5;3;0;7;0;0;1;0;1;100;98;198
07.01.2017;14:00;0;78;6;2;2;8;1;0;1;0;0;0;86;3;1;1;10;0;0;2;0;1;98;104;202
07.01.2017;15:00;0;92;3;2;4;8;0;0;0;0;0;0;81;3;1;1;10;0;0;1;0;2;109;99;208
07.01.2017;16:00;0;83;2;1;0;0;0;1;2;0;0;0;92;2;1;0;0;0;1;0;0;0;89;96;185
07.01.2017;17:00;0;69;2;1;1;3;0;0;1;0;0;0;83;0;1;0;0;0;0;0;0;0;77;84;161
07.01.2017;18:00;0;59;2;0;0;0;0;0;0;0;0;0;70;1;1;0;1;0;0;0;0;0;61;73;134
07.01.2017;19:00;0;38;2;1;0;1;0;0;2;0;0;0;42;1;3;0;1;0;0;1;0;0;44;48;92
07.01.2017;20:00;0;41;0;0;0;0;0;0;0;0;0;0;51;2;0;0;0;0;0;0;0;0;41;53;94
07.01.2017;21:00;0;22;1;0;0;0;0;0;2;0;0;0;31;2;1;0;0;0;0;1;0;0;25;35;60
07.01.2017;22:00;0;26;0;0;0;0;0;0;0;0;0;0;18;0;0;0;0;0;0;1;0;0;26;19;45
07.01.2017;23:00;0;26;0;0;0;0;0;0;2;0;0;0;16;0;1;0;0;0;0;0;0;0;28;17;45
08.01.2017;00:00;0;19;0;0;0;0;0;0;0;0;0;0;13;1;1;0;0;0;0;1;0;0;19;16;35
08.01.2017;01:00;0;9;0;0;0;0;0;0;0;0;0;0;8;0;0;0;0;0;0;0;0;0;9;8;17
08.01.2017;02:00;0;4;0;0;0;0;0;1;0;0;0;0;4;0;0;0;0;0;0;0;0;0;5;4;9
08.01.2017;03:00;0;1;0;0;0;0;0;0;0;0;0;0;4;0;0;0;0;0;0;0;0;0;1;4;5
08.01.2017;04:00;0;1;0;0;0;0;0;0;1;0;0;0;1;0;0;0;0;0;0;0;0;0;2;1;3
08.01.2017;05:00;0;2;2;0;0;0;0;1;0;0;0;0;5;1;0;0;0;0;0;1;0;0;5;7;12
08.01.2017;06:00;0;0;0;0;0;0;0;0;0;0;0;0;6;1;0;0;0;0;0;1;0;0;0;8;8
08.01.2017;07:00;0;9;2;1;0;0;0;0;0;0;0;0;15;5;0;0;0;0;1;2;0;0;12;23;35
08.01.2017;08:00;0;16;1;0;0;5;0;0;0;0;0;0;16;0;1;0;3;0;0;0;0;0;22;20;42
08.01.2017;09:00;0;18;1;2;1;4;0;0;1;0;0;0;19;1;0;0;4;0;0;1;0;0;27;25;52
08.01.2017;10:00;0;49;1;1;1;5;0;1;1;0;0;0;30;1;0;0;5;0;1;0;0;0;59;37;96
08.01.2017;11:00;0;47;0;1;0;4;0;2;0;0;0;0;35;1;2;1;5;0;1;0;0;0;54;45;99
08.01.2017;12:00;0;79;2;1;0;7;0;0;0;0;0;0;52;2;0;0;6;0;0;1;0;0;89;61;150
08.01.2017;13:00;0;67;3;2;0;4;0;0;1;0;0;0;63;1;1;0;6;0;0;1;0;0;77;72;149
08.01.2017;14:00;1;74;3;2;0;0;0;1;0;0;0;0;85;1;0;0;0;0;0;2;0;0;81;88;169
08.01.2017;15:00;2;74;5;1;1;0;0;0;0;0;0;0;61;8;1;0;0;0;0;1;0;0;83;71;154
08.01.2017;16:00;0;65;0;0;0;0;0;0;4;0;0;0;81;1;0;0;0;0;0;0;0;0;69;82;151
08.01.2017;17:00;0;71;2;0;0;0;0;0;1;0;0;0;62;2;0;0;1;0;0;0;0;0;74;65;139
08.01.2017;18:00;0;55;0;0;0;0;0;0;0;0;0;0;61;0;0;2;0;0;0;2;0;0;55;65;120
08.01.2017;19:00;0;33;1;0;0;0;0;0;0;0;0;0;36;0;0;0;0;0;0;1;0;0;34;37;71
08.01.2017;20:00;0;42;0;0;0;0;0;0;1;0;0;0;38;1;0;0;0;0;0;1;0;0;43;40;83
08.01.2017;21:00;0;23;0;0;0;0;0;0;2;0;0;1;28;1;0;0;0;0;0;3;0;0;25;33;58
08.01.2017;22:00;0;22;0;0;0;0;0;0;0;0;0;0;20;0;0;0;0;0;0;2;0;0;22;22;44
08.01.2017;23:00;0;9;1;0;0;0;0;0;1;1;0;0;9;2;0;0;0;0;0;0;0;0;12;11;23
09.01.2017;00:00;0;4;0;0;0;0;0;0;0;0;0;0;5;0;0;0;0;0;0;0;0;0;4;5;9
09.01.2017;01:00;0;1;0;0;0;0;0;0;0;0;0;0;2;0;0;0;0;0;0;0;0;0;1;2;3
09.01.2017;02:00;0;5;0;0;0;0;0;0;0;0;0;0;2;0;0;0;0;0;0;0;0;0;5;2;7
09.01.2017;03:00;0;0;0;0;0;0;0;0;0;0;0;0;1;0;0;0;0;0;0;0;0;0;0;1;1
09.01.2017;04:00;0;3;0;0;0;0;0;0;1;0;0;0;3;1;0;0;0;0;0;0;0;0;4;4;8
09.01.2017;05:00;0;2;1;0;0;0;0;0;3;0;0;0;2;0;0;0;0;0;0;1;0;0;6;3;9
09.01.2017;06:00;0;6;0;0;0;0;0;0;0;0;0;0;3;2;0;0;1;0;1;1;0;0;6;8;14
09.01.2017;07:00;0;42;0;1;0;1;0;1;2;0;0;0;50;6;1;1;0;0;0;3;0;0;47;61;108
09.01.2017;08:00;0;84;2;5;2;5;0;0;0;0;0;0;111;6;5;1;6;0;0;2;0;0;98;131;229
09.01.2017;09:00;1;66;5;0;0;9;0;0;1;0;0;0;74;4;8;2;6;0;0;0;0;0;82;94;176
09.01.2017;10:00;0;80;8;2;4;8;0;0;1;0;0;0;64;5;2;3;11;0;0;0;0;0;103;85;188
09.01.2017;11:00;1;80;3;8;2;6;0;2;2;0;0;0;76;7;2;4;7;1;1;0;0;0;104;98;202
09.01.2017;12:00;0;107;7;5;3;9;0;1;0;0;0;0;80;9;3;2;11;0;1;1;0;0;132;107;239
09.01.2017;13:00;0;103;8;3;1;5;0;1;1;0;1;0;76;6;3;2;8;0;0;1;0;0;123;96;219
09.01.2017;14:00;0;106;5;2;2;5;0;0;1;0;0;0;92;8;4;1;9;1;0;2;0;0;121;117;238
09.01.2017;15:00;0;97;8;4;1;8;0;0;1;0;0;0;104;2;5;4;7;1;0;2;0;0;119;125;244
09.01.2017;16:00;0;112;6;5;4;8;1;0;3;0;0;0;106;4;4;3;9;0;1;1;0;0;139;128;267
09.01.2017;17:00;0;109;6;3;3;7;0;0;2;0;0;0;129;6;1;0;8;0;0;1;0;1;130;146;276
09.01.2017;18:00;0;86;5;1;0;0;1;0;0;0;0;0;92;4;1;0;0;0;1;2;0;0;93;100;193
09.01.2017;19:00;0;47;2;0;0;0;0;0;2;0;0;0;60;3;0;0;0;0;0;1;0;0;51;64;115
09.01.2017;20:00;0;42;2;0;0;0;0;0;1;0;0;0;45;2;0;0;0;0;0;1;0;0;45;48;93
09.01.2017;21:00;0;38;2;0;0;1;0;1;0;0;0;0;34;0;0;0;0;0;0;2;0;0;42;36;78
09.01.2017;22:00;0;29;0;0;0;1;0;0;1;0;0;0;22;0;0;0;0;0;0;1;0;0;31;23;54
09.01.2017;23:00;0;17;2;0;0;0;0;0;2;0;0;0;25;0;0;0;0;0;0;0;0;0;21;25;46
10.01.2017;00:00;0;14;0;0;0;0;0;0;0;0;0;0;6;1;0;0;0;0;0;1;0;0;14;8;22
10.01.2017;01:00;0;8;0;0;0;0;0;0;0;0;0;0;4;0;0;0;0;0;0;0;0;0;8;4;12
10.01.2017;02:00;0;2;0;0;0;0;0;0;0;0;0;0;1;0;0;0;0;0;0;0;0;0;2;1;3
10.01.2017;03:00;0;0;0;0;0;0;0;1;0;0;0;0;0;0;0;0;0;0;1;0;0;0;1;1;2
10.01.2017;04:00;0;1;1;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;2;0;2
10.01.2017;05:00;0;7;0;0;0;0;0;1;2;0;0;0;5;1;1;0;0;0;0;1;0;0;10;8;18
10.01.2017;06:00;0;6;0;1;0;0;0;0;0;0;0;0;9;1;0;0;0;0;0;2;0;0;7;12;19
10.01.2017;07:00;0;38;3;0;0;0;0;0;2;0;0;0;49;7;0;1;1;0;0;3;0;0;43;61;104
10.01.2017;08:00;0;78;2;1;2;7;0;0;0;0;0;0;102;0;3;0;9;2;0;2;0;1;90;119;209
10.01.2017;09:00;0;85;9;2;3;8;0;0;1;0;0;0;91;6;3;2;11;0;0;0;0;0;108;113;221
10.01.2017;10:00;0;62;8;2;4;10;1;0;1;0;0;0;68;9;3;1;9;0;0;0;0;0;88;90;178
10.01.2017;11:00;1;100;11;4;4;9;0;0;2;0;0;0;80;10;6;1;9;0;0;0;0;0;131;106;237
10.01.2017;12:00;0;96;5;6;5;9;0;0;0;0;0;0;101;5;1;2;14;1;0;1;0;0;121;125;246
10.01.2017;13:00;1;115;7;3;2;4;0;0;2;0;0;1;91;9;2;2;7;0;0;1;0;0;134;113;247
10.01.2017;14:00;0;93;7;2;4;6;2;0;1;0;0;1;107;5;3;3;4;0;0;1;0;3;115;127;242
10.01.2017;15:00;0;126;7;1;2;7;1;0;1;0;0;0;110;2;1;3;9;2;0;3;0;0;145;130;275
10.01.2017;16:00;0;133;4;1;2;10;0;1;3;0;0;0;114;6;4;0;7;0;0;2;0;0;154;133;287
10.01.2017;17:00;0;111;7;6;4;5;1;0;1;0;0;0;118;7;1;2;8;0;1;0;0;0;135;137;272
10.01.2017;18:00;0;78;6;1;0;2;0;0;0;0;0;0;84;2;2;0;0;0;1;2;0;0;87;91;178
10.01.2017;19:00;0;51;5;0;1;0;0;0;1;0;0;0;60;1;3;0;0;0;0;0;0;0;58;64;122
10.01.2017;20:00;0;39;1;2;1;0;0;0;1;0;0;0;54;2;2;0;0;0;1;0;0;0;44;59;103
10.01.2017;21:00;0;32;0;0;0;0;0;0;1;0;0;0;34;2;0;0;0;0;0;3;0;0;33;39;72
10.01.2017;22:00;0;22;0;0;0;0;0;0;1;0;0;0;25;0;0;0;0;0;0;1;0;0;23;26;49
10.01.2017;23:00;0;22;2;0;0;0;0;0;2;0;0;0;21;0;1;0;0;0;0;0;0;0;26;22;48
11.01.2017;00:00;0;9;0;0;0;0;0;0;0;0;0;0;5;1;0;0;0;0;0;0;0;0;9;6;15
11.01.2017;01:00;0;6;1;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;7;0;7
11.01.2017;02:00;0;1;0;0;0;0;0;0;0;0;0;0;2;2;0;0;0;0;0;0;0;0;1;4;5
11.01.2017;03:00;0;1;0;0;0;0;0;0;0;0;0;0;1;0;0;0;0;0;0;0;0;0;1;1;2
11.01.2017;04:00;0;0;1;0;0;0;0;0;1;0;0;0;0;0;0;0;0;0;0;0;0;0;2;0;2
11.01.2017;05:00;0;5;0;0;0;0;0;1;1;0;0;0;4;0;0;0;0;0;0;1;0;0;7;5;12
11.01.2017;06:00;0;8;0;0;0;0;0;0;0;0;0;0;9;1;0;0;0;0;0;2;0;0;8;12;20
11.01.2017;07:00;0;35;3;0;0;1;0;0;2;0;0;0;52;9;0;1;1;0;0;3;0;0;41;66;107
11.01.2017;08:00;0;80;2;4;2;7;0;0;0;0;0;0;99;3;4;1;9;0;1;2;0;0;95;119;214
11.01.2017;09:00;0;78;3;2;2;8;0;0;1;0;0;0;84;4;4;2;7;0;0;0;0;3;94;104;198
11.01.2017;10:00;0;61;6;6;4;9;0;0;1;0;0;1;80;10;3;3;7;0;0;0;0;0;87;104;191
11.01.2017;11:00;0;83;6;3;1;5;0;0;2;0;0;0;63;6;4;4;5;0;0;0;0;0;100;82;182
11.01.2017;12:00;1;96;7;3;3;13;0;1;0;0;0;0;91;8;4;2;13;0;0;0;0;1;124;119;243
11.01.2017;13:00;0;86;11;4;1;3;0;0;2;0;0;0;80;7;3;2;5;0;0;1;0;0;107;98;205
11.01.2017;14:00;0;100;6;3;2;6;0;0;1;0;0;0;92;4;2;4;8;0;0;1;0;0;118;111;229
11.01.2017;15:00;0;109;8;1;2;4;0;0;1;0;0;1;100;4;2;2;4;0;0;3;0;0;125;116;241
11.01.2017;16:00;0;118;4;2;1;4;0;0;4;0;0;0;108;7;1;2;6;0;1;3;0;0;133;128;261
11.01.2017;17:00;0;117;5;4;2;6;0;1;1;0;0;0;116;5;2;2;4;0;0;0;0;0;136;129;265
11.01.2017;18:00;0;93;2;2;0;0;0;1;0;0;0;0;97;4;1;0;0;0;0;2;0;0;98;104;202
11.01.2017;19:00;0;51;3;0;0;0;0;0;1;0;0;0;56;3;0;0;0;0;1;0;0;0;55;60;115
11.01.2017;20:00;0;36;3;0;0;0;0;0;1;0;0;0;54;0;1;0;0;0;0;0;0;0;40;55;95
11.01.2017;21:00;0;38;0;0;0;0;0;0;1;0;0;0;35;1;0;0;0;0;0;3;0;1;39;40;79
11.01.2017;22:00;0;21;1;0;0;0;0;0;1;0;0;0;19;0;0;0;0;0;0;1;0;0;23;20;43
11.01.2017;23:00;0;16;2;0;0;0;0;1;0;0;0;0;13;0;1;0;0;0;0;0;0;0;19;14;33
12.01.2017;00:00;0;11;0;0;0;0;0;0;0;0;0;0;11;0;0;0;0;0;0;1;0;0;11;12;23
12.01.2017;01:00;0;7;0;0;0;0;0;0;0;0;0;0;2;0;0;0;0;0;0;0;0;0;7;2;9
12.01.2017;02:00;0;1;0;0;0;0;0;1;0;0;0;0;1;0;0;0;0;0;0;0;0;0;2;1;3
12.01.2017;03:00;0;0;0;0;0;0;0;0;0;0;0;0;3;0;0;0;0;0;0;0;0;0;0;3;3
12.01.2017;04:00;0;0;1;0;0;0;0;0;1;0;0;0;1;0;0;0;0;0;0;0;0;0;2;1;3
12.01.2017;05:00;0;5;0;0;0;0;0;0;3;0;0;0;3;0;0;0;0;0;0;1;0;0;8;4;12
12.01.2017;06:00;0;6;0;0;0;0;0;0;0;0;0;0;8;2;0;0;0;0;1;1;0;0;6;12;18
12.01.2017;07:00;0;43;2;0;0;0;0;0;2;0;0;0;57;7;1;0;2;0;0;4;0;0;47;71;118
12.01.2017;08:00;0;74;5;3;1;6;0;0;0;0;0;0;103;6;4;1;6;0;0;2;0;1;89;123;212
12.01.2017;09:00;0;66;7;6;3;4;0;0;1;0;0;0;68;7;3;1;6;0;0;1;0;2;87;88;175
12.01.2017;10:00;0;68;6;7;4;7;0;1;0;0;0;0;76;10;4;3;5;0;0;0;0;0;93;98;191
12.01.2017;11:00;0;86;8;4;2;4;0;0;2;0;1;0;70;6;6;2;5;0;0;0;0;1;107;90;197
12.01.2017;12:00;0;97;6;4;3;9;0;0;0;0;0;0;66;4;3;4;10;0;0;1;0;1;119;89;208
12.01.2017;13:00;0;76;12;7;3;6;0;0;1;0;0;0;83;5;5;7;6;0;1;1;0;0;105;108;213
12.01.2017;14:00;0;97;3;4;5;6;0;0;1;0;1;0;100;12;2;4;7;1;0;1;0;1;117;128;245
12.01.2017;15:00;1;105;8;4;1;4;0;0;1;0;0;0;94;2;2;1;5;0;0;3;0;0;124;107;231
12.01.2017;16:00;0;131;7;1;2;4;1;0;4;0;0;0;110;8;1;2;5;0;0;2;0;1;150;129;279
12.01.2017;17:00;0;118;5;3;2;5;0;2;1;0;0;0;100;4;2;1;5;0;1;1;0;0;136;114;250
12.01.2017;18:00;0;73;5;3;0;0;0;2;0;0;0;0;87;6;0;0;1;0;0;2;0;0;83;96;179
12.01.2017;19:00;0;43;4;2;1;0;0;0;1;0;0;0;63;0;0;0;0;0;0;1;0;0;51;64;115
12.01.2017;20:00;0;48;2;0;0;0;0;0;1;0;0;0;51;1;1;0;1;1;0;1;0;0;51;56;107
12.01.2017;21:00;0;37;0;1;0;0;0;0;2;0;0;0;33;1;0;0;0;0;0;4;0;0;40;38;78
12.01.2017;22:00;0;22;0;0;0;0;0;0;1;0;0;0;28;1;0;0;0;0;0;0;0;0;23;29;52
12.01.2017;23:00;0;25;0;0;0;0;0;0;2;0;0;0;13;0;1;0;0;0;0;0;0;0;27;14;41
13.01.2017;00:00;0;9;1;0;0;0;0;0;0;0;0;0;9;0;0;0;0;0;0;0;0;0;10;9;19
13.01.2017;01:00;0;9;0;0;0;0;0;0;0;0;0;0;1;0;0;0;0;0;0;0;0;0;9;1;10
13.01.2017;02:00;0;1;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;1;0;1
13.01.2017;03:00;0;0;0;0;0;0;0;0;0;0;0;0;1;0;0;0;0;0;0;0;0;0;0;1;1
13.01.2017;04:00;0;0;0;0;0;0;0;0;1;0;0;0;0;0;0;0;0;0;0;0;0;0;1;0;1
13.01.2017;05:00;0;4;0;1;0;0;0;0;3;0;0;0;6;1;0;0;0;0;0;1;0;0;8;8;16
13.01.2017;06:00;0;6;0;0;0;0;0;0;1;0;0;0;6;1;0;1;0;0;0;1;0;0;7;9;16
13.01.2017;07:00;0;38;1;0;0;0;0;0;2;0;0;0;60;10;0;0;1;0;0;3;0;0;41;74;115
13.01.2017;08:00;0;60;2;0;1;2;0;0;0;0;1;0;94;6;4;2;8;1;0;2;0;1;66;118;184
13.01.2017;09:00;0;65;10;1;3;6;0;0;1;0;1;0;64;3;6;0;7;0;0;0;0;0;87;80;167
13.01.2017;10:00;0;79;10;3;3;6;0;0;1;0;0;0;78;12;5;1;7;0;0;0;0;0;102;103;205
13.01.2017;11:00;0;97;9;3;8;7;0;0;2;0;0;0;77;13;4;1;9;0;0;0;0;0;126;104;230
13.01.2017;12:00;0;80;9;5;6;9;0;0;0;0;0;0;86;5;4;3;10;0;0;2;0;0;109;110;219
13.01.2017;13:00;0;90;4;1;1;8;0;0;2;0;1;0;83;5;6;3;3;0;0;2;0;0;107;102;209
13.01.2017;14:00;0;99;8;2;2;5;0;0;1;0;0;0;98;7;0;1;7;0;0;1;0;1;117;115;232
13.01.2017;15:00;0;90;9;3;4;5;0;0;1;0;0;0;83;12;2;0;6;0;0;3;0;1;112;107;219
13.01.2017;16:00;0;118;9;5;0;3;0;0;4;0;0;0;97;3;2;1;4;0;0;2;0;0;139;109;248
13.01.2017;17:00;0;126;10;2;1;4;0;0;1;0;0;0;91;4;2;0;2;0;0;0;0;0;144;99;243
13.01.2017;18:00;0;72;1;2;0;0;0;0;0;0;0;0;88;4;0;0;0;0;0;1;0;0;75;93;168
13.01.2017;19:00;0;43;4;2;0;1;0;1;1;0;0;0;58;0;0;0;0;0;1;0;0;0;52;59;111
13.01.2017;20:00;0;44;3;0;0;0;0;0;2;0;0;0;52;1;0;0;0;0;0;1;0;0;49;54;103
13.01.2017;21:00;0;40;2;0;0;1;0;0;0;0;0;0;35;3;0;0;0;0;0;2;0;0;43;40;83
13.01.2017;22:00;0;17;0;1;0;0;0;0;1;0;0;0;24;2;0;0;0;0;0;1;0;0;19;27;46
13.01.2017;23:00;0;20;0;0;0;0;0;0;0;0;0;0;23;0;0;0;0;0;0;1;0;1;20;25;45
14.01.2017;00:00;0;15;1;1;0;0;0;0;2;0;0;0;11;0;1;0;0;0;0;1;0;0;19;13;32
14.01.2017;01:00;0;10;0;0;0;0;0;0;1;0;0;0;3;1;0;0;0;0;0;0;0;0;11;4;15
14.01.2017;02:00;0;2;1;0;0;0;0;0;0;0;0;0;5;0;0;0;0;0;0;0;0;0;3;5;8
14.01.2017;03:00;0;3;0;0;0;0;0;0;0;0;0;0;2;0;0;0;0;0;0;0;0;0;3;2;5
14.01.2017;04:00;0;1;0;0;0;1;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;2;0;2
14.01.2017;05:00;0;2;1;0;0;0;0;0;2;0;0;0;3;1;0;0;0;0;0;0;0;0;5;4;9
14.01.2017;06:00;0;3;0;0;0;0;0;0;1;0;0;0;8;2;0;0;0;0;0;2;0;0;4;12;16
14.01.2017;07:00;0;14;0;1;0;0;0;0;0;0;0;0;38;2;1;0;0;0;0;2;0;0;15;43;58
14.01.2017;08:00;0;30;1;4;0;2;0;1;0;0;0;0;46;3;3;0;5;0;0;2;0;0;38;59;97
14.01.2017;09:00;0;47;9;2;1;8;0;0;1;0;0;0;40;6;4;0;6;0;0;1;0;0;68;57;125
14.01.2017;10:00;0;68;6;3;3;9;0;1;0;0;1;0;55;2;1;2;7;0;1;0;0;1;91;69;160
14.01.2017;11:00;0;81;5;3;2;5;0;0;1;0;0;0;50;3;5;2;6;0;0;0;0;0;97;66;163
14.01.2017;12:00;0;79;5;2;4;3;0;0;0;0;0;0;72;3;2;0;10;1;1;0;0;0;93;89;182
14.01.2017;13:00;0;94;5;3;1;3;1;0;1;0;0;0;74;3;1;0;3;0;1;0;0;0;108;82;190
14.01.2017;14:00;0;79;3;2;2;9;0;0;1;0;0;0;99;2;0;2;11;0;0;2;0;0;96;116;212
14.01.2017;15:00;0;96;3;1;3;8;0;0;0;0;1;0;82;1;1;1;6;0;0;1;0;0;112;92;204
14.01.2017;16:00;2;99;3;1;0;0;0;0;2;0;0;2;90;7;0;1;1;1;0;0;0;0;107;102;209
14.01.2017;17:00;0;92;2;1;0;2;0;0;2;0;0;0;99;5;1;0;0;0;0;0;0;0;99;105;204
14.01.2017;18:00;0;70;2;2;0;0;0;0;0;0;0;0;86;1;2;0;0;0;0;0;0;0;74;89;163
14.01.2017;19:00;0;63;1;0;0;0;0;0;1;0;0;0;70;1;0;0;0;0;0;1;0;0;65;72;137
14.01.2017;20:00;0;40;0;0;1;1;0;0;0;0;0;0;45;0;0;0;0;0;0;0;0;0;42;45;87
14.01.2017;21:00;0;40;0;0;0;0;0;0;1;0;0;0;28;3;1;0;0;0;0;2;0;0;41;34;75
14.01.2017;22:00;0;27;0;0;0;0;0;1;1;0;0;0;31;0;0;0;0;0;0;1;0;0;29;32;61
14.01.2017;23:00;0;24;0;0;0;0;0;0;2;0;0;0;18;0;0;0;0;0;0;0;0;0;26;18;44
The issue you have, if you look at your data closely, is actually that you have several values per day (i.e., hourly data), but as.Date() produces only a date with no time. Therefore, the figure you're plotting is correct because you're plotting all values on the same day together.
To fix this, you need to produce a column of the hourly (date and time) data to use in your plots. I am particularly fond of the lubridate package, so I've used that here to help:
library(lubridate)
library(ggplot2)
daily_data$datetime <- paste(daily_data$datum, daily_data$sat, sep=" ")
daily_data$Date <- dmy_hm(daily_data$datetime)
ggplot(daily_data, aes(Date, total)) +
geom_line() +
ylab("opterecenje") +
xlab("") # total is the column with numbers that represent some data for a given date.
Related
Time series straight line plotting
I'm quite new to R and I have this task I need to complete. I would like top produce a plot like the following. I did it with excel but I don't like the appearance, I think I can get a better plot using ggplot2. The sample data for this plot: date,A,B,C,D,E,F,G,H 1/1/1965,1,,,4,,6,7, 1/2/1965,1,,,4,,6,7, 1/3/1965,1,,,4,,6,7, 1/4/1965,1,,,4,,6,7, 1/5/1965,1,,,4,,6,7, 1/6/1965,1,,,4,,6,7, 1/7/1965,1,,,4,,6,7, 1/8/1965,1,,,4,,6,7, 1/9/1965,1,,,4,,6,7, 1/10/1965,1,,,4,,6,7, 1/11/1965,1,,,4,,6,7, 1/12/1965,1,,,4,,6,7, 1/13/1965,1,,,4,,6,7, 1/14/1965,1,,,4,,6,7, 1/15/1965,1,,,4,,6,7, 1/16/1965,1,2,,4,,6,7, 1/17/1965,1,2,,4,,6,7, 1/18/1965,1,2,,4,,6,7, 1/19/1965,1,2,,4,,6,7, 1/20/1965,1,2,,4,,6,7, 1/21/1965,1,2,,4,,6,7,8 1/22/1965,1,2,,4,,6,7,8 1/23/1965,1,2,,4,,6,7,8 1/24/1965,1,2,,4,,6,7,8 1/25/1965,1,2,,4,,6,7,8 1/26/1965,1,2,,4,,6,7,8 1/27/1965,1,2,,4,,6,7,8 1/28/1965,1,2,,4,,6,7,8 1/29/1965,1,2,,4,,6,7,8 1/30/1965,1,2,,4,,6,7,8 1/31/1965,1,2,,4,,6,7,8 2/1/1965,1,2,,4,,6,7,8 2/2/1965,1,2,,4,,6,7,8 2/3/1965,1,2,,4,,6,7,8 2/4/1965,1,2,,4,,6,7,8 2/5/1965,1,2,,4,,6,7,8 2/6/1965,1,2,,4,,6,7,8 2/7/1965,1,2,,4,,6,7,8 2/8/1965,1,2,,4,,6,7,8 2/9/1965,1,2,,4,,6,7,8 2/10/1965,1,2,,4,,6,7,8 2/11/1965,1,2,,4,,6,7,8 2/12/1965,1,2,,4,,6,7,8 2/13/1965,1,2,,4,,6,7,8 2/14/1965,1,2,,4,,6,7,8 2/15/1965,1,2,,4,,6,7,8 2/16/1965,1,2,,4,,6,7,8 2/17/1965,1,2,,4,,6,7,8 2/18/1965,1,2,,4,,6,7,8 2/19/1965,1,2,,4,,6,7,8 2/20/1965,1,2,,4,,6,7,8 2/21/1965,1,2,,4,,6,7,8 2/22/1965,1,2,,4,,6,7,8 2/23/1965,1,2,,4,,6,7,8 2/24/1965,1,2,,4,,6,7,8 2/25/1965,1,2,,4,,6,7,8 2/26/1965,1,2,,4,,6,7,8 2/27/1965,1,2,,4,,6,7,8 2/28/1965,1,2,,4,,6,7,8 3/1/1965,1,2,,4,,6,7,8 3/2/1965,1,2,,4,,6,7,8 3/3/1965,1,2,,4,,6,7,8 3/4/1965,1,2,,4,,6,7,8 3/5/1965,1,2,,4,,6,7,8 3/6/1965,1,2,,4,,6,7,8 3/7/1965,1,2,,4,,6,7,8 3/8/1965,1,2,,4,,6,7,8 3/9/1965,1,2,,4,,6,7,8 3/10/1965,1,2,,4,,6,7,8 3/11/1965,1,2,,4,,6,7,8 3/12/1965,1,2,,4,,6,7,8 3/13/1965,1,2,,4,,6,7,8 3/14/1965,1,2,,4,,6,7,8 3/15/1965,1,2,,4,,6,7,8 3/16/1965,1,2,,4,,6,7,8 3/17/1965,1,2,,4,,6,7,8 3/18/1965,1,2,,4,,6,7,8 3/19/1965,1,2,,4,,6,7,8 3/20/1965,1,2,,4,,6,7,8 3/21/1965,1,2,,4,,6,7,8 3/22/1965,1,2,,4,,6,7,8 3/23/1965,1,2,,4,,6,7,8 3/24/1965,1,,,4,,6,7,8 3/25/1965,1,,,4,,6,,8 3/26/1965,1,,,4,,6,,8 3/27/1965,1,,,4,,6,,8 3/28/1965,1,,,4,,6,,8 3/29/1965,1,,,4,,6,,8 3/30/1965,1,,,4,,6,,8 3/31/1965,1,,,4,,6,,8 4/1/1965,1,,,4,,6,,8 4/2/1965,1,,,4,,6,,8 4/3/1965,1,,,4,,6,,8 4/4/1965,1,,,4,,6,,8 4/5/1965,1,,,4,,6,,8 4/6/1965,1,,,4,,6,,8 4/7/1965,1,,,4,,6,,8 4/8/1965,1,,,4,,6,,8 4/9/1965,1,,,4,,6,,8 4/10/1965,1,,,4,,6,,8 4/11/1965,1,,,4,,6,,8 4/12/1965,1,,,4,,6,,8 4/13/1965,1,,,4,,6,,8 4/14/1965,1,,,4,,6,,8 4/15/1965,1,,,4,,6,,8 4/16/1965,1,,,4,,6,,8 4/17/1965,1,,,4,,6,,8 4/18/1965,1,,,4,,6,,8 4/19/1965,1,,,4,,6,,8 4/20/1965,1,,,4,,6,,8 4/21/1965,1,,,4,,6,,8 4/22/1965,1,,,4,,6,,8 4/23/1965,1,,,4,,6,,8 4/24/1965,1,,,4,,6,,8 4/25/1965,1,,,4,,6,,8 4/26/1965,1,,,4,,6,,8 4/27/1965,1,,,4,,6,,8 4/28/1965,1,,,4,,6,,8 4/29/1965,1,,,4,,6,,8 4/30/1965,1,,,4,,,,8 5/1/1965,1,,,4,,6,,8 5/2/1965,1,2,,4,,6,,8 5/3/1965,1,2,,4,5,6,,8 5/4/1965,1,2,,4,5,6,,8 5/5/1965,1,2,,4,5,6,,8 5/6/1965,1,2,,4,5,6,,8 5/7/1965,1,2,,4,5,6,,8 5/8/1965,1,2,,4,5,6,,8 5/9/1965,1,2,,4,5,6,,8 5/10/1965,1,2,,4,5,6,,8 5/11/1965,1,2,,4,5,6,,8 5/12/1965,1,2,,4,5,6,,8 5/13/1965,1,2,,4,5,6,,8 5/14/1965,1,2,,4,5,6,,8 5/15/1965,1,2,,4,5,6,,8 5/16/1965,1,2,,4,5,6,,8 5/17/1965,1,2,,4,5,6,,8 5/18/1965,1,2,,4,5,6,,8 5/19/1965,1,2,,4,5,6,,8 5/20/1965,1,2,,4,5,6,,8 5/21/1965,1,2,,4,5,6,,8 5/22/1965,1,2,,4,5,6,,8 5/23/1965,1,2,,4,5,6,,8 5/24/1965,1,2,,4,5,6,,8 5/25/1965,1,2,,4,5,6,,8 5/26/1965,1,2,,4,5,6,,8 5/27/1965,1,2,,4,5,6,,8 5/28/1965,1,2,,4,5,6,,8 5/29/1965,1,2,,4,5,6,,8 5/30/1965,1,2,,4,5,6,,8 5/31/1965,1,2,,4,5,6,,8 6/1/1965,1,2,,4,5,6,,8 6/2/1965,1,2,,4,5,6,,8 6/3/1965,1,2,,4,5,6,,8 6/4/1965,1,2,,4,5,6,,8 6/5/1965,1,2,,4,5,6,,8 6/6/1965,1,2,,4,5,6,,8 6/7/1965,1,2,,4,5,6,,8 6/8/1965,1,2,,4,5,6,,8 6/9/1965,1,2,,4,5,6,,8 6/10/1965,1,2,,4,5,6,,8 6/11/1965,1,2,,4,5,6,,8 6/12/1965,1,2,,4,5,6,,8 6/13/1965,1,2,,4,5,6,,8 6/14/1965,1,2,,4,5,6,,8 6/15/1965,1,2,,4,5,6,,8 6/16/1965,1,2,,4,5,6,,8 6/17/1965,1,2,,4,5,6,,8 6/18/1965,1,2,,4,5,6,,8 6/19/1965,1,2,,4,5,6,,8 6/20/1965,1,2,,4,5,6,,8 6/21/1965,1,2,,4,5,6,,8 6/22/1965,1,2,,4,5,6,,8 6/23/1965,1,2,,4,5,6,,8 6/24/1965,1,2,,4,5,6,,8 6/25/1965,1,2,,4,5,6,,8 6/26/1965,1,2,,4,5,6,,8 6/27/1965,1,2,,4,5,6,,8 6/28/1965,1,2,,4,5,6,,8 6/29/1965,1,2,,4,5,6,,8 6/30/1965,1,2,,4,5,6,,8 7/1/1965,1,2,,4,5,6,,8 7/2/1965,1,2,,4,5,6,,8 7/3/1965,1,2,,4,5,6,,8 7/4/1965,1,2,,4,5,6,,8 7/5/1965,1,2,,4,5,6,,8 7/6/1965,1,2,,4,5,6,,8 7/7/1965,1,2,,4,5,6,,8 7/8/1965,1,2,,4,5,6,,8 7/9/1965,1,2,,4,5,6,,8 7/10/1965,,2,,4,5,6,,8 7/11/1965,,2,,4,5,6,,8 7/12/1965,,2,,4,5,6,,8 7/13/1965,,2,,4,5,6,,8 7/14/1965,,2,,4,5,6,,8 7/15/1965,,2,,4,5,6,,8 7/16/1965,,2,,4,5,6,,8 7/17/1965,,2,,4,5,6,,8 7/18/1965,,2,,4,5,6,,8 7/19/1965,,2,,4,5,6,,8 7/20/1965,,2,,4,5,6,,8 7/21/1965,,2,,4,5,6,,8 7/22/1965,,2,,4,5,6,,8 7/23/1965,,2,,4,5,6,,8 7/24/1965,,2,,4,5,6,,8 7/25/1965,,2,,4,5,6,,8 7/26/1965,,2,,4,5,6,,8 7/27/1965,,2,,4,5,6,,8 7/28/1965,,2,,4,5,6,,8 7/29/1965,,2,,4,5,6,,8 7/30/1965,,2,,4,5,6,,8 7/31/1965,,2,,4,5,6,,8 8/1/1965,,2,,4,5,6,,8 8/2/1965,,2,,4,5,6,,8 8/3/1965,,2,,4,5,6,,8 8/4/1965,,2,,4,5,6,,8 8/5/1965,,2,,4,5,6,,8 8/6/1965,,2,,4,5,6,,8 8/7/1965,,2,,4,5,6,,8 8/8/1965,,2,,4,5,6,,8 8/9/1965,,2,,4,5,6,,8 8/10/1965,,2,,4,5,6,,8 8/11/1965,,2,,4,5,6,,8 8/12/1965,,2,,4,5,6,,8 8/13/1965,,2,,4,5,6,,8 8/14/1965,,2,,4,5,6,,8 8/15/1965,,2,,4,5,6,,8 8/16/1965,,2,,4,5,6,,8 8/17/1965,,2,,4,5,6,,8 8/18/1965,,2,,4,5,6,,8 8/19/1965,,2,,4,5,6,,8 8/20/1965,,2,,4,5,6,,8 8/21/1965,,2,,4,5,6,,8 8/22/1965,,2,,4,5,6,,8 8/23/1965,,2,,4,5,6,,8 8/24/1965,,2,,4,5,6,,8 8/25/1965,,2,,4,5,6,,8 8/26/1965,,2,,4,5,6,,8 8/27/1965,,2,,4,5,6,,8 8/28/1965,,2,,4,5,6,,8 8/29/1965,,2,,4,5,6,,8 8/30/1965,,2,,4,5,6,,8 8/31/1965,,2,,4,5,6,,8 9/1/1965,,2,,4,5,6,,8 9/2/1965,,2,,4,5,6,,8 9/3/1965,,2,,4,5,6,,8 9/4/1965,,2,,4,5,6,,8 9/5/1965,1,2,,,5,,7,8 9/6/1965,1,2,,,5,,7,8 9/7/1965,1,2,,,5,,7,8 9/8/1965,1,2,,,5,,7,8 9/9/1965,1,2,,,5,,7,8 9/10/1965,1,2,,,5,,7,8 9/11/1965,1,2,,,5,,7,8 9/12/1965,1,2,,,5,,7,8 9/13/1965,1,2,,,5,,7,8 9/14/1965,1,2,,,5,,7,8 9/15/1965,1,2,,,5,,7,8 9/16/1965,1,2,,,5,,7,8 9/17/1965,1,2,,,5,,7,8 9/18/1965,1,2,,,5,,7,8 9/19/1965,1,2,,,5,,7,8 9/20/1965,1,2,,,5,,7,8 9/21/1965,1,2,,,5,,7,8 9/22/1965,1,2,,,5,,7,8 9/23/1965,1,2,,,5,,7,8 9/24/1965,1,2,,,5,,7,8 9/25/1965,1,2,,,5,,7,8 9/26/1965,1,2,,,5,,7,8 9/27/1965,1,2,,,5,,7,8 9/28/1965,1,2,,,5,,7,8 9/29/1965,1,2,,,5,,7,8 9/30/1965,1,2,,,5,,7,8 10/1/1965,1,2,,,5,,7,8 10/2/1965,1,2,,,5,,7,8 10/3/1965,1,2,,,5,,7,8 10/4/1965,1,2,,,5,,7,8 10/5/1965,1,2,,,5,,7,8 10/6/1965,1,2,,,5,,7,8 10/7/1965,1,2,,,5,,7,8 10/8/1965,1,2,,,5,,7,8 10/9/1965,1,2,,,5,,7,8 10/10/1965,1,2,,,5,,7,8 10/11/1965,1,2,,,5,,7,8 10/12/1965,1,2,,,5,,7,8 10/13/1965,1,2,,,5,,7,8 10/14/1965,1,2,,,5,,7,8 10/15/1965,1,2,,,5,,7,8 10/16/1965,1,2,,,5,,7,8 10/17/1965,1,2,,,5,,7,8 10/18/1965,1,2,,,5,,7,8 10/19/1965,1,2,,,5,,7,8 10/20/1965,1,2,,,5,,7,8 10/21/1965,1,2,,,5,,7,8 10/22/1965,1,2,,,5,,7,8 10/23/1965,1,2,,,5,,7,8 10/24/1965,1,2,,,5,,7,8 10/25/1965,1,2,,,5,,7,8 10/26/1965,1,2,,,5,,7,8 10/27/1965,1,2,,,5,,7,8 10/28/1965,1,2,,,5,,7,8 10/29/1965,1,2,,,5,,7,8 10/30/1965,1,2,,,5,,7,8 10/31/1965,1,2,,,5,,7,8 11/1/1965,1,2,,,5,,7,8 11/2/1965,1,2,,,5,,7,8 11/3/1965,1,2,,,5,,7,8 11/4/1965,1,2,,,5,,7,8 11/5/1965,1,2,,,5,,7,8 11/6/1965,1,2,,,5,,7,8 11/7/1965,1,2,,,5,,7,8 11/8/1965,1,2,,,5,,7,8 11/9/1965,1,2,,,5,,7,8 11/10/1965,1,2,,,5,,7,8 11/11/1965,1,2,,,5,,7,8 11/12/1965,1,2,,,5,,7,8 11/13/1965,1,2,,,5,,7,8 11/14/1965,1,2,,,5,,7,8 11/15/1965,1,2,,,5,,7,8 11/16/1965,1,2,,,5,,7,8 11/17/1965,1,2,,,5,,7,8 11/18/1965,1,2,,,5,,7,8 11/19/1965,1,2,,,5,,7,8 11/20/1965,1,2,,,5,,7,8 11/21/1965,1,2,,,5,,7,8 11/22/1965,1,2,,,5,,7,8 11/23/1965,1,2,,,5,,7,8 11/24/1965,1,2,3,,5,6,7,8 11/25/1965,1,2,3,,5,6,7,8 11/26/1965,1,2,3,,5,6,7,8 11/27/1965,1,2,3,,5,6,7,8 11/28/1965,1,2,3,,5,6,7,8 11/29/1965,1,2,3,,5,6,7,8 11/30/1965,1,2,3,,5,6,7,8 12/1/1965,1,2,3,,5,6,7,8 12/2/1965,1,2,3,,5,6,7,8 12/3/1965,1,2,3,,5,6,7,8 12/4/1965,1,2,3,,5,6,7,8 12/5/1965,1,2,3,,5,6,7,8 12/6/1965,1,2,3,,5,6,7,8 12/7/1965,1,2,3,,5,6,7,8 12/8/1965,1,2,3,,5,6,7,8 12/9/1965,1,2,3,,5,6,7,8 12/10/1965,1,2,3,,5,6,7,8 12/11/1965,1,2,3,,5,6,7,8 12/12/1965,1,2,3,,5,6,7,8 12/13/1965,1,2,3,,5,6,7,8 12/14/1965,1,2,3,,5,6,7,8 12/15/1965,1,2,3,,5,6,7,8 12/16/1965,1,2,3,,5,6,7,8 12/17/1965,1,2,3,,5,6,7,8 12/18/1965,1,2,3,,5,6,7,8 12/19/1965,1,2,3,,5,6,7,8 12/20/1965,1,2,3,,5,6,7,8 12/21/1965,1,2,3,,5,6,7,8 12/22/1965,1,2,3,,,6,7,8 12/23/1965,1,2,3,,,6,7,8 12/24/1965,1,2,3,,,6,7,8 12/25/1965,1,2,3,,,6,7,8 12/26/1965,1,2,3,,,6,7,8 12/27/1965,1,2,3,,,6,7,8 12/28/1965,1,2,3,,,6,7,8 12/29/1965,1,2,3,,,6,7,8 12/30/1965,1,2,3,,,6,7,8 12/31/1965,1,2,3,,,6,7,8 My Data frame can be found in the following link https://drive.google.com/file/d/1IQl_KKNONI7WiBloSmS_ZepVlakRBpUt/view?usp=sharing
Try reshaping and using geom_line():
library(dplyr)
library(tidyr)
library(ggplot2)
#Load data
df <- read.csv('SampleData.csv',stringsAsFactors = F)
#Code
df %>%
mutate(date=as.Date(date,'%m/%d/%Y')) %>%
pivot_longer(-date) %>%
ggplot(aes(x=date,y=value,group=name,color=name))+
geom_line()+
scale_x_date(date_labels = '%Y-%m-%d',breaks = '5 year')+
scale_y_continuous(breaks = seq(0,10,by=1))
Output:
Convert set of coordinates in specyfic format into sf object (polygon) in R
I have data frame that contains variable with set of coordinates, which supposed to be a polygon. I’d like to try to convert it into sf geometry polygon, but I have little idea how to achieve this goal.
Data looks like this:
a <- c("[30.523311, 50.40919], [30.523111, 50.409093], [30.522475, 50.408781], [30.522484, 50.408771], [30.523591, 50.407804], [30.524049, 50.407403], [30.526558, 50.406062], [30.526791, 50.405939], [30.527487, 50.4057], [30.527787, 50.405564], [30.528793, 50.405209], [30.528718, 50.404554], [30.530223, 50.404552], [30.530133, 50.404363], [30.529104, 50.404185], [30.529018, 50.403965], [30.528933, 50.403337], [30.529986, 50.403227], [30.531422, 50.403077], [30.531336, 50.402585], [30.531743, 50.402489], [30.531612, 50.401577], [30.531505, 50.401447], [30.531483, 50.401211], [30.531489, 50.40103], [30.531873, 50.400999], [30.531932, 50.400429], [30.531961, 50.400257], [30.531965, 50.400233], [30.532439, 50.400174], [30.533329, 50.400062], [30.533369, 50.399868], [30.533435, 50.399542], [30.533478, 50.39954], [30.534231, 50.399498], [30.534229, 50.399863], [30.5354583263, 50.4005476511], [30.5361664295, 50.4004929412], [30.5361825227, 50.4008211999], [30.5366814136, 50.4008656514], [30.537257, 50.400902], [30.537703, 50.400882], [30.538053, 50.400829], [30.538949, 50.40062], [30.539305, 50.400619], [30.539605, 50.40051], [30.540023, 50.40049], [30.54056, 50.400838], [30.540828, 50.400443], [30.541166, 50.400788], [30.541501, 50.401137], [30.542203, 50.40115], [30.54236, 50.40171], [30.542792, 50.401676], [30.543223, 50.401641], [30.548297, 50.400637], [30.558722, 50.398574], [30.558969, 50.398794], [30.559252, 50.399041], [30.559338, 50.399931], [30.55938, 50.400163], [30.559447, 50.400539], [30.559532, 50.400916], [30.559051, 50.400983], [30.555229, 50.401518], [30.555258, 50.402649], [30.554082, 50.402791], [30.553204, 50.402945], [30.552119, 50.40318], [30.551907, 50.403224], [30.551414, 50.403334], [30.55056, 50.403525], [30.550566, 50.403544], [30.547881, 50.404161], [30.547819, 50.404175], [30.546416, 50.404497], [30.544978, 50.404827], [30.54398, 50.404963], [30.543771, 50.404992], [30.54248, 50.405173], [30.540812, 50.405404], [30.538729, 50.405488], [30.537509, 50.405536], [30.536298, 50.405576], [30.534761, 50.405593], [30.53247, 50.405613], [30.530065, 50.40586], [30.528, 50.406381], [30.527158, 50.406595], [30.525696, 50.407249], [30.52562, 50.407313], [30.525481, 50.40743], [30.525423, 50.407478], [30.525274, 50.4076], [30.524885, 50.407919], [30.524221, 50.408445], [30.523308, 50.409165], [30.52333, 50.409175], [30.523311, 50.40919]")
b <- c("[30.517824, 50.405568], [30.517689, 50.40543], [30.517727, 50.405406], [30.517798, 50.405361], [30.517947, 50.405265], [30.518736, 50.405337], [30.519452, 50.405434], [30.520105, 50.405521], [30.52047, 50.405706], [30.520844, 50.405896], [30.521225, 50.405894], [30.521758, 50.405744], [30.524134, 50.404085], [30.524483, 50.403844], [30.524582, 50.403776], [30.524901, 50.403571], [30.524915, 50.403562], [30.524967, 50.403529], [30.525058, 50.40347], [30.525317, 50.403308], [30.525573, 50.403147], [30.526089, 50.402824], [30.526607, 50.4025], [30.527259, 50.402092], [30.527528, 50.401796], [30.528232, 50.40102], [30.528482, 50.400748], [30.528687, 50.400524], [30.528731, 50.400476], [30.528953, 50.400242], [30.529032, 50.400158], [30.529059, 50.400054], [30.529836, 50.399809], [30.530864, 50.399677], [30.530971, 50.39987], [30.53074, 50.400041], [30.53095, 50.400096], [30.53118, 50.401053], [30.531489, 50.40103], [30.531483, 50.401211], [30.531505, 50.401447], [30.531612, 50.401577], [30.531743, 50.402489], [30.531336, 50.402585], [30.531422, 50.403077], [30.529986, 50.403227], [30.528933, 50.403337], [30.529018, 50.403965], [30.529104, 50.404185], [30.530133, 50.404363], [30.530223, 50.404552], [30.528718, 50.404554], [30.528793, 50.405209], [30.527787, 50.405564], [30.527487, 50.4057], [30.526791, 50.405939], [30.526558, 50.406062], [30.524049, 50.407403], [30.523591, 50.407804], [30.522484, 50.408771], [30.519427, 50.407208], [30.519404, 50.407185], [30.519397, 50.407177], [30.518728, 50.406494], [30.518557, 50.406319], [30.517824, 50.405568]")
polygons<- as.data.frame(c(a,b), ncol=1, nrow=2)%>%
rename(polygon=1)
You need to parse these text strings into numbers, then convert into polygons. This function creates an sfc object that contains the polygons these vectors describe:
polygonise <- function(strings) {
do.call(c, lapply(strings, function(x) {
cutstring <- unlist(strsplit(x, "\\[|\\]"))
cutstring <- cutstring[nchar(cutstring) > 3]
sf::st_sfc(sf::st_polygon(list(do.call(rbind,
lapply(strsplit(cutstring, ", "), as.numeric)))))
}))
}
So, for example, we can do:
polygons$geometry <- polygonise(polygons$polygon)
ggplot(polygons) + geom_sf(aes(geometry = geometry), fill = "forestgreen")
Your solution works perfectly on the example I provided. However, when I try to use your function on real data I get an error ("'MtrxSet(x, dim, type = "POLYGON", needClosed = TRUE)': polygons not (all) closed ". Perhaps my coordinates are flawed? Sorry for that, but I’m pretty new to R.
a <- read_csv("https://raw.githubusercontent.com/slawomirmatuszak/Covid.UA/master/dzielnice.csv")
b<- polygonise(a)
geom_area fill not working ggplot2
I'm trying to do a stacked area plot in ggplot2. I seem to have followed the code correctly but the output is different. The code seems to work but the areas aren't exactly filled. Anything wrong with my code? or is it the ggplot2 package? Code below: ggplot(stacks, aes(x=year, y=remit, fill=polcat3, colour=polcat3) ) + geom_area(aes(fill=polcat3), position='fill') my plot My data year,polcat3,remit 2000,Auto,57131999.97 2000,Auto,139199996.9 2000,Auto,4821840600 2000,Auto,10352872.85 2000,Auto,2852000000 2000,Auto,2161018799 2000,Auto,103622840.9 2000,Auto,39000000 2000,Auto,1075000000 2000,Auto,56885414.12 2000,Auto,180000000 2000,Auto,1340000000 2000,Demo,86343658.45 2000,Demo,87064697.27 2000,Demo,1967528809 2000,Demo,58235450.74 2000,Demo,126870002.7 2000,Demo,1649354980 2000,Demo,26245557.79 2000,Demo,1610122925 2000,Demo,135975250.2 2000,Demo,1838800049 2000,Demo,1322301025 2000,Demo,596200012.2 2000,Demo,641289794.9 2000,Demo,280652252.2 2000,Demo,1190199951 2000,Demo,12883465820 2000,Demo,891700012.2 2000,Demo,49942501.07 2000,Demo,72300003.05 2000,Demo,178600006.1 2000,Demo,7524542969 2000,Demo,73163955.69 2000,Demo,12000000 2000,Demo,177000000 2000,Demo,746886.1938 2000,Demo,9450584.412 2000,Demo,111498191.8 2000,Demo,16399999.62 2000,Demo,6961000000 2000,Demo,278000000 2000,Demo,96000000 2000,Demo,1275199951 2000,Demo,233485305.8 2000,Demo,1765400024 2000,Demo,1696785400 2000,Demo,38100002.29 2000,Demo,4560000000 2000,Demo,33000000 2000,Demo,17000000 2000,Demo,343705993.7 2000,Demo,13300000.19 2000,Semi,597799987.8 2000,Semi,67335105.9 2000,Semi,119317176.8 2000,Semi,790000000 2000,Semi,53158882.14 2000,Semi,273500000 2000,Semi,32400001.53 2000,Semi,536000000 2000,Semi,1845134033 2000,Semi,121802436.8 2000,Semi,537900024.4 2000,Semi,8844514.847 2000,Semi,1165826782 2000,Semi,478087554.9 2000,Semi,342368408.2 2000,Semi,14424637.79 2000,Semi,1391800049 2000,Semi,717663818.4 2000,Semi,7226507.187 2000,Semi,34234287.26 2000,Semi,795953369.1 2000,Semi,8000015.259 2000,Semi,238100006.1 2000,Semi,1288000000 2001,Auto,104125000 2001,Auto,149199996.9 2001,Auto,6538500000 2001,Auto,12119418.14 2001,Auto,2911399902 2001,Auto,3260920166 2001,Auto,117284111 2001,Auto,39011703.49 2001,Auto,1461000000 2001,Auto,52876461.03 2001,Auto,170000000 2001,Auto,1100000000 2001,Demo,189600006.1 2001,Demo,83602699.28 2001,Demo,2104551514 2001,Demo,826200317.4 2001,Demo,135279998.8 2001,Demo,1774780029 2001,Demo,25919340.13 2001,Demo,2056358887 2001,Demo,198443420.4 2001,Demo,1981800049 2001,Demo,1420558105 2001,Demo,45900001.53 2001,Demo,633753601.1 2001,Demo,746951049.8 2001,Demo,296019500.7 2001,Demo,1046000000 2001,Demo,14273018550 2001,Demo,1058300049 2001,Demo,1184989990 2001,Demo,401579681.4 2001,Demo,79150001.53 2001,Demo,112400001.5 2001,Demo,243320007.3 2001,Demo,10146262700 2001,Demo,88167266.85 2001,Demo,25000000 2001,Demo,215000000 2001,Demo,8815530.777 2001,Demo,146985153.2 2001,Demo,73099998.47 2001,Demo,753211425.8 2001,Demo,8769000000 2001,Demo,263799987.8 2001,Demo,116000000 2001,Demo,1402890015 2001,Demo,304678405.8 2001,Demo,1926000000 2001,Demo,1252447510 2001,Demo,40900001.53 2001,Demo,2786000000 2001,Demo,141000000 2001,Demo,6038.0301 2001,Demo,19000000 2001,Demo,297390441.9 2001,Demo,11899999.62 2001,Semi,699299987.8 2001,Semi,49915523.53 2001,Semi,116004821.8 2001,Semi,670000000 2001,Semi,18313718.8 2001,Semi,181300003.1 2001,Semi,682000000 2001,Semi,2011334106 2001,Semi,171272735.6 2001,Semi,550000000 2001,Semi,11113728.52 2001,Semi,746885.9553 2001,Semi,367105255.1 2001,Semi,21972925.19 2001,Semi,1166599976 2001,Semi,5924500.942 2001,Semi,68502540.59 2001,Semi,927148376.5 2001,Semi,15253000.26 2001,Semi,348574798.6 2001,Semi,1294612549 2002,Auto,181707000.7 2002,Auto,140300003.1 2002,Auto,10292581917.288 2002,Auto,2893100098 2002,Auto,204929046.6 2002,Auto,2877152588 2002,Auto,106488113.4 2002,Auto,678485900.9 2002,Auto,39011703.49 2002,Auto,3554000000 2002,Auto,44669322.97 2002,Auto,135000000 2002,Auto,1770000000 2002,Demo,733570007.3 2002,Demo,206630004.9 2002,Demo,76230842.59 2002,Demo,2858057861 2002,Demo,1176951538 2002,Demo,112900001.5 2002,Demo,2448964111 2002,Demo,27150941.85 2002,Demo,2479942627 2002,Demo,250646484.4 2002,Demo,2194300049 2002,Demo,1438022827 2002,Demo,43520000.46 2002,Demo,1600192017 2002,Demo,438744873 2002,Demo,278989471.4 2002,Demo,1258917603 2002,Demo,15735736330 2002,Demo,1260300049 2002,Demo,433000000 2002,Demo,1309079956 2002,Demo,389541656.5 2002,Demo,109248046.9 2002,Demo,138399993.9 2002,Demo,323739990.2 2002,Demo,11029448240 2002,Demo,137653686.5 2002,Demo,56312149.05 2002,Demo,215000000 2002,Demo,7959585.667 2002,Demo,84599998.47 2002,Demo,705382507.3 2002,Demo,9735000000 2002,Demo,201500000 2002,Demo,143000000 2002,Demo,1359354980 2002,Demo,344496490.5 2002,Demo,1953699951 2002,Demo,1379995483 2002,Demo,79099998.47 2002,Demo,1936000000 2002,Demo,209000000 2002,Demo,36053001.4 2002,Demo,19000000 2002,Demo,288378570.6 2002,Demo,12399999.62 2002,Semi,58734134.67 2002,Semi,120092422.5 2002,Semi,1176490.545 2002,Semi,1070000000 2002,Semi,32986892.7 2002,Semi,230453414.9 2002,Semi,851000000 2002,Semi,2143018799 2002,Semi,36716598.51 2002,Semi,843693.614 2002,Semi,435000000 2002,Semi,18965887.07 2002,Semi,1208900024 2002,Semi,5622274.399 2002,Semi,103212654.1 2002,Semi,1070313232 2002,Semi,12000000 2002,Semi,422582519.5 2002,Semi,1294000000 2003,Auto,170957000.7 2003,Auto,222399993.9 2003,Auto,14542468993.9088 2003,Auto,2960899902 2003,Auto,147501953.1 2003,Auto,3613916504 2003,Auto,85281295.78 2003,Auto,771072143.6 2003,Auto,39011703.49 2003,Auto,3964000000 2003,Auto,65225296.02 2003,Auto,889000000 2003,Auto,2100000000 2003,Demo,888748596.2 2003,Demo,273420013.4 2003,Demo,55357849.12 2003,Demo,3191664795 2003,Demo,1718485474 2003,Demo,158166412.4 2003,Demo,2821291016 2003,Demo,38872653.96 2003,Demo,3076018555 2003,Demo,320879547.1 2003,Demo,2325399902 2003,Demo,1633427002 2003,Demo,65100158.69 2003,Demo,2146959961 2003,Demo,516599182.1 2003,Demo,294864593.5 2003,Demo,1488709351 2003,Demo,20999150390 2003,Demo,1398400024 2003,Demo,538000000 2003,Demo,556885986.3 2003,Demo,114833999.6 2003,Demo,173100006.1 2003,Demo,486630004.9 2003,Demo,16653685550 2003,Demo,153798950.2 2003,Demo,128600006.1 2003,Demo,215000000 2003,Demo,12216717.72 2003,Demo,106800003.1 2003,Demo,868500000 2003,Demo,10243000000 2003,Demo,222100006.1 2003,Demo,124000000 2003,Demo,1452994995 2003,Demo,510932281.5 2003,Demo,2122399902 2003,Demo,1607350342 2003,Demo,86800003.05 2003,Demo,729000000 2003,Demo,330000000 2003,Demo,61753292.08 2003,Demo,208000000 2003,Demo,434367492.7 2003,Demo,11800000.19 2003,Semi,53747390.75 2003,Semi,141603500.4 2003,Semi,12388155.94 2003,Semi,1750000000 2003,Semi,46470191.96 2003,Semi,235979049.7 2003,Semi,1178000000 2003,Semi,2201128418 2003,Semi,78157081.6 2003,Semi,1437750000 2003,Semi,571052612.3 2003,Semi,25481748.58 2003,Semi,1062800049 2003,Semi,6931479.454 2003,Semi,148687118.5 2003,Semi,1250253906 2003,Semi,8899999.619 2003,Semi,298785186.8 2003,Semi,1269900024 2003,Semi,36299999.24 2004,Auto,227578002.9 2004,Auto,256700012.2 2004,Auto,19578498944.7746 2004,Auto,3340699951 2004,Auto,1032000000 2004,Auto,165835662.8 2004,Auto,4220835938 2004,Auto,117792945.9 2004,Auto,822608947.8 2004,Auto,39011703.49 2004,Auto,3945000000 2004,Auto,82797576.9 2004,Auto,855000000 2004,Auto,2310000000 2004,Demo,1160672119 2004,Demo,311779998.8 2004,Demo,63013359.07 2004,Demo,3583817139 2004,Demo,1722769531 2004,Demo,210558670 2004,Demo,3575069092 2004,Demo,91521476.75 2004,Demo,3189709961 2004,Demo,319546356.2 2004,Demo,244929977.4 2004,Demo,2501199951 2004,Demo,1838041748 2004,Demo,303235168.5 2004,Demo,82371200.56 2004,Demo,2627500000 2004,Demo,664671203.6 2004,Demo,1716792236 2004,Demo,1866314941 2004,Demo,18750376950 2004,Demo,1623198120 2004,Demo,620000000 2004,Demo,627204895 2004,Demo,324496734.6 2004,Demo,229399993.9 2004,Demo,705239990.2 2004,Demo,19861748050 2004,Demo,155463485.7 2004,Demo,202500000 2004,Demo,215000000 2004,Demo,15236835.48 2004,Demo,59712108.61 2004,Demo,108900001.5 2004,Demo,1132713623 2004,Demo,11471000000 2004,Demo,238199996.9 2004,Demo,132000000 2004,Demo,2495106934 2004,Demo,632895324.7 2004,Demo,2564100098 2004,Demo,1621875977 2004,Demo,86900001.53 2004,Demo,804000000 2004,Demo,411000000 2004,Demo,69896163.94 2004,Demo,143000000 2004,Demo,522837402.3 2004,Demo,11600000.38 2004,Semi,44417327.88 2004,Semi,159198211.7 2004,Semi,14954054.83 2004,Semi,2460000000 2004,Semi,133742813.1 2004,Semi,2330324463 2004,Semi,188672546.4 2004,Semi,58446876.53 2004,Semi,1589569946 2004,Semi,801868408.2 2004,Semi,2272699951 2004,Semi,9526646.614 2004,Semi,179017074.6 2004,Semi,1431351074 2004,Semi,13798418.05 2004,Semi,310532470.7 2004,Semi,1282598999 2004,Semi,48400001.53 2005,Auto,623235000 2005,Auto,198600000 2005,Auto,8831739256.9678 2005,Auto,1032000000 2005,Auto,62021921.3283798 2005,Auto,4589226819.79732 2005,Auto,129488927.894728 2005,Auto,1211823252.50637 2005,Auto,39011703.5110533 2005,Auto,4280000000 2005,Auto,95421869.7624513 2005,Auto,823000000 2005,Auto,3150000000 2005,Demo,1289704315.92613 2005,Demo,432090000 2005,Demo,146880908.452325 2005,Demo,4642385283.80997 2005,Demo,1612912427.00584 2005,Demo,337040056.699114 2005,Demo,2805358000 2005,Demo,117891862.0425 2005,Demo,3345610321.40797 2005,Demo,420346410 2005,Demo,104817181.330673 2005,Demo,2719200000 2005,Demo,2460000000 2005,Demo,446005398.63 2005,Demo,99184576 2005,Demo,3066600000 2005,Demo,692807908.925609 2005,Demo,1912955033.65206 2005,Demo,5419620728.75305 2005,Demo,22125089480.4982 2005,Demo,1761628767.01559 2005,Demo,424991045.929029 2005,Demo,4924310615.23333 2005,Demo,599357676.667103 2005,Demo,534305076.983413 2005,Demo,381000000 2005,Demo,915080000 2005,Demo,22741840918 2005,Demo,177186056.198184 2005,Demo,180360000 2005,Demo,609194.496202642 2005,Demo,22531928.6466736 2005,Demo,17561579.0633268 2005,Demo,66369885.0351597 2005,Demo,129600000 2005,Demo,1440067536.07357 2005,Demo,13732557721.8325 2005,Demo,161300000 2005,Demo,4707910000 2005,Demo,3436552689.38484 2005,Demo,788824890.465872 2005,Demo,3028600000 2005,Demo,1187095814.94597 2005,Demo,92400000 2005,Demo,887000000 2005,Demo,2408000000 2005,Demo,76740390 2005,Demo,148000000 2005,Demo,613577432.378763 2005,Demo,13000000 2005,Semi,56642283.3408211 2005,Semi,163173835.554478 2005,Semi,11375094.5558432 2005,Semi,169999999.999993 2005,Semi,5017300000 2005,Semi,173519405.683879 2005,Semi,2420874471.08604 2005,Semi,313250258.3113 2005,Semi,31854955.6480974 2005,Semi,1975536000 2005,Semi,1116972560.32095 2005,Semi,14640084346.8768 2005,Semi,6866648.84058121 2005,Semi,192500458.801737 2005,Semi,1392672712.79192 2005,Semi,19366300 2005,Semi,321808492.95616 2005,Semi,1282599000 2005,Semi,8900000 2005,Semi,52870000
The geom_area charts are just geom_ribbon charts with the range fixed to 0. Since you have multiple overlapping points in your ribbon chart, I think you need to modify your position tag to 'stack' instead of 'fill'. You also might need to tell ggplot to provide an order to your raw y variable by using: ggplot(stacks, aes(x=year, y=order(remit), fill=polcat3, colour=polcat3) Without seeing your data finding the root cause is difficult
Your problem is you have multiple values for each year, and ggplot doesnt know what to do with them. To fix this we should aggregate our data. Here I'll use dplyr: library(dplyr) stacks2 <-stacks %>% group_by(polcat3, year) %>% summarise(remit = sum(remit)) Now with our data summed by year, the plot works nicely, using your code (modified to run on stacks2, our summarised data). You can use position = "fill" if you'd like it all to end at 1.: ggplot(stacks2, aes(x=year, y=remit, fill=polcat3, colour=polcat3) ) + geom_area(aes(fill=polcat3), position='stack')
Now you have to provide almost every value, which was set by default previously: ggplot(stacks, aes(x=year, y=order(remit), group=polcat3, fill=polcat3, colour=polcat3)+ geom_area(position='stack') Pay attention to group variable
R ggplot2, how to plot a line of the mean among the value bars?
I have the following values that I want to plot into a bar chart with R ggplot2:
chr1.0 41.744548
chr1.1 52.77
chr1.2 38.941655
chr1.3 34.448161
chr1.4 49.671
chr1.5 36.515152
chr1.6 87.289
chr1.7 52.401747
chr10.0 35.671642
chr10.1 45.259939
chr10.2 81.22807
chr11.0 27.639752
chr11.1 40.451128
chr11.2 32.051282
chr11.3 70.05
chr11.4 35.691824
chr11.5 78.409091
chr12.0 79.77707
chr12.1 73.921
chr12.2 81.6609
chr13.0 31.055901
chr13.1 66.818182
chr14.0 10.785824
chr15.0 26.8657
chr16.0 11.7161
chr16.1 87.5
chr17.0 18.56678
chr17.1 66.055
chr18.0 82.773109
chr19.0 17.453505
chr2.0 24.7734
chr2.1 47.2613
chr2.2 52.922591
chr2.3 56.661046
chr2.4 35
chr2.5 38.848921
chr20.0 41.157
chr20.1 39.712919
chr21.0 40.791738
chr22.0 25.406204
chr22.1 37.614679
chr3.0 46.141975
chr3.1 51.441578
chr3.2 13.875598
chr3.3 41.248097
chr3.4 41.810345
chr4.0 23.982558
chr4.1 85.598706
chr4.2 40.449438
chr4.3 38.028169
chr5.0 16.224189
chr5.1 51.482059
chr5.2 40.980736
chr5.3 46.693387
chr6.0 97.854785
chr6.1 62.947
chr6.2 24.276527
chr6.3 18.449198
chr7.0 17.567568
chr7.1 72.006221
chr7.2 76.049767
chr7.3 40.96
chr8.0 41.269841
chr8.1 61.185185
chr8.2 16.99
chr8.3 46.031746
chr9.0 64.723926
chr9.1 38.125
chr9.2 39.148073
I found the commands to do this:
mydata <- read.table("myfile.dat")
colnames(mydata) <- c("chromName", "precisionEUC");
ggplot(mydata, aes(x=chromName, y=precisionEUC)) +
geom_bar(aes(fill=precisionEUC>=50), colour="black",
position=position_dodge(), stat="identity") +
xlab("chromName [a-z]") +
ylab("precision LDA-Euclidean")
And that's what I got:
Among the bars, I also want to print an horizontal line that indicates the mean of the analyzed values, but I don't know how to do this.
In my case the mean is 46.23%, and so I would like to know how to modify the previous R commands to print an horizontal line, to produce something like:
Any idea on how to do this? Thanks!
Modifying your earlier code:
ggplot(mydata, aes(x=chromName, y=precisionEUC)) +
geom_bar(aes(fill=precisionEUC>=50), colour="black",
position=position_dodge(), stat="identity") +
xlab("chromName [a-z]") +
ylab("precision LDA-Euclidean") +
geom_hline(yintercept = mean(precisionEUC))
Getting graphical spikes in ggplot2
I'm trying to plot a simple graph that show the increase in wealth for two different investment strategies. When using the standard graph from R it works, but when I try to use ggplot2 I get these weird spikes in the lines.
Does any have any idea what could be causing this?
I've tried to simply the code as much as possible:
For the standard graph
ind.ts = ts(cbind(ind.passive,ind.active), start=c(insample.endstart,1),frequency=12)
plot(log(ind.ts),type="lines", col=c("blue","red"))
legend(x="topleft", legend=c("Passive","Active"), col=c("blue","red"), lty=1)
For the ggplot graph
testers=data.frame(ind.ts)
ggplot(testers, aes(date)) +
geom_line(aes(y = log(ind.passive), colour = "Passive",size="1")) +
geom_line(aes(y = log(ind.active), colour = "Active",size="1"))
The Ind.ts data set
structure(c(1, 1.026669, 1.066102329621, 1.09764083483818, 1.13073909657189,
1.17422279926966, 1.201650295415, 1.24229131005623, 1.24436842112664,
1.29675757602449, 1.29281154272065, 1.34840890311535, 1.37447769243928,
1.42187380670767, 1.43432089001159, 1.44828830683852, 1.47037760009442,
1.50663270057995, 1.51269991046518, 1.44617893190248, 1.47609892782461,
1.55880475075062, 1.60230787373457, 1.72267003659376, 1.6884336922865,
1.7947931958647, 1.80827747714523, 1.73407842742553, 1.83823238001199,
1.94879470474019, 2.03637158997651, 2.19836698633073, 2.07500122615881,
2.18823196806907, 2.11573803119891, 2.21303659177769, 2.25083083069207,
2.27667036862841, 2.44006700098487, 2.56495939036328, 2.59127330874902,
2.54554769994283, 2.64902166839781, 2.62135793511473, 2.24229384954953,
2.38534322797539, 2.58003017155629, 2.73574015247005, 2.89313822640227,
3.01496249083961, 2.92082933195062, 3.03735873897812, 3.15584610338566,
3.08028252428619, 3.25121048184135, 3.15027015001163, 3.13383204036887,
3.04763285626648, 3.24152630621501, 3.30661615444381, 3.5011906754359,
3.32628169286315, 3.26271977599422, 3.58162126961968, 3.47465973202375,
3.4018482373392, 3.48660188432426, 3.43296051433394, 3.64465402445034,
3.45302176049876, 3.43920276741325, 3.16710336206381, 3.18321124976327,
3.29673729577483, 2.9957319937214, 2.80662641161774, 3.02543381329387,
3.04403720581181, 2.97111425050939, 2.94227958670819, 2.75683358891715,
2.53472102032527, 2.58379068455775, 2.78122846592754, 2.80549468429276,
2.76500859050373, 2.71079783207832, 2.81360212906206, 2.64401226073284,
2.62324090041252, 2.43641368348514, 2.24723834303094, 2.26148583412576,
2.01595857860056, 2.19346574740491, 2.32192606890168, 2.18514140418268,
2.12856372294559, 2.09571359900937, 2.1165869064555, 2.29149953181808,
2.41150994529845, 2.44221328992199, 2.48518647497146, 2.53301388868229,
2.50620193667058, 2.64742390960003, 2.6698343529948, 2.80897010046677,
2.86115795596334, 2.89979789415863, 2.85611823847891, 2.81197121886675,
2.84980347964538, 2.90496997540435, 2.80930350417434, 2.81972040156782,
2.85016210302314, 2.89418855702854, 3.00999951213804, 3.11183381563269,
3.03729294841303, 3.09892873421517, 3.04396923311387, 2.98710484387007,
3.08097760069353, 3.08499827646243, 3.20047593194697, 3.16912086924169,
3.19575099190593, 3.14371138275373, 3.25904157854143, 3.26071346687123,
3.3485896948034, 3.35499219829987, 3.3971510302637, 3.44342702159796,
3.34200432210381, 3.3473849490624, 3.36955802696499, 3.4464479715823,
3.53637269205683, 3.65311189099431, 3.71864871831875, 3.7710110109214,
3.82954087282191, 3.75144504580245, 3.79450413203817, 3.96444479409563,
4.09921609487092, 4.03197255405065, 3.90887240000293, 3.96507025849778,
4.11298323942078, 4.18000430130714, 4.00202389816178, 3.973681564915,
3.73688988046171, 3.6132997214452, 3.59812747591486, 3.77562310430174,
3.82238042082541, 3.50029900180582, 3.47233161278139, 3.52122551422096,
3.20811814149644, 2.67119786498117, 2.47785656351383, 2.50381211101664,
2.29590056094204, 2.04999813136234, 2.23149881591877, 2.44744541933286,
2.58359925545577, 2.59022877114527, 2.78828284344458, 2.88774646903593,
2.99667515359443, 2.94310059519847, 3.1174675330616, 3.17829867703423,
3.06610473373492, 3.15882374088307, 3.34981254190434, 3.40448483240076,
3.13064849939144, 2.96722864772321, 3.17659630110655, 3.0311907820197,
3.30193068028814, 3.42901538831107, 3.42659107443153, 3.65581631094671,
3.74411158648869, 1, 1.026669, 1.066102329621, 1.09764083483818,
1.13073909657189, 1.17422279926966, 1.201650295415, 1.24229131005623,
1.24436842112664, 1.29675757602449, 1.29281154272065, 1.34840890311535,
1.37447769243928, 1.42187380670767, 1.43432089001159, 1.44828830683852,
1.47037760009442, 1.50663270057995, 1.51269991046518, 1.44617893190248,
1.47609892782461, 1.55880475075062, 1.60230787373457, 1.72267003659376,
1.6884336922865, 1.7947931958647, 1.80827747714523, 1.73407842742553,
1.83823238001199, 1.94879470474019, 2.03637158997651, 2.19836698633073,
2.07500122615881, 2.18823196806907, 2.11573803119891, 2.21303659177769,
2.25083083069207, 2.27667036862841, 2.44006700098487, 2.56495939036328,
2.59127330874902, 2.54554769994283, 2.64902166839781, 2.62135793511473,
2.24229384954953, 2.2509042579318, 2.25833224198298, 2.39462710945113,
2.53239958556629, 2.63903386731532, 2.55663795191, 2.6586375796394,
2.76235103162114, 2.69620929852, 2.84582464870417, 2.75747033083585,
2.74308185064955, 2.66763064126559, 2.83734797029354, 2.89432191753704,
3.06463539645259, 2.91153540595201, 2.85589887587967, 3.13503728790702,
3.04141253434097, 2.97767973468385, 3.05186564759377, 3.00491269460554,
3.19021063591839, 3.02247255089243, 3.01037661574376, 3.02584995154869,
3.04040428981563, 3.05344762421894, 3.06587515604951, 3.07715757662378,
3.08709679559627, 3.09641982791897, 3.10543040961822, 3.1145293207184,
3.12325000281641, 3.13012115282261, 3.13575537089769, 3.14064714927629,
3.14507546175677, 3.14941566589399, 3.15395082445288, 3.15865021118131,
2.96826256970236, 2.97253686780273, 2.97675787015501, 2.98092533117323,
2.98494958037031, 2.98900911179961, 2.99295460382719, 2.99603734706913,
2.99900342404273, 3.00194244739829, 3.00488435099674, 3.00770894228668,
3.01053618869243, 3.16820398996663, 3.20854156316688, 3.26499906051237,
3.32783396743193, 3.29260884488666, 3.47814406068718, 3.5075865501609,
3.69038091563598, 3.75894450266758, 3.80970904817611, 3.75232340078343,
3.69432373797752, 3.74402716954827, 3.81650404749639, 3.69081893620424,
3.70450449281968, 3.74449832332416, 3.80233958892455, 3.95449020757537,
4.08827852027806, 3.99034789660332, 4.07132402646909, 3.99911909485966,
3.92441155104859, 4.04774010845184, 4.05302240929337, 4.20473514411804,
4.16354135391111, 4.19852759190803, 4.1301587686014, 4.28167777318631,
4.28387427388395, 4.39932468556512, 4.40773619436392, 4.4631238073823,
4.52392047988646, 4.39067292607189, 4.39774190948286, 4.42687255189128,
4.52788935665288, 4.64603104574667, 4.79940117659781, 4.88550243370598,
4.95429519347499, 5.03119080917292, 4.92858973500145, 4.9851600879798,
5.20842546768007, 5.38548589145385, 5.29714238089044, 5.13541532685947,
5.20924719301373, 5.40357295030192, 5.49162417152709, 5.25779630592764,
5.22056059248906, 4.90946738678263, 4.91815714405724, 4.9233212090585,
4.92863839596428, 4.93573563525447, 4.94338602548911, 4.95010903048378,
4.95718768639737, 4.96184744282258, 4.96462607739057, 4.96542041756295,
4.96556938017547, 4.96611559280729, 4.9673571217055, 4.9682512459874,
4.96889711864938, 4.96964245321718, 4.97038789958516, 4.9711334577701,
5.14846373047568, 5.34266893085295, 5.24715269570716, 5.55802550431702,
5.66647925598276, 5.46645253824657, 5.63175806300315, 5.97226541900844,
6.06973876291208, 5.58152539525601, 5.29016976962365, 5.2908574916937,
5.04867378086891, 5.04933010846042, 5.24366872567485, 5.2399614518858,
5.59049391317115, 5.72551552216206), .Dim = c(194L, 2L), .Dimnames = list(
NULL, c("ind.passive", "ind.active")), .Tsp = c(1995, 2011.08333333333,
12), class = c("mts", "ts", "matrix"))
The date data set
structure(c(1995.1, 1995.2, 1995.3, 1995.4, 1995.5, 1995.6, 1995.7,
1995.8, 1995.9, 1995.1, 1995.11, 1995.12, 1996.1, 1996.2, 1996.3,
1996.4, 1996.5, 1996.6, 1996.7, 1996.8, 1996.9, 1996.1, 1996.11,
1996.12, 1997.1, 1997.2, 1997.3, 1997.4, 1997.5, 1997.6, 1997.7,
1997.8, 1997.9, 1997.1, 1997.11, 1997.12, 1998.1, 1998.2, 1998.3,
1998.4, 1998.5, 1998.6, 1998.7, 1998.8, 1998.9, 1998.1, 1998.11,
1998.12, 1999.1, 1999.2, 1999.3, 1999.4, 1999.5, 1999.6, 1999.7,
1999.8, 1999.9, 1999.1, 1999.11, 1999.12, 2000.1, 2000.2, 2000.3,
2000.4, 2000.5, 2000.6, 2000.7, 2000.8, 2000.9, 2000.1, 2000.11,
2000.12, 2001.1, 2001.2, 2001.3, 2001.4, 2001.5, 2001.6, 2001.7,
2001.8, 2001.9, 2001.1, 2001.11, 2001.12, 2002.1, 2002.2, 2002.3,
2002.4, 2002.5, 2002.6, 2002.7, 2002.8, 2002.9, 2002.1, 2002.11,
2002.12, 2003.1, 2003.2, 2003.3, 2003.4, 2003.5, 2003.6, 2003.7,
2003.8, 2003.9, 2003.1, 2003.11, 2003.12, 2004.1, 2004.2, 2004.3,
2004.4, 2004.5, 2004.6, 2004.7, 2004.8, 2004.9, 2004.1, 2004.11,
2004.12, 2005.1, 2005.2, 2005.3, 2005.4, 2005.5, 2005.6, 2005.7,
2005.8, 2005.9, 2005.1, 2005.11, 2005.12, 2006.1, 2006.2, 2006.3,
2006.4, 2006.5, 2006.6, 2006.7, 2006.8, 2006.9, 2006.1, 2006.11,
2006.12, 2007.1, 2007.2, 2007.3, 2007.4, 2007.5, 2007.6, 2007.7,
2007.8, 2007.9, 2007.1, 2007.11, 2007.12, 2008.1, 2008.2, 2008.3,
2008.4, 2008.5, 2008.6, 2008.7, 2008.8, 2008.9, 2008.1, 2008.11,
2008.12, 2009.1, 2009.2, 2009.3, 2009.4, 2009.5, 2009.6, 2009.7,
2009.8, 2009.9, 2009.1, 2009.11, 2009.12, 2010.1, 2010.2, 2010.3,
2010.4, 2010.5, 2010.6, 2010.7, 2010.8, 2010.9, 2010.1, 2010.11,
2010.12, 2011.1, 2011.2), .Tsp = c(1995, 2011.08333333333, 12
), class = "ts")
The spikes are in your data, specifically in the crummy way the dates are stored. January, February, March 1995 are coded as 1995.10, 1995.20, 1995.30, but then October, November, and December are 1995.10, 1995.11, 1995.12. When you pass your time series to ggplot you maybe saw a warning like:
Don't know how to automatically pick scale for object of type ts. Defaulting to continuous
So ggplot just converted to numerics, giving October the same x value as January and inserting Nov and Dec before February, causing your spikes. Since your samples (as far as I checked) are spaced every month, you could add a new column to your data like this:
ind.df <- as.data.frame(ind.ts)
ind.df$date <- seq(as.Date('1995-01-01'), as.Date('2011-02-01'), by = "month")
Then, ggplot works best with long-format data, so we can melt it
library(reshape2)
ind.melt <- melt(ind.df, id.vars = "date")
ggplot(ind.melt, aes(x = date, y = value, color = variable) +
geom_line(size = 1)
And the spikes are gone.
One other note, in ggplot don't put anything inside aes() that isn't mapping to a data column. In your post, inside aes() you have size = "1". You don't need the quotes around 1, and since it applies to the whole layer you should put it outside of aes().
The following example illustrates that for a very simple example, the plots from the basic R plotting and ggplot2 are the same, i.e. basic plotting does not get rid of the spikes, nor does ggplot2 introduces spikes. You need to make your example more complete, i.e. provide us with a sample of your data that reproduces the issue you see. x = 1:100 y = runif(100) y[50] = 5 plot(x, y) library(ggplot2) qplot(x, y, geom = 'line')