ggplotの変更を避ける

Question

Q1.ggplotで次のような動作を避ける方法はありますか？

x=c(1,3,4,5,6) 
y=c(0.5,2,3,7,1) 
n=2 
library(ggplot2) 
p <- ggplot(mtcars, aes(wt, mpg)) 
p <-p + geom_segment(aes(x = x[1], y = y[1], xend = x[2], yend = y[2]), colour = "red") 
p <-p + geom_segment(aes(x = x[2], y = y[2], xend = x[3], yend = y[3]), colour = "red") 
p 

x[1]=10 
p 

プロット上の図は、入力で与えられた数値の値に固定のままです。座標を格納するための他の変数を作成する必要がありますか？

Q2：ggplotにpolygonal chainを描画する方法？

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)) 
    } 

ここで回答：Drawing polygonal chains in ggplot

Answer 1

これはハックのように思えるが、明らかに動作します：xを変更する前に、

p$plot_env <- list2env(list(x=x,y=y)) 

を行うその後

x[1] <- 10 
p 

はそのままプロットを残します。