diagramme de dispersion avec la ligne de loess, loess pour ne pas montrer la ligne dans une région donnée

Question

je tracer des valeurs ici sur la longueur d'un chromosome

La région médiane sans point ne contient aucune donnée et ne doit pas obtenir un loess ligne. Comment puis-je modifier mon code pour arrêter la ligne de loess sur cette région? Les données sont continues mais je pourrais ajouter des lignes pour marquer la région vide avec une valeur spéciale ou ajouter une colonne avec un label ?? mais comment l'utiliser dans la commande?

ma commande en cours:

library(IDPmisc) 

# plot settings (edit here) 
spanv<-0.05 
pointcol1="#E69F00" 
pointcol2="#56B4E9" 
pointcol3="#009E73" 
points=20 
linecol="green" 
xlabs=paste(onechr, " position", " (loess-span=", spanv, ")", sep="") 

data1<-NaRV.omit(data[,c(2,7)]) # keep only x and y for the relevant data 
           # and clean NA and Inf 
ylabs='E/A - ratio' 
p1<-ggplot(data1, aes(x=start, y=E.R)) + 
ylim(0,5) + 
geom_point(shape=points, col=pointcol1, na.rm=T) + 
geom_hline(aes(yintercept=1, col=linecol)) + 
geom_smooth(method="loess", span=spanv, fullrange=F, se=T, na.rm=T) + 
xlab(xlabs) + 
ylab(ylabs) 

Answer 1

je ferais une des deux choses:

1. Est-ce que le loess() montage à l'extérieur de ggplot(), prévoir pour les deux régions séparément et ajouter chaque ensemble de prédictions l'intrigue avec sa propre couche geom_line().
2. Semblable à ce qui précède, mais cette fois dans ggplot() domaine d'opérations. Ajouter deux couches à l'intrigue, pas un, à la fois en utilisant geom_smooth(), mais surtout changer l'argument data fourni à chacun pour se référer à seulement l'une ou l'autre partie des données.

Pour ce dernier, peut-être quelque chose comme:

.... 
geom_smooth(data = data[1:n, ], method="loess", span=spanv, fullrange=FALSE, 
      se=TRUE, na.rm=TRUE) + 
geom_smooth(data = data[m:k, ], method="loess", span=spanv, fullrange=FALSE, 
      se=TRUE, na.rm=TRUE) 
.... 

où n et m et k se réfèrent aux indices qui marquent la fin de la série 1 et le début et la fin de série 2 et qui doivent être défini ou fourni par vous directement.