DERS-6 R PROGRAMLAMA ÇİZİM VE GRAFİKLER

 Ders anlatımını başlamdan önce belirtmek istediğim bazı konular var, R kodları mavi  ve italik şekilde , açıklamalar normal şekilde yazılacak

1- Barplot ile Çubuk Grafiği Çizimi

x <-c(3;2;6;8;4)
barplot(x)


Açıklama: x vektöründeki değerleri bir çubuk grafiği ile gösterir.

Biraz açıklamalı çubuk grafiği çizelim

barplot(x,border=”tan2”,names.arg=c(”Jan”,”Feb”

,”Mar”,”Apr”,”May”),+xlab=

”Month”,ylab = ”Revenue”,density = 

c(0,5,20,50,100))

Açıklamalar
-  x, eldeki verilerimiz yani y eksenine karşılık gelen değerlerimiz
- border, çubukların kenar kalınlığını belirler
- names.arg, y eksenindeki verilerin x eksenindeki isimleri temsil eder
- xlab, x eksenin genel adını temsil eder
- ylab, y eksenin genel adını temsil eder
- density, çubukların yo˘gunluklarını ayarlar  

Daha geniş çaplı bir örnek
A<-matrix(c(3,5,7,1,9,4,6,5,2,12,2,1,7,6,8),nrow=3, ncol =5,byrow=TRUE)

    Açıklama:3x5 lik bir matrix oluşturur, "byrow=TRUE" anlamı, matrixin dizili
şini belirler yani matrix 3,5,7,1... diye sıralanır eğer FALSE olsaydı 3,1,5..
diye sıralanırdı

barplot(A,main=”totalrevenue”,names.arg=c(”Jan”,”Feb”,”Mar”,”Apr”,”May”),
xlab=”month”, ylab=”revenue”, col =c(”tan2”,”blue”,”darkslategray3”))

Açıklama: "A" tanımladığımız matrix, "main" ana başlığımız, "names.arg",
"xlab", "ylab", yukarda açıklanmıştı. "col", matix’imiz 3x5 lik olduğundan
her bir çubuk 3 değeri temsil eder o yüzden 3 farklı renk tanımlanmıştır. Eğer
"beside=TRUE" parametresi yazılsaydı 3 renk aynı çubuk olmak yerine yan
yana oluşurdu¸ Sekil 2 de görüldüğü gibi, yazılmadığı için ¸sekil 1 oluşmaktadır

Şekil 1

Şekil 2

legend(x = 0,2;y = 24,c(”soft”,”hardware”,”service”),cex = .8,
col = c(”tan2”,”blue”,”darkslategray3”), pch = c(22,0,0))

Açıklama:legend() fonskiyonu bar çubuk grafiğinde, koordinatları belirlenen bir
yere bar çubuk grafiğindeki veriler hakkında detaylı bir şekilde kare içine açıklamalar
yazar.legend() fonksiyonundaki parametreler; "x",ve "y" parametreleri
açıklamanın yazılacağı koordinatı belirler, c() verilerin neyi temsil ettiği yazılır,
"col" açıklamaların sol tarafındaki şekillerin rengini belirler, "pch" verilerin
sol tarafına nasıl bir şekil yazılacağını belirler, "cex" verileri açıklayan
karenin büyüklüğünü belirler

2- Circle Çizimi

draw.circle() fonksiyonu ile bir alan üzerine çember çizer. Bu fonksiyonu çalıştırmak için öncelikle "plotrix" paketi(install.packages("plotrix")) yüklenmiş olması lazım. Aşağıdaki örnekte daha önce kullandığımız "BOD" verilerini kullanacağız

plot(BOD)

require(plotrix)      # Gerekli paket cağrılır

draw:circle(4,14,2,border = "blue", col = "tan2") 

"(4,14,2)" ile cember boyutu belirlenir,  "border="blue"" ile cemberin kenar  rengini belirler, "col="tan2"" ile cemberin  iç rengi belirlenir

