R Markdown
library(ggplot2)
## Warning: package 'ggplot2' was built under R version 4.3.2
library(corrplot)
## Warning: package 'corrplot' was built under R version 4.3.2
## corrplot 0.92 loaded
Vegetación <- c(0.6731740236282349, 0.5831867456436157, 0.6944680213928223,
0.7751897573471069,
0.5443411469459534,
0.7290476560592651,0.6971595883369446,
0.6943832039833069,
0.49229568243026733,
0.5681926608085632,0.5058562159538269,
0.5846489071846008,
0.5840203762054443,
0.5147587656974792,0.5400264263153076,
0.463345468044281,
0.5470768809318542,
0.6334984302520752,
0.3723091185092926,
0.49402132630348206,
0.5040076971054077,
0.5019168257713318,
0.4990312457084656,
0.4004133641719818,
0.41531670093536377,
0.5933773517608643,
0.46518898010253906,
0,
0.4974977672100067,0.5368555784225464,
0.5374288558959961,
0.5716927647590637,
0.530464768409729,
0.36240971088409424,
0.3474331200122833,
0,
-0.0002,
0.4505840241909027,
0,
0.23250320553779602,
0.27194586396217346,
0.2127470225095749,
0,
0.2724516689777374,
0.30323368310928345,
0.25088000297546387,
0.193314328789711,
0.17525164783000946,
0.22117336094379425,
0.3459318280220032,
0.32895171642303467,
0.39942842721939087,
0.30851390957832336,
0,
0.25149524211883545,0.09297042340040207,
0.15963350236415863,
0.1556045114994049,
0,
0.11484405398368835,
0.19636201858520508)
Temperatura <- c(23644145965576100,
3019565200805600,
26867446899414000,
2545387077331540,
26552207946777300,
28067142486572200,
285602264404290,
2589194107055660,
31155317306518500,
3215619659423820,
309188232421875,
34488590240478500,
3585373306274410,
3581109619140620,
30648473739624000,
366538200378418,36667654876708900,
3454159164428710,
36870513916015600,
3005536651611320,
334678840637207,
0,
362431716918940,
38281795501708900,
3696891784667960,
32458648681640600,
3521869659423820,
0,
3316710662841790,
2948103904724120,
32473751068115200,
3228786849975580,
3344390106201170,
346983528137207,37536808013916000,
0,
0,
3476103591918940,
0,
3630196762084960,
3668570327758780,
3435491943359370,
0,
3341340255737300,
34693092346191400,
3640229415893550,
3726906204223630,
3573341369628900,
37644081115722600,
376337814331050,
3372608947753900,
303519039150500,
3480093765258780,
0,
3648989486694330,
3515999984741210,
3500383377075190,
3924474334716790,
0,
32858646392822200,
3901982879638670)
Precipitación <- c(189168286132120,
18169588623046800,
147150146484370,
14094530029296800,
1396885986328120,
13712957763671800,
13498914794921800,
12673612060546800,
10896134033203100,10622918701171800,
10138549194335900,
10057573242185,
9891939086914060,
88993676757125,
85331396484375,
8224669799804680,
7873760375976560,
779696044921875,
7510543823242180,
74702001953125,
7443738403320310,
7410423532226560,
7102037353515620,
6951614379882810,
6699906005859370,
667452392578125,
6634412841796870,
6540798339375,
651833374023370,6451666870117180,
603526171875,
5861581420898430,
5505765991210930,
5505765991210930,
542671142578125,
5129334106445310,
47884698486328100,
464910400390625,
4626634521484370,
3754771423339840,
3120121154785150,
26281329345703100,
2552224884033200,
24798255920410100,
23662155151367100,
23442298889160100,
22691407775878900,
2189065399169920,
2182249755859370,
21150550842285100,
2055816650390620,
20179638671875,
193557861328125,
17880897521972600,
17766038513183500,
1721844024658200,
17062802124023400,
1697220916748040,
16855299377441400,
15256161499023400,
14631602478027300)
data <- data.frame(Vegetación, Temperatura , Precipitación)
correlation_matrix <- cor(data)
print(correlation_matrix)
## Vegetación Temperatura Precipitación
## Vegetación 1.0000000 0.2445464 -0.2729660
## Temperatura 0.2445464 1.0000000 -0.1887572
## Precipitación -0.2729660 -0.1887572 1.0000000
ggplot(data,aes(x = Vegetación , y = Temperatura, z = Precipitación)) +
geom_line() +
labs(title = "Gráfico de dispersión entre X, Y y Z (2014)")
corrplot(correlation_matrix, method = "color")
Vegetación <- c(0.6459291577339172,
0.7561092972755432,
0.8160364627838135,
0.658902108669281,
0.750446617603302,
0.5608364939689636,
0.6182048916816711,
0.7191951274871826,
0.706052303314209,
0.5584492683410645,
0.6275801062583923,
0.7454341053962708,
0.6938258409500122,
0.7663589119911194,
0.7493278384208679,
0,
0.6736149787902832,
0.6808087229728699,
0.6700208187103271,
0.5458378791809082,
0.6785008907318115,
0.6840628385543823,
0.749502420425415,
0.6469072103500366,
0.6703852415084839,
0.659165620803833,
0.6954014897346497,
0.6006888151168823,
0.7175613641738892,
0.5458348989486694,
0.573345959186554,
0.7020888328552246,
0.5847828984260559,
0.5253155827522278,
0.6555993556976318,
-0.08608589321374893,
0,
0,
0.6530131697654724,
0.3402620255947113,
0.4582566022872925,
0.6112895011901855,
0.5371837019920349,
0.4251807928085327,
0,
0.6598986387252808,
0.3118036985397339,
0.4622551500797272,
-0.05778477340936661,
0.6997303366661072,
0.40305063128471375,
0.5456433892250061,
0.20101670920848846,
0.26960521936416626,
0,
0.41366100311279297,
0.3710757791996002,
0.5359635949134827,
0.3483845293521881,
0.18014276027679443,
0.36211201548576355
)
Temperatura <- c(19967966079711900,
2647218132019040,
23675762176513600,
27477737426757800,
25631786346435500,
24533788681030200,
27446136474609300,
25731626510620100,
23958406448364200,
27834423065185500,
294101505279541,
2960169219970700,
2875611114501950,
26872962951660100,
26817916870117100,
0,
28988605499267500,
3017145538330070,
2887074089050290,
3344266128540030,
3269908905029290,
30331539154052700,
28566129684448200,
31.5,
3274514389038080,
2764702033996580,
28534666061401300,
32627628326416000,
3144468116760250,
2838058853149410,
0,
28828378677368100,
29477333068847600,
31640939712524400,
31040666580200100,
0,
0,
0,
30177387237548800,
32996429443359300,
31134445190429600,
29348968505859300,
30368181228637600,
32979042053222600,
0,
28315574645996000,
3449031448364250,
3301014709472650,
0,
27154375076293900,
33214317321777300,
29990272521972600,
3261399841308590,
36611881256103500,
0,
3425605392456050,
3301144790649410,
338708610534668,
31208139419555600,
31323110580444300,
3609573745727530
)
Precipitación <- c(41197353515625,
327346826171875,
2799243408203120,
2564919189453120,
2380248779296870,
2217154541015620,
2117998291015620,
2074515869140620,
19509522705078100,
187838134765625,
18517708740234300,
17825648193359300,
16888790283203100,
1661993896484370,
1654267333984370,
14800045166015600,
14740699462890600,
142516552734375,
13949632568359300,
1348989135742180,
13329473876953100,
13320406494140600,
13110369873046800,
1301439208984370,
12993875732421800,
1283346435546870,
128150341796875,
1272923583984370,
12663470458984300,
12645982666015600,
1186794189453120,
11524407958984300,
11524407958984300,
1074143310546870,
1073378662109370,
9698818359375,
9110850219726560,
802175537109375,
8017587280273430,
8005365600585930,
702911865234375,
6373855590820310,
6276642456054680,
579355712890625,
5188330688476560,
49297467041015600,
48413543701171800,
46973089599609300,
4646269226074210,
4516858825683590,
42712152099609300,
416858154296875,
4115611877441400,
406265625,
3978155517578120,
3930322265625,
3800326843261710,
3713571472167960,
3468700866699210,
3300654296875,
3213728942871090
)
data <- data.frame(Vegetación, Temperatura , Precipitación)
correlation_matrix <- cor(data)
print(correlation_matrix)
## Vegetación Temperatura Precipitación
## Vegetación 1.00000000 0.33553167 0.03837625
## Temperatura 0.33553167 1.00000000 -0.08525183
## Precipitación 0.03837625 -0.08525183 1.00000000
ggplot(data,aes(x = Vegetación , y = Temperatura, z = Precipitación)) +
geom_line() +
labs(title = "Gráfico de dispersión entre X, Y y Z (2011)")
corrplot(correlation_matrix, method = "color")
Vegetación <- c(0.6369675993919373, 0.6035085320472717, 0.7521273493766785, 0.7616485953330994, 0.7336907982826233, 0.6890358328819275, 0.5286840796470642, 0.6761631369590759, 0.599407434463501, 0.525312066078186, 0.6070285439491272, 0.6472281813621521, 0.6018984317779541, 0.6741706728935242, 0.5539336204528809, 0.5454580783843994, 0.5102263689041138, 0, 0.43053972721099854, 0.5143545866012573, 0.5589985251426697, 0.45933961868286133, 0.5842767953872681, 0.5460327863693237, 0.655501127243042, 0.5890165567398071, 0.46639955043792725, 0.42018938064575195, 0.5782542824745178, 0.4571857154369354, 0.46136003732681274, 0.6079796552658081, 0.39715439081192017, 0.45076507329940796, -0.14983654022216797, 0.4645558297634125, 0, 0.21562246978282928, 0, 0.5387799739837646, 0.2163105309009552, 0.28126904368400574, 0.3360859453678131, 0.29115769267082214, 0.3148963749408722, 0.19289670884609222, -0.16104362905025482, 0.38197705149650574, 0.2713972330093384, 0, 0.10038623213768005, 0.23796962201595306, 0, 0.3702969551086426, 0.29716187715530396, 0.2660335302352905, 0.1428288221359253, 0.16543355584144592, 0.16086307168006897, 0.09216193109750748, 0.2019483596086502
)
Temperatura <- c(4062429428100500, 3070708656311030, 25015480041503900, 28198163986206000, 2709170150756830, 28387807846069300, 2638088035583490, 260918025970459, 29201520919799800, 30413808822631800, 3121933364868160, 3439277648925780, 29530588150024400, 29512222290039000, 36495811462402300, 330597038269043, 3512733459472650, 0, 3577199935913080, 36725868225097600, 32307289123535100, 3387588119506830, 32671634674072200, 2968585205078120, 34677040100097600, 32226558685302700, 3358767318725580, 3612363815307610, 32421268463134700, 3336000061035150, 3692952346801750, 36419891357421800, 36399749755859300, 0, 0, 3683515167236320, 0, 37179664611816400, 0, 3353759765625, 3412409591674800, 37577754974365200, 35021305084228500, 33743675231933500, 34064064025878900, 3813142013549800, 0, 30554445266723600, 37368408203125, 0, 34826900482177700, 3796115493774410, 0, 37767242431640600, 35820560455322200, 3696769714355460, 3562763977050780, 3910321807861320, 36279178619384700, 3307606887817380, 3911145782470700)
Precipitación <- c(2605699951171870, 2406334228515620, 19251739501953100, 18502503662109300, 16655548095703100, 1652447265625, 15425474853515600, 1450731689453120, 14437744140625, 13121336669921800, 130327099609375, 12483262939453100, 12214547119140600, 1212595703125, 11976356201171800, 1068416259765620, 1035988037109370, 10347542724609300, 10327392578125, 9976337890625, 9877642822265620, 9857946166992180, 9828703002929680, 9793573608398430, 9704317016601560, 9701853637695310, 9520512084960930, 9329741821289060, 9306901245117180, 9306901245117180, 909377197265625, 8803435668945310, 8755185546875, 8622986450195310, 7790616455078120, 7716058959960930, 6732852783203120, 6291005249023430, 601748046875, 586935302734375, 48152581787109300, 4720024719238280, 4466182861328120, 4389552001953120, 3862088317871090, 3646129455566400, 35508056640625, 346868408203125, 3443797607421870, 3123456115722650, 3036646728515620, 29957086181640600, 2983246154785150, 29671868896484300, 29361651611328100, 287772216796875, 2859122009277340, 2857064514160150, 2768902282714840, 27242169189453100, 25645635986328100)
data <- data.frame(Vegetación, Temperatura , Precipitación)
correlation_matrix <- cor(data)
print(correlation_matrix)
## Vegetación Temperatura Precipitación
## Vegetación 1.000000000 0.27746639 -0.009364264
## Temperatura 0.277466387 1.00000000 0.025381292
## Precipitación -0.009364264 0.02538129 1.000000000
ggplot(data,aes(x = Vegetación , y = Temperatura, z = Precipitación)) +
geom_line() +
labs(title = "Gráfico de dispersión entre X, Y y Z (2016)")
corrplot(correlation_matrix, method = "color")
