R'de aynı grafikte iki grafik çizin

Aynı plana y1 ve y2'yi çizmek istiyorum.

x  <- seq(-2, 2, 0.05)
y1 <- pnorm(x)
y2 <- pnorm(x, 1, 1)
plot(x, y1, type = "l", col = "red")
plot(x, y2, type = "l", col = "green")

Ama bunu böyle yaptığımda, birlikte aynı arsada çizilmezler.

Matlab'da bunu yapabilirsiniz hold on, ama kimse bunu R'de nasıl yapacağını biliyor mu?

lines()veya points()mevcut grafiğe eklenir, ancak yeni bir pencere oluşturmaz. Yani yapmanız gerekecek

plot(x,y1,type="l",col="red")
lines(x,y2,col="green")

parAynı grafiği ancak farklı ekseni de kullanabilir ve çizebilirsiniz. Aşağıdaki gibi bir şey:

plot( x, y1, type="l", col="red" )
par(new=TRUE)
plot( x, y2, type="l", col="green" )

Hakkında detaylı okursanız parin R, gerçekten ilginç grafikler oluşturmak mümkün olacak. Bakılacak başka bir kitap Paul Murrel'in R Graphics'i.

Çok katmanlı araziler oluştururken ggplotpaket düşünülmelidir . Fikir, temel estetiği olan bir grafik nesne yaratmak ve onu aşamalı olarak geliştirmektir.

ggplotstyle, verilerin paketlenmesini gerektirir data.frame.

# Data generation
x  <- seq(-2, 2, 0.05)
y1 <- pnorm(x)
y2 <- pnorm(x,1,1)
df <- data.frame(x,y1,y2)

Temel çözüm:

require(ggplot2)

ggplot(df, aes(x)) +                    # basic graphical object
  geom_line(aes(y=y1), colour="red") +  # first layer
  geom_line(aes(y=y2), colour="green")  # second layer

Burada + operatortemel nesneye fazladan katmanlar eklemek için kullanılır.

İle ggplotsize komplo her aşamasında üzerinde grafiksel nesneye erişimi vardır. Diyelim ki, normal adım adım kurulum şöyle görünebilir:

g <- ggplot(df, aes(x))
g <- g + geom_line(aes(y=y1), colour="red")
g <- g + geom_line(aes(y=y2), colour="green")
g

gçizimi üretir ve her aşamada görebilirsiniz (en az bir katmanın oluşturulmasından sonra). Parselin daha fazla büyüsü de yaratılmış nesne ile yapılır. Örneğin, eksenler için etiketler ekleyebiliriz:

g <- g + ylab("Y") + xlab("X")
g

Final gşöyle görünür:

GÜNCELLEME (2013-11-08):

Yorumlarda belirtildiği gibi, ggplotfelsefesi verileri uzun formatta kullanmanızı önerir. İlgili kodu görmek için bu cevaba başvurabilirsiniz .

Aradığınız cevabın şu olduğunu düşünüyorum:

plot(first thing to plot)
plot(second thing to plot,add=TRUE)

matplotİşlevi kullanın :

matplot(x, cbind(y1,y2),type="l",col=c("red","green"),lty=c(1,1))

y1ve y2aynı xnoktalarda değerlendirilirse bunu kullanın . O hangisi uyum için Y ekseni ölçekler daha büyük ( y1veya y2), keser burada diğer bazı yanıtlar aksine y2o daha büyük alırsa y1(ggplot çözümler çoğunlukla bunu kabul vardır).

Alternatif olarak ve iki satır aynı x koordinatlarına sahip değilse, ilk grafikte eksen sınırlarını ayarlayın ve ekleyin:

x1  <- seq(-2, 2, 0.05)
x2  <- seq(-3, 3, 0.05)
y1 <- pnorm(x1)
y2 <- pnorm(x2,1,1)

plot(x1,y1,ylim=range(c(y1,y2)),xlim=range(c(x1,x2)), type="l",col="red")
lines(x2,y2,col="green")