3- Plot Çizimi

plot(), genel x,y çizim fonksiyonudur  Öncelikle basit bir çizim yapalım
x<-c(1.2,3,4,1.3,-2.1,4.6,2.3,3.2,2.4,2.1,1.8,1.7,2.2)
y<-c(2.4,5.7,2.0,-3,13,5,6.2,4.8,4.2,3.5,3.7,5.2)

plot(x,y)

Daha gelişmiş bir örnek
x<-c(2,0.3,1.4,2.4,4.5)
y<-c(5,0.5,8,2,11)
plot(x,y, type=”l”, col =”blue”,xlab=”AdvertiseChange”, ylab=”RevenueChange”,

main = ”FinancialAnalysis”)

     Acıklama:Burda diğer parametrelerden farklı olarak "type" parametresi bulunmakta

bu parametre tipi "l(line)" olursa cizgi şeklinde aşağıda gosterildiği  gibi olur,

"p" olursa x'in y'e karşılık gelen noktası cember şeklinde gösterilir, "b" olursa "l"

ve "p" parametresinin bileşimi olur, "s" olursa kare dalga şeklinde olur ve son olarak

"h" olursa cizgi halinde histogram oluşur

abline(v = 0,col = ”red”)      #abline() fonskiyonu daha önce çizilmişbir plot yoksa çalışmaz, (0,0) noktasına çizgiyi y eksenine paralel çizer

points(c(1,4),c(9,2), pch = 3, col = ”tan2”)      #1,4 ve 9,2 noktalarına +(pch=3) işareti koyar, "col(tan2)" noktaların tranparantlığını ayarlar
x2<-(-1.5,1.4)
y2<-c(3,2,8)

x2, ve y2 yukarda tanımlı olan x ve y noktaları gibi tanımlanır

lines(x2,y2, col =”darkolivegreen3”)   # nokların kesişim yerlerini yeşil çizgi ile birleştirir

legend(x=-2.2, y=11, c(”advertise”,”sale”),cex = .8 , col = c(”blue”,”darkolivegreen3”),  lty = c(1,1))    

legend() fonksiyonu ile açıklamaları yazar legend() fonksiyonu parametreleri daha önce anlatılmıştı

4- Pie Grafik Çizimi

pie() fonksiyonu pasta grafiği çizer

x<-c(3,2,6,8,4)

pie(x) 

Açıklama: x vektörünün uzunluğu, 5 olduğundan pasta 5 parçaya bölünür ve sırasıyla

1. parça=3, 2. parça=2,  3. parça=6,  4. parça=8,  5. parça=4 olduğunu ifade eder

pieplot(x, labels=c(”Jan”,”Feb”,”Mar”,”Apr”,”May”),xlab=”Month”, ylab=

”Revenue”, col = c(”tan2”,”darkslategray3”,”blue”,”red”,”green”),

density = c(0,5,20,50,100),main = ”SoftRevenue”)

library(plotrix)

parca<- c(10, 12, 4, 16, 8)

baslik<- c("US", "UK", "Australia", "Germany", "France")

pie3D(parca,labels=baslik,explode=0.1, main="Pie Chart of Countries ")

5- Lines Çizimi

abline() fonksiyonu bir plot’a çizgi ekler.

x<-c(1.3,3.4,1.3,-2.1,5.6,2.3,3.2,2.4,2.1,1.8,1.7,2.2)
y<-(2.4,5.7,2.0,-3,13,5,6.2,4.8,4.2,3.5,3.7,5.2)

plot(x,y,cex = .8, pch = 1,xlab = ”x”;,ylab = ”y”, col = ”black”)
x2<-c(4.1,1.1,2.3,0.2,1.2,2.3)
y2<-c(2.3,4.2,1.2,2.1,2,4.3)
points(x2,y2,cex = .8, pch = 3, col = ”blue”)

abline(h = 4, col = ”red”)
abline(v = 0, col = ”green”)
abline(a = 2,b = 2, col = ”blue”)