Başlık

options(stringsAsFactors = FALSE)
options(dplyr.width=Inf)
library(tidyverse)
## Loading tidyverse: ggplot2
## Loading tidyverse: tibble
## Loading tidyverse: tidyr
## Loading tidyverse: readr
## Loading tidyverse: purrr
## Loading tidyverse: dplyr
## Conflicts with tidy packages ----------------------------------------------
## filter(): dplyr, stats
## lag():    dplyr, stats
setwd("/Users/nihal/Desktop")
#read.csv("n_regresyon.csv",header=TRUE, sep="\t")
biodiv=read.csv("n_regresyon.csv",header=TRUE, sep="\t")
cor(biodiv$Elevation,biodiv$Total.Plant.Species)
## [1] -0.3591693
cor(biodiv, method="pearson", use="complete.obs")
##                      Elevation Total.Plant.Species Lapse.Rate..x.
## Elevation            1.0000000          -0.3591693     -1.0000000
## Total.Plant.Species -0.3591693           1.0000000      0.3591693
## Lapse.Rate..x.      -1.0000000           0.3591693      1.0000000
## Schreiber            0.4162346          -0.1109940     -0.4162346
## Shannon.Wiener      -0.3689975           0.9462585      0.3689975
##                      Schreiber Shannon.Wiener
## Elevation            0.4162346     -0.3689975
## Total.Plant.Species -0.1109940      0.9462585
## Lapse.Rate..x.      -0.4162346      0.3689975
## Schreiber            1.0000000     -0.1422164
## Shannon.Wiener      -0.1422164      1.0000000
cor(biodiv, method="spearman", use="complete.obs")
##                      Elevation Total.Plant.Species Lapse.Rate..x.
## Elevation            1.0000000          -0.3767255     -1.0000000
## Total.Plant.Species -0.3767255           1.0000000      0.3767255
## Lapse.Rate..x.      -1.0000000           0.3767255      1.0000000
## Schreiber            0.3279775          -0.1041512     -0.3279775
## Shannon.Wiener      -0.3901307           0.9924466      0.3901307
##                      Schreiber Shannon.Wiener
## Elevation            0.3279775     -0.3901307
## Total.Plant.Species -0.1041512      0.9924466
## Lapse.Rate..x.      -0.3279775      0.3901307
## Schreiber            1.0000000     -0.1022292
## Shannon.Wiener      -0.1022292      1.0000000
ggplot(biodiv,aes(x=Elevation,y=Total.Plant.Species)) + geom_point() + geom_smooth(method=lm,se=FALSE)

Gerçekleştirilen korelasyon analizine göre,sıcaklık ile bitki çeşitliliği arasında pozitif bir ilişki mevcuttur. Buna karşın, yükseklik ve yağış ile bitki çeşitliliği negatif bir ilişki içerisindedir. Buna göre, bitki çeşitliliğinin yüksekliğe göre azaldığı görülmektedir. Grafiğe göre, 1500-2000mler arasında bitki çeşitliliğinin fazla olduğu ancak, 2000m’nin üzerinde çeşitliliğin azaldığı saptanmıştır.