Bu Q 4 yaşında ve kimse bahsetmedi matplotya da şaşırdım x/ylim...

tl; dr:curve (ile add=TRUE) veya kullanmak istiyorsunuz lines.

Kabul etmiyorum par(new=TRUE)çünkü bu onay işaretlerini ve eksen etiketlerini iki katına basacak. Örneğin

Çıktı plot(sin); par(new=T); plot( function(x) x**2 ).

Dikey eksen etiketlerinin ne kadar dağınık olduğuna bakın! Aralıkları farklı olduğu için sete gerekir ylim=c(lowest point between the two functions, highest point between the two functions)sana göstermek üzere olduğum şey daha az kolaydır --- ve hangi yolu değil, sadece iki eğri, ancak birçok eklemek istiyorsanız kolay azdır.

Ne zaman komplo hakkında bana karıştı arasındaki farktır curveve lines. (Bunların iki önemli çizim komutunun adı olduğunu hatırlayamıyorsanız, sadece söyleyin .)

İşte curveve arasındaki büyük fark lines.

curvegibi bir işlevi çizer curve(sin). linesgibi x ve y değerleri, parseller noktası: lines( x=0:10, y=sin(0:10) ).

Ve burada küçük bir fark var: Yapmaya çalıştığınız şey curveiçin çağrılmalı, mevcut bir arsaya eklediğinizi varsayalım.add=TRUElines

İşte aramanın sonucu plot(0:2); curve(sin).

Perde arkasında kontrol edin methods(plot). Ve kontrol edin body( plot.function )[[5]]. plot(sin)R'yi çağırdığınızda sinbunun bir işlev olduğunu (y değerleri değil) ve plot.functionçağrıyı sonuçlandıran yöntemi kullandığını anlarsınız curve. Yani curveişlevleri işlemek anlamına araçtır.

çizimi iki sütuna (yan yana 2 grafik) bölmek istiyorsanız, bunu şu şekilde yapabilirsiniz:

par(mfrow=c(1,2))

plot(x)

plot(y) 

Referans Bağlantısı

@Redmode tarafından açıklandığı gibi, kullanarak aynı grafik aygıtındaki iki satırı çizebilirsiniz ggplot. Bu cevapta veriler 'geniş' formattaydı. Bununla birlikte, ggplotverileri kullanırken genellikle veri çerçevesindeki verileri 'uzun' bir formatta tutmak en uygunudur. Daha sonra, aesgenetik argümanlarında farklı 'gruplama değişkenleri' kullanıldığında, çizginin çizgi tipi veya renk gibi özellikleri gruplama değişkenine göre değişir ve karşılık gelen göstergeler görünecektir.

Bu durumda, coloursatırların rengini veri kümesindeki bir değişkenin farklı düzeyleriyle eşleşen aessthetics'i kullanabiliriz (burada: y1 ve y2). Ancak önce, örneğin reshape2paketten 'erit' işlevini kullanarak verileri genişten uzun biçime eritmemiz gerekir. Verileri yeniden şekillendirmek için diğer yöntemler burada açıklanmıştır: data.frame'i genişden uzun biçime yeniden şekillendirmek .

library(ggplot2)
library(reshape2)

# original data in a 'wide' format
x  <- seq(-2, 2, 0.05)
y1 <- pnorm(x)
y2 <- pnorm(x, 1, 1)
df <- data.frame(x, y1, y2)

# melt the data to a long format
df2 <- melt(data = df, id.vars = "x")

# plot, using the aesthetics argument 'colour'
ggplot(data = df2, aes(x = x, y = value, colour = variable)) + geom_line()

Temel grafikler (ör. Kafes / ızgara grafikleri değil) kullanıyorsanız, yeni bir arsa başlatmadan grafiklerinize ek ayrıntılar eklemek için noktalar / çizgiler / çokgenler işlevlerini kullanarak MATLAB'ın bekletme özelliğini taklit edebilirsiniz. Çok alanlı düzen durumunda, par(mfg=...)hangi grafiği ekleyeceğinizi seçmek için kullanabilirsiniz.

