Ggplot2'de çizime ve açıklamaya yatay çizgi nasıl eklenir?

ggplot2’deki bir çizime yatay bir çizgi eklemek için aşağıdaki sözdizimini kullanabilir ve ardından yatay çizgiyi göstergeye bir öğe olarak da ekleyebilirsiniz:

 library (ggplot2)

#create data frame with values to plot
df <- data. frame (team=rep(c(' A ', ' B '), each= 5 ),
                 assists=c(1, 3, 3, 4, 5, 7, 7, 9, 9, 10),
                 points=c(4, 8, 12, 10, 18, 25, 20, 28, 33, 35))

#create data frame that contains horizontal line location
cutoff <- data. frame (yintercept= 22 , Lines=' Cutoff ')

#create scatterplot with horizontal line and include horizontal line in legend
ggplot(df, aes(x=assists, y=points)) + 
  geom_point(aes(color=team)) +
  geom_hline(aes(yintercept=yintercept, linetype=Lines), cutoff)

Yatay çizginin yalnızca y-kesişim değerini içeren ayrı bir veri çerçevesi oluşturarak yatay çizgiyi çizime ekleyebilir ve onu otomatik olarak efsaneye ekleyebiliriz.

Aşağıdaki örnek, bu sözdiziminin pratikte nasıl kullanılacağını gösterir.

Örnek: ggplot2’deki çizime ve açıklamaya yatay bir çizgi ekleyin

R’de farklı takımlardan basketbolcular hakkında bilgi içeren aşağıdaki veri çerçevesine sahip olduğumuzu varsayalım:

 #create data frame
df <- data. frame (team=rep(c(' A ', ' B '), each= 5 ),
                 assists=c(1, 3, 3, 4, 5, 7, 7, 9, 9, 10),
                 points=c(4, 8, 12, 10, 18, 25, 20, 28, 33, 35))

#view data frame
df

   team assists points
1 To 1 4
2 to 3 8
3 to 3 12
4 to 4 10
5 to 5 18
6 B 7 25
7 B 7 20
8 B 9 28
9 B 9 33
10 B 10 35

Diyelim ki her oyuncunun takımına göre puan ve asist değerlerini görselleştirmek için ggplot2’de bir dağılım grafiği oluşturmak istiyoruz, ardından iyi ve kötü arasındaki fark için bir “eşik” tanımlamak üzere y = 22’ye yatay bir çizgi eklemek istiyoruz oyuncular.

Bunu yapmak için aşağıdaki sözdizimini kullanabiliriz:

 library (ggplot2)

#create data frame that contains horizontal line location
cutoff <- data. frame (yintercept= 22 , Lines=' Cutoff ')

#create scatterplot with horizontal line and include horizontal line in legend
ggplot(df, aes(x=assists, y=points)) + 
  geom_point(aes(color=team)) +
  geom_hline(aes(yintercept=yintercept, linetype=Lines), cutoff) 

Grafiğin sağındaki açıklamanın, arsadaki hangi noktaların hangi takımlara ait olduğunu gösteren daireler içerdiğini ve açıklamaya kesme çizgisini temsil etmek için yatay bir çizginin de eklendiğini unutmayın.

Açıklamadaki yatay satır başlığını değiştirmek isterseniz, Veri Çerçevesini Kopar’daki Satırlar sütunundaki metni düzenlemeniz yeterlidir.

Örneğin, yatay çizginin etiketini “İyiye Karşı Kötü Eşiği” olarak değiştirmek için aşağıdaki sözdizimini kullanabiliriz:

 library (ggplot2)

#create data frame that contains horizontal line location
cutoff <- data. frame (yintercept= 22 , Lines=' Cutoff of Good vs. Bad ')

#create scatterplot with horizontal line and include horizontal line in legend
ggplot(df, aes(x=assists, y=points)) + 
  geom_point(aes(color=team)) +
  geom_hline(aes(yintercept=yintercept, linetype=Lines), cutoff) 

Açıklamadaki yatay çizginin etiketinin değiştiğini unutmayın.

Ek kaynaklar

Aşağıdaki eğitimler ggplot2’de diğer genel görevlerin nasıl gerçekleştirileceğini açıklamaktadır:

Ggplot2’de efsane başlığı nasıl değiştirilir?
Ggplot2’de efsane boyutu nasıl değiştirilir?
Ggplot2’de efsane konumu nasıl değiştirilir?