Data Visualization Home work 4
Antanas Kaminskas
2022-04-19
Task
Create examples of bad visualizations with your data and then, correct versions
- 4 erroneous visualizations and correct versions.
- 4 lyging/misleading vizualization and correct versions.
First task
library(pracma)## Warning: paketas 'pracma' buvo sukurtas pagal R versiją 4.1.3library(ggplot2)
library(plot3D)
library(rgl)
library(viscomplexr)Data set
k <- seq(-13, 49.8, by = 0.1)
k## [1] -13.0 -12.9 -12.8 -12.7 -12.6 -12.5 -12.4 -12.3 -12.2 -12.1 -12.0 -11.9
## [13] -11.8 -11.7 -11.6 -11.5 -11.4 -11.3 -11.2 -11.1 -11.0 -10.9 -10.8 -10.7
## [25] -10.6 -10.5 -10.4 -10.3 -10.2 -10.1 -10.0 -9.9 -9.8 -9.7 -9.6 -9.5
## [37] -9.4 -9.3 -9.2 -9.1 -9.0 -8.9 -8.8 -8.7 -8.6 -8.5 -8.4 -8.3
## [49] -8.2 -8.1 -8.0 -7.9 -7.8 -7.7 -7.6 -7.5 -7.4 -7.3 -7.2 -7.1
## [61] -7.0 -6.9 -6.8 -6.7 -6.6 -6.5 -6.4 -6.3 -6.2 -6.1 -6.0 -5.9
## [73] -5.8 -5.7 -5.6 -5.5 -5.4 -5.3 -5.2 -5.1 -5.0 -4.9 -4.8 -4.7
## [85] -4.6 -4.5 -4.4 -4.3 -4.2 -4.1 -4.0 -3.9 -3.8 -3.7 -3.6 -3.5
## [97] -3.4 -3.3 -3.2 -3.1 -3.0 -2.9 -2.8 -2.7 -2.6 -2.5 -2.4 -2.3
## [109] -2.2 -2.1 -2.0 -1.9 -1.8 -1.7 -1.6 -1.5 -1.4 -1.3 -1.2 -1.1
## [121] -1.0 -0.9 -0.8 -0.7 -0.6 -0.5 -0.4 -0.3 -0.2 -0.1 0.0 0.1
## [133] 0.2 0.3 0.4 0.5 0.6 0.7 0.8 0.9 1.0 1.1 1.2 1.3
## [145] 1.4 1.5 1.6 1.7 1.8 1.9 2.0 2.1 2.2 2.3 2.4 2.5
## [157] 2.6 2.7 2.8 2.9 3.0 3.1 3.2 3.3 3.4 3.5 3.6 3.7
## [169] 3.8 3.9 4.0 4.1 4.2 4.3 4.4 4.5 4.6 4.7 4.8 4.9
## [181] 5.0 5.1 5.2 5.3 5.4 5.5 5.6 5.7 5.8 5.9 6.0 6.1
## [193] 6.2 6.3 6.4 6.5 6.6 6.7 6.8 6.9 7.0 7.1 7.2 7.3
## [205] 7.4 7.5 7.6 7.7 7.8 7.9 8.0 8.1 8.2 8.3 8.4 8.5
## [217] 8.6 8.7 8.8 8.9 9.0 9.1 9.2 9.3 9.4 9.5 9.6 9.7
## [229] 9.8 9.9 10.0 10.1 10.2 10.3 10.4 10.5 10.6 10.7 10.8 10.9
## [241] 11.0 11.1 11.2 11.3 11.4 11.5 11.6 11.7 11.8 11.9 12.0 12.1
## [253] 12.2 12.3 12.4 12.5 12.6 12.7 12.8 12.9 13.0 13.1 13.2 13.3
## [265] 13.4 13.5 13.6 13.7 13.8 13.9 14.0 14.1 14.2 14.3 14.4 14.5
## [277] 14.6 14.7 14.8 14.9 15.0 15.1 15.2 15.3 15.4 15.5 15.6 15.7
## [289] 15.8 15.9 16.0 16.1 16.2 16.3 16.4 16.5 16.6 16.7 16.8 16.9
## [301] 17.0 17.1 17.2 17.3 17.4 17.5 17.6 17.7 17.8 17.9 18.0 18.1
## [313] 18.2 18.3 18.4 18.5 18.6 18.7 18.8 18.9 19.0 19.1 19.2 19.3
## [325] 19.4 19.5 19.6 19.7 19.8 19.9 20.0 20.1 20.2 20.3 20.4 20.5
## [337] 20.6 20.7 20.8 20.9 21.0 21.1 21.2 21.3 21.4 21.5 21.6 21.7
## [349] 21.8 21.9 22.0 22.1 22.2 22.3 22.4 22.5 22.6 22.7 22.8 22.9
## [361] 23.0 23.1 23.2 23.3 23.4 23.5 23.6 23.7 23.8 23.9 24.0 24.1
## [373] 24.2 24.3 24.4 24.5 24.6 24.7 24.8 24.9 25.0 25.1 25.2 25.3
## [385] 25.4 25.5 25.6 25.7 25.8 25.9 26.0 26.1 26.2 26.3 26.4 26.5
## [397] 26.6 26.7 26.8 26.9 27.0 27.1 27.2 27.3 27.4 27.5 27.6 27.7
## [409] 27.8 27.9 28.0 28.1 28.2 28.3 28.4 28.5 28.6 28.7 28.8 28.9
## [421] 29.0 29.1 29.2 29.3 29.4 29.5 29.6 29.7 29.8 29.9 30.0 30.1
## [433] 30.2 30.3 30.4 30.5 30.6 30.7 30.8 30.9 31.0 31.1 31.2 31.3
## [445] 31.4 31.5 31.6 31.7 31.8 31.9 32.0 32.1 32.2 32.3 32.4 32.5
## [457] 32.6 32.7 32.8 32.9 33.0 33.1 33.2 33.3 33.4 33.5 33.6 33.7
## [469] 33.8 33.9 34.0 34.1 34.2 34.3 34.4 34.5 34.6 34.7 34.8 34.9
## [481] 35.0 35.1 35.2 35.3 35.4 35.5 35.6 35.7 35.8 35.9 36.0 36.1
## [493] 36.2 36.3 36.4 36.5 36.6 36.7 36.8 36.9 37.0 37.1 37.2 37.3
## [505] 37.4 37.5 37.6 37.7 37.8 37.9 38.0 38.1 38.2 38.3 38.4 38.5
## [517] 38.6 38.7 38.8 38.9 39.0 39.1 39.2 39.3 39.4 39.5 39.6 39.7
## [529] 39.8 39.9 40.0 40.1 40.2 40.3 40.4 40.5 40.6 40.7 40.8 40.9
## [541] 41.0 41.1 41.2 41.3 41.4 41.5 41.6 41.7 41.8 41.9 42.0 42.1
## [553] 42.2 42.3 42.4 42.5 42.6 42.7 42.8 42.9 43.0 43.1 43.2 43.3
## [565] 43.4 43.5 43.6 43.7 43.8 43.9 44.0 44.1 44.2 44.3 44.4 44.5
## [577] 44.6 44.7 44.8 44.9 45.0 45.1 45.2 45.3 45.4 45.5 45.6 45.7
## [589] 45.8 45.9 46.0 46.1 46.2 46.3 46.4 46.5 46.6 46.7 46.8 46.9
## [601] 47.0 47.1 47.2 47.3 47.4 47.5 47.6 47.7 47.8 47.9 48.0 48.1
## [613] 48.2 48.3 48.4 48.5 48.6 48.7 48.8 48.9 49.0 49.1 49.2 49.3
## [625] 49.4 49.5 49.6 49.7 49.8j <- zeta(0.5 + k*1i)
j## [1] 0.443004783+0.65548310i 0.500167156+0.68530386i 0.558346891+0.71022929i
## [4] 0.617141147+0.73030853i 0.676163409+0.74562140i 0.735045463+0.75627595i
## [7] 0.793439096+0.76240594i 0.851017507+0.76416832i 0.907476446+0.76174061i
## [10] 0.962535088+0.75531833i 1.015936651+0.74511247i 1.067448777+0.73134699i
## [13] 1.116863688+0.71425635i 1.163998126+0.69408321i 1.208693104+0.67107613i
## [16] 1.250813480+0.64548749i 1.290247369+0.61757141i 1.326905412+0.58758189i
## [19] 1.360719927+0.55577109i 1.391643944+0.52238767i 1.419650152+0.48767535i
## [22] 1.444729774+0.45187160i 1.466891379+0.41520645i 1.486159651+0.37790146i
## [25] 1.502574129+0.34016884i 1.516187929+0.30221072i 1.527066458+0.26421846i
## [28] 1.535286139+0.22637226i 1.540933146+0.18884069i 1.544102172+0.15178051i
## [31] 1.544895220+0.11533647i 1.543420447+0.07964127i 1.539791039+0.04481561i
## [34] 1.534124152+0.01096833i 1.526539901-0.02180346i 1.517160407-0.05341403i
## [37] 1.506108911-0.08378877i 1.493508948-0.11286377i 1.479483582-0.14058543i
## [40] 1.464154715-0.16690998i 1.447642452-0.19180301i 1.430064531-0.21523894i
## [43] 1.411535823-0.23720048i 1.392167880-0.25767812i 1.372068556-0.27666955i
## [46] 1.351341673-0.29417911i 1.330086750-0.31021724i 1.308398774-0.32479995i
## [49] 1.286368030-0.33794824i 1.264079965-0.34968762i 1.241615106-0.36004759i
## [52] 1.219049001-0.36906112i 1.196452216-0.37676420i 1.173890345-0.38319539i
## [55] 1.151424059-0.38839538i 1.129109184-0.39240658i 1.106996792-0.39527275i
## [58] 1.085133322-0.39703860i 1.063560712-0.39774953i 1.042316549-0.39745124i
## [61] 1.021434231-0.39618950i 1.000943139-0.39400983i 0.980868810-0.39095732i
## [64] 0.961233133-0.38707637i 0.942054524-0.38241051i 0.923348127-0.37700220i
## [67] 0.905125998-0.37089271i 0.887397298-0.36412195i 0.870168476-0.35672836i
## [70] 0.853443454-0.34874878i 0.837223808-0.34021840i 0.821508935-0.33117065i
## [73] 0.806296220-0.32163714i 0.791581200-0.31164761i 0.777357704-0.30122987i
## [76] 0.763618003-0.29040978i 0.750352938-0.27921120i 0.737552043-0.26765596i
## [79] 0.725203656-0.25576387i 0.713295019-0.24355267i 0.701812371-0.23103801i
## [82] 0.690741023-0.21823346i 0.680065421-0.20515045i 0.669769203-0.19179830i
## [85] 0.659835232-0.17818413i 0.650245622-0.16431286i 0.640981743-0.15018719i
## [88] 0.632024211-0.13580749i 0.623352859-0.12117178i 0.614946681-0.10627565i
## [91] 0.606783765-0.09111214i 0.598841179-0.07567163i 0.591094846-0.05994170i
## [94] 0.583519366-0.04390699i 0.576087803-0.02754894i 0.568771418-0.01084562i
## [97] 0.561539340+0.00622860i 0.554358160+0.02370338i 0.547191440+0.04161278i
## [100] 0.539999100+0.05999571i 0.532736671+0.07889651i 0.525354368+0.09836555i
## [103] 0.517795950+0.11845998i 0.509997287+0.13924457i 0.501884585+0.16079274i
## [106] 0.493372133+0.18318771i 0.484359461+0.20652382i 0.474727711+0.23090806i
## [109] 0.464334979+0.25646178i 0.453010273+0.28332259i 0.440545650+0.31164634i
## [112] 0.426685855+0.34160911i 0.411114593+0.37340895i 0.393436174+0.40726681i
## [115] 0.373150786+0.44342598i 0.349620929+0.48214816i 0.322025633+0.52370373i
## [118] 0.289297768+0.56835080i 0.250038359+0.61629443i 0.202400566+0.66760964i
## [121] 0.143936427+0.72209974i 0.071405641+0.77903908i -0.019432076+0.83671260i
## [124] -0.133955813+0.89160992i -0.278507869+0.93707550i -0.459302890+0.96125428i
## [127] -0.679195281+0.94463296i -0.930565773+0.85913190i -1.184325121+0.67417999i
## [130] -1.383389636+0.37687945i -1.460354509+0.00000000i -1.383389636-0.37687945i
## [133] -1.184325121-0.67417999i -0.930565773-0.85913190i -0.679195281-0.94463296i
## [136] -0.459302890-0.96125428i -0.278507869-0.93707550i -0.133955813-0.89160992i
## [139] -0.019432076-0.83671260i 0.071405641-0.77903908i 0.143936427-0.72209974i
## [142] 0.202400566-0.66760964i 0.250038359-0.61629443i 0.289297768-0.56835080i
## [145] 0.322025633-0.52370373i 0.349620929-0.48214816i 0.373150786-0.44342598i
## [148] 0.393436174-0.40726681i 0.411114593-0.37340895i 0.426685855-0.34160911i
## [151] 0.440545650-0.31164634i 0.453010273-0.28332259i 0.464334979-0.25646178i
## [154] 0.474727711-0.23090806i 0.484359461-0.20652382i 0.493372133-0.18318771i
## [157] 0.501884585-0.16079274i 0.509997287-0.13924457i 0.517795950-0.11845998i
## [160] 0.525354368-0.09836555i 0.532736671-0.07889651i 0.539999100-0.05999571i
## [163] 0.547191440-0.04161278i 0.554358160-0.02370338i 0.561539340-0.00622860i
## [166] 0.568771418+0.01084562i 0.576087803+0.02754894i 0.583519366+0.04390699i
## [169] 0.591094846+0.05994170i 0.598841179+0.07567163i 0.606783765+0.09111214i
## [172] 0.614946681+0.10627565i 0.623352859+0.12117178i 0.632024211+0.13580749i
## [175] 0.640981743+0.15018719i 0.650245622+0.16431286i 0.659835232+0.17818413i
## [178] 0.669769203+0.19179830i 0.680065421+0.20515045i 0.690741023+0.21823346i
## [181] 0.701812371+0.23103801i 0.713295019+0.24355267i 0.725203656+0.25576387i
## [184] 0.737552043+0.26765596i 0.750352938+0.27921120i 0.763618003+0.29040978i
## [187] 0.777357704+0.30122987i 0.791581200+0.31164761i 0.806296220+0.32163714i
## [190] 0.821508935+0.33117065i 0.837223808+0.34021840i 0.853443454+0.34874878i
## [193] 0.870168476+0.35672836i 0.887397298+0.36412195i 0.905125998+0.37089271i
## [196] 0.923348127+0.37700220i 0.942054524+0.38241051i 0.961233133+0.38707637i
## [199] 0.980868810+0.39095732i 1.000943139+0.39400983i 1.021434231+0.39618950i
## [202] 1.042316549+0.39745124i 1.063560712+0.39774953i 1.085133322+0.39703860i
## [205] 1.106996792+0.39527275i 1.129109184+0.39240658i 1.151424059+0.38839538i
## [208] 1.173890345+0.38319539i 1.196452216+0.37676420i 1.219049001+0.36906112i
## [211] 1.241615106+0.36004759i 1.264079965+0.34968762i 1.286368030+0.33794824i
## [214] 1.308398774+0.32479995i 1.330086750+0.31021724i 1.351341673+0.29417911i
## [217] 1.372068556+0.27666955i 1.392167880+0.25767812i 1.411535823+0.23720048i
## [220] 1.430064531+0.21523894i 1.447642452+0.19180301i 1.464154715+0.16690998i
## [223] 1.479483582+0.14058543i 1.493508948+0.11286377i 1.506108911+0.08378877i
## [226] 1.517160407+0.05341403i 1.526539901+0.02180346i 1.534124152-0.01096833i
## [229] 1.539791039-0.04481561i 1.543420447-0.07964127i 1.544895220-0.11533647i
## [232] 1.544102172-0.15178051i 1.540933146-0.18884069i 1.535286139-0.22637226i
## [235] 1.527066458-0.26421846i 1.516187929-0.30221072i 1.502574129-0.34016884i
## [238] 1.486159651-0.37790146i 1.466891379-0.41520645i 1.444729774-0.45187160i
## [241] 1.419650152-0.48767535i 1.391643944-0.52238767i 1.360719927-0.55577109i
## [244] 1.326905412-0.58758189i 1.290247369-0.61757141i 1.250813480-0.64548749i
## [247] 1.208693104-0.67107613i 1.163998126-0.69408321i 1.116863688-0.71425635i
## [250] 1.067448777-0.73134699i 1.015936651-0.74511247i 0.962535088-0.75531833i
## [253] 0.907476446-0.76174061i 0.851017507-0.76416832i 0.793439096-0.76240594i
## [256] 0.735045463-0.75627595i 0.676163409-0.74562140i 0.617141147-0.73030853i
## [259] 0.558346891-0.71022929i 0.500167156-0.68530386i 0.443004783-0.65548310i
## [262] 0.387276659-0.62075084i 0.333411164-0.58112609i 0.281845323-0.53666504i
## [265] 0.233021683-0.48746285i 0.187384931-0.43365524i 0.145378251-0.37541973i
## [268] 0.107439456-0.31297666i 0.073996914-0.24658980i 0.045465291-0.17656662i
## [271] 0.022241143-0.10325812i 0.004698400-0.02705828i -0.006816218+0.05159699i
## [274] -0.011987824+0.13223137i -0.010537956+0.21433011i -0.002229099+0.29734259i
## [277] 0.013130910+0.38068531i 0.035684678+0.46374549i 0.065521273+0.54588510i
## [280] 0.102672563+0.62644544i 0.147109907+0.70475224i 0.198741279+0.78012114i
## [283] 0.257408873+0.85186366i 0.322887260+0.91929359i 0.394882145+0.98173365i
## [286] 0.473029778+1.03852248i 0.556897075+1.08902191i 0.645982487+1.13262429i
## [289] 0.739717652+1.16876001i 0.837469870+1.19690494i 0.938545408+1.21658782i
## [292] 1.042193668+1.22739749i 1.147612191+1.22898983i 1.253952527+1.22109430i
## [295] 1.360326912+1.20352005i 1.465815751+1.17616139i 1.569475844+1.13900266i
## [298] 1.670349305+1.09212224i 1.767473106+1.03569574i 1.859889158+0.96999819i
## [301] 1.946654834+0.89540519i 2.026853835+0.81239296i 2.099607271+0.72153715i
## [304] 2.164084828+0.62351050i 2.219515891+0.51907909i 2.265200470+0.40909744i
## [307] 2.300519777+0.29450219i 2.324946301+0.17630456i 2.338053215+0.05558149i
## [310] 2.339522966-0.06653440i 2.329154873-0.18886601i 2.306871605-0.31020397i
## [313] 2.272724365-0.42931987i 2.226896669-0.54498027i 2.169706577-0.65596130i
## [316] 2.101607284-0.76106389i 2.023185971-0.85912922i 1.935160841-0.94905426i
## [319] 1.838376314-1.02980732i 1.733796331-1.10044313i 1.622495793-1.16011749i
## [322] 1.505650155-1.20810105i 1.384523248-1.24379209i 1.260453405-1.26672805i
## [325] 1.134838037-1.27659555i 1.009116786-1.27323875i 0.884753469-1.25666575i
## [328] 0.763216990-1.22705294i 0.645961496-1.18474711i 0.534406014-1.13026518i
## [331] 0.429913860-1.06429144i 0.333772138-0.98767226i 0.247171624-0.90140821i
## [334] 0.171187383-0.80664363i 0.106760438-0.70465370i 0.054680833-0.59682904i
## [337] 0.015572401-0.48465807i -0.010120428-0.36970729i -0.022143508-0.25359963i
## [340] -0.020441248-0.13799123i -0.005162065-0.02454696i 0.023339223+0.08508505i
## [343] 0.064502196+0.18929949i 0.117564962+0.28655998i 0.181571669+0.37542509i
## [346] 0.255383429+0.45457351i 0.337692584+0.52282816i 0.427040223+0.57917867i
## [349] 0.521836782+0.62280174i 0.620385484+0.65307915i 0.720908342+0.66961273i
## [352] 0.821574371+0.67223622i 0.920529599+0.66102339i 1.015928427+0.63629241i
## [355] 1.105965849+0.59860605i 1.188909971+0.54876762i 1.263134285+0.48781259i
## [358] 1.327149102+0.41699579i 1.379631547+0.33777438i 1.419453518+0.25178656i
## [361] 1.445707034+0.16082643i 1.457726397+0.06681519i 1.455106650-0.02823088i
## [364] 1.437717852-0.12223519i 1.405714746-0.21309785i 1.359541478-0.29873425i
## [367] 1.299931080-0.37711463i 1.227899550-0.44630385i 1.144734435-0.50450065i
## [370] 1.051977930-0.55007572i 0.951404632-0.58160758i 0.844994151-0.59791582i
## [373] 0.734898957-0.59809067i 0.623407880-0.58151841i 0.512905834-0.54790185i
## [376] 0.405830412-0.49727537i 0.304626084-0.43001401i 0.211696823-0.34683624i
## [379] 0.129358024-0.24880010i 0.059788656-0.13729259i 0.004984593-0.01401230i
## [382] -0.033285888+0.11905469i -0.053523504+0.25966529i -0.054535292+0.40535586i
## [385] -0.035466996+0.55348426i 0.004170312+0.70127662i 0.064480113+0.84587824i
## [388] 0.145167439+0.98440751i 0.245533494+1.11401205i 0.364478244+1.23192581i
## [391] 0.500511191+1.33552616i 0.651770354+1.42238960i 0.816049327+1.49034508i
## [394] 0.990832097+1.53752354i 1.173335141+1.56240274i 1.360556120+1.56384613i
## [397] 1.549328366+1.54113481i 1.736380158+1.49399173i 1.918397686+1.42259738i
## [400] 2.092090458+1.32759635i 2.254257821+1.21009438i 2.401855200+1.07164574i
## [403] 2.532058617+0.91423085i 2.642326047+0.74022451i 2.730454185+0.55235496i
## [406] 2.794629269+0.35365465i 2.833470682+0.14740340i 2.846066192-0.06293486i
## [409] 2.831997823-0.27378062i 2.791357569-0.48151115i 2.724752329-0.68253520i
## [412] 2.633297702-0.87336838i 2.518600508-1.05070755i 2.382730181-1.21150257i
## [415] 2.228179405-1.35302356i 2.057814672-1.47292223i 1.874817665-1.56928553i
## [418] 1.682618616-1.64068037i 1.484823029-1.68618809i 1.285133323-1.70542766i
## [421] 1.087267150-1.69856680i 0.894874244-1.66632064i 0.711453746-1.60993747i
## [424] 0.540274010-1.53117186i 0.384296852-1.43224542i 0.246108190-1.31579592i
## [427] 0.127856874-1.18481591i 0.031203378-1.04258186i -0.042720195-0.89257570i
## [430] -0.093337566-0.73840033i -0.120642287-0.58369121i -0.125197663-0.43202610i
## [433] -0.108122341-0.28683525i -0.071061644-0.15131435i -0.016145112-0.02834239i
## [436] 0.054068930+0.07959315i 0.136660587+0.17046192i 0.228425881+0.24274514i
## [439] 0.325962678+0.29547716i 0.425762972+0.32827290i 0.524309195+0.34134016i
## [442] 0.618172093+0.33547606i 0.704107572+0.31204746i 0.779149892+0.27295563i
## [445] 0.840698630+0.22058564i 0.886596904+0.15774157i 0.915198567+0.08756920i
## [448] 0.925422274+0.01346761i 0.916790660-0.06100760i 0.889453230-0.13224752i
## [451] 0.844191943-0.19669639i 0.782408962-0.25095875i 0.706096500-0.29190413i
## [454] 0.617789177-0.31676643i 0.520499838-0.32323489i 0.417640224-0.30953414i
## [457] 0.312928384-0.27449054i 0.210285120-0.21758287i 0.113722138-0.13897532i
## [460] 0.027224864-0.03953157i -0.045366850+0.07919098i -0.100476806+0.21496718i
## [463] -0.134905904+0.36495000i -0.145937605+0.52573549i -0.131432172+0.69344557i
## [466] -0.089906725+0.86382659i -0.020598429+1.03236120i 0.076491412+1.19439090i
## [469] 0.200574114+1.34524565i 0.350072423+1.48037732i 0.522641960+1.59549299i
## [472] 0.715215250+1.68668436i 0.924067627+1.75054943i 1.144903643+1.78430265i
## [475] 1.372961993+1.78587023i 1.603136350+1.75396729i 1.830108990+1.68815432i
## [478] 2.048493642+1.58887074i 2.252983600+1.45744412i 2.438500924+1.29607407i
## [481] 2.600342396+1.10779093i 2.734317896+0.89638963i 2.836876975+0.66634032i
## [484] 2.905219668+0.42267776i 2.937387950+0.17087228i 2.932334744-0.08331423i
## [487] 2.889967976-0.33398349i 2.811167875-0.57526261i 2.697776482-0.80146809i
## [490] 2.552559124-1.00726693i 2.379138483-1.18783030i 2.181902696-1.33897482i
## [493] 1.965889780-1.45728710i 1.736651403-1.54022762i 1.500099745-1.58621027i
## [496] 1.262341774-1.59465487i 1.029505731-1.56601072i 0.807564955-1.50174978i
## [499] 0.602164362-1.40432945i 0.418454908-1.27712548i 0.260941214-1.12433669i
## [502] 0.133347218-0.95086398i 0.038504244-0.76216707i -0.021734743-0.56410303i
## [505] -0.046551709-0.36275139i -0.036188793-0.16423117i 0.008058948+0.02548466i
## [508] 0.083883440+0.20075131i 0.188035294+0.35642535i 0.316425359+0.48802308i
## [511] 0.464253266+0.59185909i 0.626159102+0.66516024i 0.796393626+0.70615128i
## [514] 0.969001694+0.71410882i 1.138013100+0.68938181i 1.297634677+0.63337745i
## [517] 1.442437397+0.54851260i 1.567532248+0.43813201i 1.668728995+0.30639581i
## [520] 1.742672370+0.15813954i 1.786950954-0.00128864i 1.800174840-0.16620846i
## [523] 1.782019176-0.33079988i 1.733231806-0.48930063i 1.655604414-0.63620261i
## [526] 1.551907828-0.76644007i 1.425793375-0.87556332i 1.281663386-0.95989163i
## [529] 1.124515033-1.01663993i 0.959762727-1.04401459i 0.793045051-1.04127460i
## [532] 0.630022909-1.00875573i 0.476175928-0.94785640i 0.336604335-0.86098521i
## [535] 0.215843447-0.75147196i 0.117697573-0.62344448i 0.045099530-0.48167572i
## [538] 0.000001153-0.33140604i -0.016700820-0.17814698i -0.005200370-0.02747328i
## [541] 0.033222506+0.11518910i 0.096247189+0.24477160i 0.180597413+0.35676023i
## [544] 0.282163263+0.44737408i 0.396156214+0.51371811i 0.517291958+0.55390420i
## [547] 0.639994650+0.56713543i 0.758615266+0.55374979i 0.867656160+0.51522105i
## [550] 0.961993459+0.45411588i 1.037088915+0.37400823i 1.089183014+0.27935318i
## [553] 1.115461701+0.17532436i 1.114189909+0.06762041i 1.084806158-0.03775296i
## [556] 1.027973868-0.13471747i 0.945586511-0.21736486i 0.840725443-0.28019848i
## [559] 0.717570969-0.31836486i 0.581268989-0.32786613i 0.437757270-0.30574494i
## [562] 0.293557009-0.25023418i 0.155536776-0.16086521i 0.030657099-0.03852934i
## [565] -0.074295100+0.11451055i -0.152972474+0.29466009i -0.199723624+0.49708461i
## [568] -0.209830028+0.71584943i -0.179714204+0.94410485i -0.107110677+1.17431011i
## [571] 0.008807491+1.39848861i 0.167352273+1.60850577i 0.366298307+1.79635937i
## [574] 0.601916535+1.95447200i 0.869063769+2.07597476i 1.161325963+2.15497139i
## [577] 1.471210933+2.18677259i 1.790384296+2.16809151i 2.109940675+2.09719205i
## [580] 2.420700725+1.97398397i 2.713523407+1.80006011i 2.979622167+1.57867351i
## [583] 3.210873363+1.31465433i 3.400105347+1.01426862i 3.541357173+0.68502362i
## [586] 3.630096822+0.33542578i 3.663390361-0.02529992i 3.640015168-0.38751943i
## [589] 3.560512372-0.74151659i 3.427175851-1.07782551i 3.243977575-1.38755588i
## [592] 3.016431537-1.66269911i 2.751400907-1.89640345i 2.456855292-2.08320747i
## [595] 2.141586977-2.21922283i 1.814896710-2.30225904i 1.486260901-2.33188507i
## [598] 1.164992906-2.30942533i 0.859911456-2.23788969i 0.579029073-2.12184029i
## [601] 0.329272684-1.96719992i 0.116247400-1.78100955i -0.055947155-1.57114430i
## [604] -0.184840663-1.34599919i -0.269651093-1.11415702i -0.311276479-0.88405168i
## [607] -0.312219805-0.66364059i -0.276450055-0.46009930i -0.209205121-0.27955087i
## [610] -0.116744657-0.12684107i -0.006063121-0.00536859i 0.115425067+0.08302259i
## [613] 0.240215081+0.13808426i 0.361042077+0.16113679i 0.471198440+0.15497468i
## [616] 0.564824341+0.12370895i 0.637159146+0.07255314i 0.684742747+0.00756180i
## [619] 0.705558012-0.06466694i 0.699107956-0.13731215i 0.666424066-0.20365994i
## [622] 0.610005106-0.25742820i 0.533688809-0.29307148i 0.442461770-0.30605265i
## [625] 0.342215643-0.29306875i 0.239460169-0.25222071i 0.141005608-0.18311891i
## [628] 0.053628597-0.08691897i -0.016263590+0.03371419ikk <- seq(-30, 30, len = 629)
xx <- Re(zeta(.5 + kk*1i))
yy <- Im(zeta(.5 + kk*1i))
length(xx)## [1] 629length(yy)## [1] 629First task
Erroneous visualization. Visualization that shows not clear what, invalid axis representation values, the meaning of visualization is unclear
barplot(xx)
Correct visualization
plot(kk, xx, type = "l", col = "darkgreen", lty = 1, lwd = 3, xlim = c(-30, 30),
xlab = " Imaginary part", ylab = "Function values", main = expression(paste("Real part of","", zeta, "(s)")))
abline(v = 0, lty = 2 ,lwd = 2)
abline(h = 0, lty = 2 ,lwd = 2)
Erroneous visualization. Invalid axis representation values, the meaning of visualization is unclear and form the first view it make no sense.
boxplot(kk, yy, main = expression(paste("Imagenary part of","", zeta, "(s)")) )
Correct visualization
plot(kk, yy, type = "l", col = "red", lty = 1, lwd = 3, xlim = c(-30, 30),
xlab = " Imaginary part",ylab = " Funtion values", main = expression(paste("Imaginary part of","", zeta, "(s)")))
abline(v = 0, lty = 2 ,lwd = 2)
abline(h = 0, lty = 2 ,lwd = 2)
Erroneous visualization. Visualization that shows not clear what, invalid axis representation values wrong axis lables
plot(abs(xx - yy), type = "l")
Correct visualization
plot(kk ,abs(xx-yy), type = "l", col = "red", lwd = 2,
xlab = "Real part", ylab = "Function modulus value",
main = expression(paste("Modulus of","", zeta, "(s)")) )
Erroneous visualization. Visualization that shows not clear what, invalid axis representation values, the meaning of visualization is unclear, wrong visualization used
plot.ts( abs(Re(xx) - Im(yy)))
Correct visualization
plot(kk, abs(Re(xx) - Im(yy)), type = "l", col = "red", lwd = 2,
xlab = "Real part", ylab = "Function modulus value",
main = expression(paste("Modulus of","", zeta, "(s)")) )
Second task
nx <- seq(-15, 15, len = 300)
nx## [1] -15.00000000 -14.89966555 -14.79933110 -14.69899666 -14.59866221
## [6] -14.49832776 -14.39799331 -14.29765886 -14.19732441 -14.09698997
## [11] -13.99665552 -13.89632107 -13.79598662 -13.69565217 -13.59531773
## [16] -13.49498328 -13.39464883 -13.29431438 -13.19397993 -13.09364548
## [21] -12.99331104 -12.89297659 -12.79264214 -12.69230769 -12.59197324
## [26] -12.49163880 -12.39130435 -12.29096990 -12.19063545 -12.09030100
## [31] -11.98996656 -11.88963211 -11.78929766 -11.68896321 -11.58862876
## [36] -11.48829431 -11.38795987 -11.28762542 -11.18729097 -11.08695652
## [41] -10.98662207 -10.88628763 -10.78595318 -10.68561873 -10.58528428
## [46] -10.48494983 -10.38461538 -10.28428094 -10.18394649 -10.08361204
## [51] -9.98327759 -9.88294314 -9.78260870 -9.68227425 -9.58193980
## [56] -9.48160535 -9.38127090 -9.28093645 -9.18060201 -9.08026756
## [61] -8.97993311 -8.87959866 -8.77926421 -8.67892977 -8.57859532
## [66] -8.47826087 -8.37792642 -8.27759197 -8.17725753 -8.07692308
## [71] -7.97658863 -7.87625418 -7.77591973 -7.67558528 -7.57525084
## [76] -7.47491639 -7.37458194 -7.27424749 -7.17391304 -7.07357860
## [81] -6.97324415 -6.87290970 -6.77257525 -6.67224080 -6.57190635
## [86] -6.47157191 -6.37123746 -6.27090301 -6.17056856 -6.07023411
## [91] -5.96989967 -5.86956522 -5.76923077 -5.66889632 -5.56856187
## [96] -5.46822742 -5.36789298 -5.26755853 -5.16722408 -5.06688963
## [101] -4.96655518 -4.86622074 -4.76588629 -4.66555184 -4.56521739
## [106] -4.46488294 -4.36454849 -4.26421405 -4.16387960 -4.06354515
## [111] -3.96321070 -3.86287625 -3.76254181 -3.66220736 -3.56187291
## [116] -3.46153846 -3.36120401 -3.26086957 -3.16053512 -3.06020067
## [121] -2.95986622 -2.85953177 -2.75919732 -2.65886288 -2.55852843
## [126] -2.45819398 -2.35785953 -2.25752508 -2.15719064 -2.05685619
## [131] -1.95652174 -1.85618729 -1.75585284 -1.65551839 -1.55518395
## [136] -1.45484950 -1.35451505 -1.25418060 -1.15384615 -1.05351171
## [141] -0.95317726 -0.85284281 -0.75250836 -0.65217391 -0.55183946
## [146] -0.45150502 -0.35117057 -0.25083612 -0.15050167 -0.05016722
## [151] 0.05016722 0.15050167 0.25083612 0.35117057 0.45150502
## [156] 0.55183946 0.65217391 0.75250836 0.85284281 0.95317726
## [161] 1.05351171 1.15384615 1.25418060 1.35451505 1.45484950
## [166] 1.55518395 1.65551839 1.75585284 1.85618729 1.95652174
## [171] 2.05685619 2.15719064 2.25752508 2.35785953 2.45819398
## [176] 2.55852843 2.65886288 2.75919732 2.85953177 2.95986622
## [181] 3.06020067 3.16053512 3.26086957 3.36120401 3.46153846
## [186] 3.56187291 3.66220736 3.76254181 3.86287625 3.96321070
## [191] 4.06354515 4.16387960 4.26421405 4.36454849 4.46488294
## [196] 4.56521739 4.66555184 4.76588629 4.86622074 4.96655518
## [201] 5.06688963 5.16722408 5.26755853 5.36789298 5.46822742
## [206] 5.56856187 5.66889632 5.76923077 5.86956522 5.96989967
## [211] 6.07023411 6.17056856 6.27090301 6.37123746 6.47157191
## [216] 6.57190635 6.67224080 6.77257525 6.87290970 6.97324415
## [221] 7.07357860 7.17391304 7.27424749 7.37458194 7.47491639
## [226] 7.57525084 7.67558528 7.77591973 7.87625418 7.97658863
## [231] 8.07692308 8.17725753 8.27759197 8.37792642 8.47826087
## [236] 8.57859532 8.67892977 8.77926421 8.87959866 8.97993311
## [241] 9.08026756 9.18060201 9.28093645 9.38127090 9.48160535
## [246] 9.58193980 9.68227425 9.78260870 9.88294314 9.98327759
## [251] 10.08361204 10.18394649 10.28428094 10.38461538 10.48494983
## [256] 10.58528428 10.68561873 10.78595318 10.88628763 10.98662207
## [261] 11.08695652 11.18729097 11.28762542 11.38795987 11.48829431
## [266] 11.58862876 11.68896321 11.78929766 11.88963211 11.98996656
## [271] 12.09030100 12.19063545 12.29096990 12.39130435 12.49163880
## [276] 12.59197324 12.69230769 12.79264214 12.89297659 12.99331104
## [281] 13.09364548 13.19397993 13.29431438 13.39464883 13.49498328
## [286] 13.59531773 13.69565217 13.79598662 13.89632107 13.99665552
## [291] 14.09698997 14.19732441 14.29765886 14.39799331 14.49832776
## [296] 14.59866221 14.69899666 14.79933110 14.89966555 15.00000000ny <- seq(-15, 15, len = 300)
ny## [1] -15.00000000 -14.89966555 -14.79933110 -14.69899666 -14.59866221
## [6] -14.49832776 -14.39799331 -14.29765886 -14.19732441 -14.09698997
## [11] -13.99665552 -13.89632107 -13.79598662 -13.69565217 -13.59531773
## [16] -13.49498328 -13.39464883 -13.29431438 -13.19397993 -13.09364548
## [21] -12.99331104 -12.89297659 -12.79264214 -12.69230769 -12.59197324
## [26] -12.49163880 -12.39130435 -12.29096990 -12.19063545 -12.09030100
## [31] -11.98996656 -11.88963211 -11.78929766 -11.68896321 -11.58862876
## [36] -11.48829431 -11.38795987 -11.28762542 -11.18729097 -11.08695652
## [41] -10.98662207 -10.88628763 -10.78595318 -10.68561873 -10.58528428
## [46] -10.48494983 -10.38461538 -10.28428094 -10.18394649 -10.08361204
## [51] -9.98327759 -9.88294314 -9.78260870 -9.68227425 -9.58193980
## [56] -9.48160535 -9.38127090 -9.28093645 -9.18060201 -9.08026756
## [61] -8.97993311 -8.87959866 -8.77926421 -8.67892977 -8.57859532
## [66] -8.47826087 -8.37792642 -8.27759197 -8.17725753 -8.07692308
## [71] -7.97658863 -7.87625418 -7.77591973 -7.67558528 -7.57525084
## [76] -7.47491639 -7.37458194 -7.27424749 -7.17391304 -7.07357860
## [81] -6.97324415 -6.87290970 -6.77257525 -6.67224080 -6.57190635
## [86] -6.47157191 -6.37123746 -6.27090301 -6.17056856 -6.07023411
## [91] -5.96989967 -5.86956522 -5.76923077 -5.66889632 -5.56856187
## [96] -5.46822742 -5.36789298 -5.26755853 -5.16722408 -5.06688963
## [101] -4.96655518 -4.86622074 -4.76588629 -4.66555184 -4.56521739
## [106] -4.46488294 -4.36454849 -4.26421405 -4.16387960 -4.06354515
## [111] -3.96321070 -3.86287625 -3.76254181 -3.66220736 -3.56187291
## [116] -3.46153846 -3.36120401 -3.26086957 -3.16053512 -3.06020067
## [121] -2.95986622 -2.85953177 -2.75919732 -2.65886288 -2.55852843
## [126] -2.45819398 -2.35785953 -2.25752508 -2.15719064 -2.05685619
## [131] -1.95652174 -1.85618729 -1.75585284 -1.65551839 -1.55518395
## [136] -1.45484950 -1.35451505 -1.25418060 -1.15384615 -1.05351171
## [141] -0.95317726 -0.85284281 -0.75250836 -0.65217391 -0.55183946
## [146] -0.45150502 -0.35117057 -0.25083612 -0.15050167 -0.05016722
## [151] 0.05016722 0.15050167 0.25083612 0.35117057 0.45150502
## [156] 0.55183946 0.65217391 0.75250836 0.85284281 0.95317726
## [161] 1.05351171 1.15384615 1.25418060 1.35451505 1.45484950
## [166] 1.55518395 1.65551839 1.75585284 1.85618729 1.95652174
## [171] 2.05685619 2.15719064 2.25752508 2.35785953 2.45819398
## [176] 2.55852843 2.65886288 2.75919732 2.85953177 2.95986622
## [181] 3.06020067 3.16053512 3.26086957 3.36120401 3.46153846
## [186] 3.56187291 3.66220736 3.76254181 3.86287625 3.96321070
## [191] 4.06354515 4.16387960 4.26421405 4.36454849 4.46488294
## [196] 4.56521739 4.66555184 4.76588629 4.86622074 4.96655518
## [201] 5.06688963 5.16722408 5.26755853 5.36789298 5.46822742
## [206] 5.56856187 5.66889632 5.76923077 5.86956522 5.96989967
## [211] 6.07023411 6.17056856 6.27090301 6.37123746 6.47157191
## [216] 6.57190635 6.67224080 6.77257525 6.87290970 6.97324415
## [221] 7.07357860 7.17391304 7.27424749 7.37458194 7.47491639
## [226] 7.57525084 7.67558528 7.77591973 7.87625418 7.97658863
## [231] 8.07692308 8.17725753 8.27759197 8.37792642 8.47826087
## [236] 8.57859532 8.67892977 8.77926421 8.87959866 8.97993311
## [241] 9.08026756 9.18060201 9.28093645 9.38127090 9.48160535
## [246] 9.58193980 9.68227425 9.78260870 9.88294314 9.98327759
## [251] 10.08361204 10.18394649 10.28428094 10.38461538 10.48494983
## [256] 10.58528428 10.68561873 10.78595318 10.88628763 10.98662207
## [261] 11.08695652 11.18729097 11.28762542 11.38795987 11.48829431
## [266] 11.58862876 11.68896321 11.78929766 11.88963211 11.98996656
## [271] 12.09030100 12.19063545 12.29096990 12.39130435 12.49163880
## [276] 12.59197324 12.69230769 12.79264214 12.89297659 12.99331104
## [281] 13.09364548 13.19397993 13.29431438 13.39464883 13.49498328
## [286] 13.59531773 13.69565217 13.79598662 13.89632107 13.99665552
## [291] 14.09698997 14.19732441 14.29765886 14.39799331 14.49832776
## [296] 14.59866221 14.69899666 14.79933110 14.89966555 15.00000000Erroneous visualization. Visualization that shows not clear what, invalid axis representation values, the meaning of visualization is unclear, wrong visualization used
plot( Re(zeta(nx)))
Correct visualization
plot(nx, Re(zeta(nx)), xlab = "Real part",
ylab = "Function values", lwd = 2, lty = 2,
main = expression(paste(" Real part of","", zeta, "(s)")) )
abline(v = 0, col = "red", lty = 2, lwd = 2)
abline(v = 1, col = "red", lty = 2, lwd = 2)
abline(h = 0, col = "red", lty = 2, lwd = 2)
Erroneous visualization. Visualization that shows not clear what, invalid axis representation values, the meaning of visualization is unclear, no legend
plot( zeta(.5 + nx), type = "l", col = "red",
ylab = "Function values", xlab = "Real part",
main = expression(paste("Different real part of","", zeta, "(s)")) )
lines( zeta(1 + nx),nx, type = "l", col = "green", ylim = c(-10,2))
lines(nx, zeta(2 + nx), type = "l", col = "blue")
lines(nx, zeta(3 + nx), type = "l", col = "black")
abline(v = 0, lty = 2 ,lwd = 2, col = "magenta")
abline(v = 1, lty = 2 ,lwd = 2, col = "magenta")
abline(h = 0, lty = 2 ,lwd = 2, col = "magenta")
abline(v = 0.5, lty = 3 ,lwd = 3, col = "gold")
Correct visualization
plot(nx, zeta(.5 + nx*1i), type = "l", col = "red",
ylab = "Function values", xlab = "Real part",
main = expression(paste("Different real part of","", zeta, "(s)")) )## Warning in xy.coords(x, y, xlabel, ylabel, log): menamosios dalys atmestos
## keičiant duomenų tipąlines(nx, zeta(1 + nx*1i), type = "l", col = "green", ylim = c(-10,2))## Warning in xy.coords(x, y): menamosios dalys atmestos keičiant duomenų tipąlines(nx, zeta(2 + nx*1i), type = "l", col = "blue")## Warning in xy.coords(x, y): menamosios dalys atmestos keičiant duomenų tipąlines(nx, zeta(3 + nx*1i), type = "l", col = "black")## Warning in xy.coords(x, y): menamosios dalys atmestos keičiant duomenų tipąabline(v = 0, lty = 2 ,lwd = 2, col = "magenta")
abline(v = 1, lty = 2 ,lwd = 2, col = "magenta")
abline(h = 0, lty = 2 ,lwd = 2, col = "magenta")
abline(v = 0.5, lty = 3 ,lwd = 3, col = "gold")
legend("bottomleft", legend=c("Real part 0.5", "Real part 1",
"Real part 2", "Real part 3"),
col=c("red", "green", "blue", "black"), lty=1:2, cex=0.8)
Erroneous visualization. Visualization that shows not clear what, invalid axis representation values, the meaning of visualization is unclear, wrong visualization used
plot( zeta(.5 + nx*1i), type = "l", col = "red",
ylab = "Function values", xlab = "Real part" )
lines( zeta(1 + nx*1i), type = "l", col = "green", ylim = c(-10,2))
lines( zeta(2 + nx*1i), type = "l", col = "blue")
lines( zeta(3 + nx*1i), type = "l", col = "black")
Correct visualization
plot( zeta(.5 + nx*1i), type = "l", col = "red",
ylab = "Function values", xlab = "Real part",
main = expression(paste("Different real part of","", zeta, "(s)")) )
lines( zeta(1 + nx*1i), type = "l", col = "green", ylim = c(-10,2))
lines( zeta(2 + nx*1i), type = "l", col = "blue")
lines( zeta(3 + nx*1i), type = "l", col = "black")
abline(v = 0, lty = 2 ,lwd = 2, col = "magenta")
abline(v = 1, lty = 2 ,lwd = 2, col = "magenta")
abline(h = 0, lty = 2 ,lwd = 2, col = "magenta")
abline(v = 0.5, lty = 3 ,lwd = 3, col = "gold")
legend("bottomleft", legend=c("Real part 0.5", "Real part 1",
"Real part 2", "Real part 3"),
col=c("red", "green", "blue", "black"), lty=1:2, cex=0.8)
Erroneous visualization. Visualization that shows not clear what, invalid axis representation values, the meaning of visualization is unclear, wrong too big x axis limits
plot( 1/zeta(.5 + nx), type = "l", col = "red",
ylab = "Function values", xlab = "Real part" )
lines( 1/zeta(1 + nx), type = "l", col = "green", ylim = c(-10,2))
lines( 1/zeta(2 + nx), type = "l", col = "blue")
lines( 1/zeta(3 + nx), type = "l", col = "black")
Correct visualization
plot(nx, 1/zeta(.5 + nx*1i), type = "l", col = "red",
ylab = "Function values", xlab = "Real part",
main = expression(paste("Different real part of","", zeta^-1, "(s)")) )## Warning in xy.coords(x, y, xlabel, ylabel, log): menamosios dalys atmestos
## keičiant duomenų tipąlines(nx, 1/zeta(1 + nx*1i), type = "l", col = "green", ylim = c(-10,2))## Warning in xy.coords(x, y): menamosios dalys atmestos keičiant duomenų tipąlines(nx, 1/zeta(2 + nx*1i), type = "l", col = "blue")## Warning in xy.coords(x, y): menamosios dalys atmestos keičiant duomenų tipąlines(nx, 1/zeta(3 + nx*1i), type = "l", col = "black")## Warning in xy.coords(x, y): menamosios dalys atmestos keičiant duomenų tipąabline(v = 0, lty = 2 ,lwd = 2, col = "magenta")
abline(v = 1, lty = 2 ,lwd = 2, col = "magenta")
abline(h = 0, lty = 2 ,lwd = 2, col = "magenta")
abline(v = 0.5, lty = 3 ,lwd = 3, col = "gold")
legend("top", legend=c("Real part 0.5", "Real part 1",
"Real part 2", "Real part 3"),
col=c("red", "green", "blue", "black"), lty=1:2, cex=0.8)