Overplot için puan kullanabilirsiniz.

plot(x1, y1,col='red')

points(x2,y2,col='blue')

Bir dizide çizilecek değerleri tutmak yerine, bunları bir matriste saklayın. Varsayılan olarak tüm matris tek bir veri kümesi olarak ele alınır. Ancak, matriste satırlarınız olduğu gibi, çizime aynı sayıda değiştirici eklerseniz, örneğin col (), R, her satırın bağımsız olarak ele alınması gerektiğini anlayacaktır. Örneğin:

x = matrix( c(21,50,80,41), nrow=2 )
y = matrix( c(1,2,1,2), nrow=2 )
plot(x, y, col("red","blue")

Veri kümeleriniz farklı boyutlarda değilse bu işe yarayacaktır.

Deyimsel Matlab plot(x1,y1,x2,y2)R ile ggplot2örneğin şu şekilde çevrilebilir :

x1 <- seq(1,10,.2)
df1 <- data.frame(x=x1,y=log(x1),type="Log")
x2 <- seq(1,10)
df2 <- data.frame(x=x2,y=cumsum(1/x2),type="Harmonic")

df <- rbind(df1,df2)

library(ggplot2)
ggplot(df)+geom_line(aes(x,y,colour=type))

^{Tingting Zhao'nun farklı x ekseni aralığına sahip çift çizgi grafikleri ggplot2 kullanarak esinlenmiştir .}

Buradaki gggplot2 örneklerinden herhangi birini etkileşimli bir arsaya dönüştürmek ggplotly()için plotly paketindeki işlevi kullanabilirsiniz , ancak bu tür bir arsa ggplot2 olmadan daha iyi olduğunu düşünüyorum :

# call Plotly and enter username and key
library(plotly)
x  <- seq(-2, 2, 0.05)
y1 <- pnorm(x)
y2 <- pnorm(x, 1, 1)

plot_ly(x = x) %>%
  add_lines(y = y1, color = I("red"), name = "Red") %>%
  add_lines(y = y2, color = I("green"), name = "Green")

Çiziminizi ggvis kullanarak da oluşturabilirsiniz :

library(ggvis)

x  <- seq(-2, 2, 0.05)
y1 <- pnorm(x)
y2 <- pnorm(x,1,1)
df <- data.frame(x, y1, y2)

df %>%
  ggvis(~x, ~y1, stroke := 'red') %>%
  layer_paths() %>%
  layer_paths(data = df, x = ~x, y = ~y2, stroke := 'blue')

Bu aşağıdaki grafiği oluşturacaktır:

Kullanma plotly( plotlybirincil ve ikincil y ekseni ile çözüm ekleme- Eksik gibi görünüyor):

library(plotly)     
x  <- seq(-2, 2, 0.05)
y1 <- pnorm(x)
y2 <- pnorm(x, 1, 1)

df=cbind.data.frame(x,y1,y2)

  plot_ly(df) %>%
    add_trace(x=~x,y=~y1,name = 'Line 1',type = 'scatter',mode = 'lines+markers',connectgaps = TRUE) %>%
    add_trace(x=~x,y=~y2,name = 'Line 2',type = 'scatter',mode = 'lines+markers',connectgaps = TRUE,yaxis = "y2") %>%
    layout(title = 'Title',
       xaxis = list(title = "X-axis title"),
       yaxis2 = list(side = 'right', overlaying = "y", title = 'secondary y axis', showgrid = FALSE, zeroline = FALSE))

Çalışan demodan ekran görüntüsü:

kafes kütüphanesini de kullanabiliriz

library(lattice)
x <- seq(-2,2,0.05)
y1 <- pnorm(x)
y2 <- pnorm(x,1,1)
xyplot(y1 + y2 ~ x, ylab = "y1 and y2", type = "l", auto.key = list(points = FALSE,lines = TRUE))

Belirli renkler için

xyplot(y1 + y2 ~ x,ylab = "y1 and y2", type = "l", auto.key = list(points = F,lines = T), par.settings = list(superpose.line = list(col = c("red","green"))))