Zeichnung polygonalen Ketten in ggplot

Question

Wie zeichne multiples polygonal chains in ggplot? Ich schrieb so etwas wie:

x=c(1,3,4,5,6) 
y=c(0.5,2,3,7,1) 
z=c(8,2,6,7,8) 
n=length(x)-1 
library(ggplot2) 
p <- ggplot(mtcars, aes(wt, mpg)) 
for (i in 1:n){ 
    p <-p + geom_segment(aes(x = x[i], y = y[i], xend = x[i+1], yend = y[i+1]), colour = "red") 
    p$plot_env <- list2env(list(x=x,y=y)) 
    } 

Zeichnung zwei polygonalen Ketten:

n=length(x) 
pol1=c(x,y) 
pol2=c(y,z) 
g=c(rep(1,n),rep(2,n)) 
library(ggplot2) 
p0 <- ggplot(mtcars,aes(wt,mpg)) 
p0 + geom_path(aes(pol1,pol2,group=g),data=data.frame(pol1,pol2)) 

Answer 1

Ich kann nicht ganz sagen, was Sie hier wollen.

• Sie geben mehr als einen Pfad an? Ich sehe nur einen einzigen Satz von x und y Werte.
• Was soll z tun?

Sie können über

p0 <- ggplot(mtcars,aes(wt,mpg)) 
p <- p0 + geom_path(aes(x,y),data=data.frame(x,y)) 

oder einen geschlossenen Weg über

p0 + geom_polygon(aes(x,y),data=data.frame(x,y),fill=NA, 
      colour="black") 

einen einzigen (nicht geschlossenen) Pfad zeichnen Wenn Sie mehr als einen Weg haben, können Sie alle kombinieren die Vertices in zwei langen Vektoren x und y, bilden einen g Vektor, um Pfade zu unterscheiden, und verwenden aes(x,y,group=g), um die Pfade/Polygone werden separat gezeichnet.