4 Aralık 2016 Pazar

Gayzer Grafiği

 Gayzer oluşumu özellikle nedeniyle hidrojeolojik Dünya üzerinde sadece birkaç yerde mevcut olan koşullar, bu yüzden oldukça nadir bir olgudur. Genellikle tüm Şofben alan sitelerin aktif yakınında bulunan volkanik bölgelerde ve Şofben etkisi yakınlığı nedeniyle magma . Genellikle, yüzey suyu yaklaşık 2.000 metre (6,600 ft) temas, sıcak kayaların ortalama derinliğe kadar yolunda çalışır. Şofben yüzey havalandırma (bir dışarı püskürtme sıcak su ve buhar şofben etkisi basınçlı su sonuçlarının bileşke kaynama hidrotermal patlama ).
  

  Şimdi aşağıda R Programlama Dili ile yazılmış olan Amerikada'ki Gayzer Kullanım Oranlarını İnceliyeceğiz.


R Studio açtıktan sonra Yeni bir proje açıyoruz ve o projeye önce site tasarımı gibi tasarım ve grafik oluşturacak kodları yerlerştiriyoruz.

-----------------------------------------------------------------------------------------
ui.R

bootstrapPage(

  selectInput(inputId = "n_breaks",
              label = "Gayzer sayısı (Yaklaşık):",
              choices = c(10, 20, 35, 50),
              selected = 20),

  checkboxInput(inputId = "individual_obs",
                label = strong("Bireysel gözlemleri göster"),
                value = FALSE),

  checkboxInput(inputId = "density",
                label = strong("Yoğunluk tahmini göster"),
                value = FALSE),

  plotOutput(outputId = "main_plot", height = "300px"),


  conditionalPanel(condition = "input.density == true",
                   sliderInput(inputId = "bw_adjust",
                               label = "Bant genişliği ayarı:",
                               min = 0.2, max = 2, value = 1, step = 0.2)
  )

)


 -----------------------------------------------------------------------------------------





Bu kodla beraber yanında fonskiyon çağırma kodlarını kullanmaktayız. Onlarda 

-----------------------------------------------------------------------------------------

server.R 
function(input, output) {

  output$main_plot <- renderPlot({
 
    hist(faithful$eruptions,
         probability = TRUE,
         breaks = as.numeric(input$n_breaks),
         xlab = "Süre (dakika)",
         main = "Gayzerin patlama süresi")
 
    if (input$individual_obs) {
      rug(faithful$eruptions)
    }
 
    if (input$density) {
      dens <- density(faithful$eruptions,
                      adjust = input$bw_adjust)
      lines(dens, col = "blue")
    }
 
  })
}



-----------------------------------------------------------------------------------------

Şimdi Kodlarımız Hazır Şimdi Çıktısına Bakalım.









Bu kodlar ve R Studio da çalıştırarak elde ettiğimiz sonuçları özetlersek gayzerlerden çıkan su miktarlarını dakikalara göre yoğunlukları göz önüne alınarak elimizdeki veriler sonucunda yukarıdaki grafik gibi bir grafik elde ediyoruz. 

Ayrıca yapamayan Arkadaşlar için R Studio Kurulumu