R TEMEL GRAFIK CIZIMI

1. TEMEL GRAFIK KODLARI

## Pie Chart ##

# pie(x, labels, radius, main, col, clockwise)

## Bar Chart ##

# barplot(x, xlab, ylab, main, col)

## HISTOGRAM ##

# hist(x, main, xlab, ylab, xlim, ylim, col, border)

## Line Chart ##

# plot(x, type, col, xlab, ylab)

## Scatter Plots ##

# plot(x, y, main, xlab, ylab, xlim, ylim, axes, pch)



# x : vektor
# y : vektor
# labels : etiket
# radius : cap (-1 < cap < +1)
# main : baslik
# col : renk
# border : cerceve rengi
# clockwise : saat yönü / saat yönünün tersi
# xlab : x ekseninin adi
# ylab : y ekseninin adi
# main : baslik
# xlim = c(a,b) : x eksenine a ve b sinirini verir
# ylim = c(a,b) : y eksenine a ve b sinirini verir
# pch : nokta turu
# cex = ? : Grafik Noktalarının Sembollerini Boyutunu Değiştirme
# cex.main = ? :Grafik Ana Başlığı Boyutunu Değiştirme
# col.main = "?" : Grafik Ana Başlığının Rengini Değiştirme
#lwd = "?" : Çizgi Türü Çizilen Grafiğin Çizgi Kalınlığını Belirleme

2. UYGULAMA

2.1. VERI YUKLEME

# beIn SPORTS sitesinden alıp Excel CSV formatinda hazirlamis oldugum Galatasaray futbol takiminin verilerini yukluyorum:

getwd() # getwd() bize calisma dizinini verir

## [1] "C:/Users/tncha/Desktop"

setwd("C:/Users/tncha/Desktop") # Yuklemek istedigimiz dosyanin konumunu setwd() fonksiyonuna yazariz

galatasaray <- read.csv("galatasaray.csv", header = TRUE)

2.2 SUTUN GRAFIGI

barplot(galatasaray$Atilan_Gol, xlab = "MAC NO", ylab = "GOL SAYISI", names.arg = galatasaray$Mac_No, col = "red",border = "yellow", main = "GALATASARAYIN ATTIGI GOLLER")

# Yukaridaki grafikte atilan gollerin grafigini verdik. Simdi 1. satiri atilan gollerden, 2. satiri yenilen gollerden olusan bir matris olusturalim ve bu matrisi toplam gol matrisi olarak adlandiralim. Toplam gol grafiginde atilan golleri kirmizi, yenilen golleri ise mavi renk ile gorsellestirelim.

toplam_gol <- c(galatasaray$Atilan_Gol,galatasaray$Yenilen_Gol)
toplam_gol_matris <- matrix(toplam_gol,2,18,byrow = TRUE)

renkler <- c("red", "blue")
durum <- c("galatasaray$Atilan_Gol", "galatasaray$Yenilen_Gol")

barplot(toplam_gol_matris, xlab = "MAC NO", ylab = "TOPLAM GOL", names.arg = galatasaray$Mac_No, col = renkler, main = "TOPLAM GOL")

# Grafikte toplam gol sutunundaki kirmizi renkli hucrenin uzunlugu galatasarayin attigi gol sayisini, mavi renkli hucrenin uzunlugu rakip takimin attigi golun sayisini verir. Mavi sutunun bittigi noktadaki deger ise toplam gol sayisini verir.

2.3 HISTOGRAM

toplam_gol

##  [1] 3 1 6 0 4 0 1 1 1 0 2 3 1 0 2 1 4 6 1 0 0 4 1 3 0 0 1 2 2 0 1 1 2 1 2
## [36] 0

hist(toplam_gol,main = "Toplam Gol - Histogram", xlab = "GOL", ylab = "FREKANS", col="black", border = "red", ylim = c(0,25))

2.4. CIZGI GRAFIGI

plot(galatasaray$Atilan_Gol,col="red",xlab = "MAC NO", ylab = "GOL", main = "ATILAN GOL - CIZGI GRAFIGI", type = "o", lwd="3")

# Yukaridaki grafik atilan gollerin cizgi grafigidir. Ayni zamanda bu grafige galatasarayin yedigi golleri atabiliriz.

plot(galatasaray$Atilan_Gol,col="red",xlab = "MAC NO", ylab = "GOL", main = "ATILAN GOL - CIZGI GRAFIGI", type = "o",lwd="2")
lines(galatasaray$Yenilen_Gol,type = "o", col="blue",lwd="2")

2.5. DAGILIM GRAFIGI

plot(galatasaray$Atilan_Gol,galatasaray$Yenilen_Gol,col="red",main = "ATILAN - YENILEN GOL SERPILME", xlab = "ATILAN", ylab = "YENILEN", pch=15)

3. GRAFIGE METIN EKLEME

plot(galatasaray$Atilan_Gol,col="red",xlab = "MAC NO", ylab = "GOL", main = "ATILAN GOL - CIZGI GRAFIGI", type = "o", lwd="3")
text(x=12, y=3, labels = "3 GOL ATMIS")

4. FONKSIYON CIZIMI

# Fonksiyon cizmek icin curve( ) fonksiyonu kullanilir

curve(sin(x),-(pi*2),(pi*2), col="green", main="sin(x) GRAFIGI", lwd="3")