(Dies folgtggplot2 loess Q wofür ich eine nette Antwort bekommen habe) - was zu dieser Handlung führte:

Mein R-Wissen ist ziemlich begrenzt (sorry!)

Ich zeichne eine Streuung mit Daten aus einer Tabelle data1.

<code>data1<-NaRV.omit(data[,c(2,3,7,10)]) #(2=start, 3=end, 7=value, 10=type)
ylabs='E / A - ratio'
p1<-ggplot(data1, aes(x=start, y=value)) +
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)
</code>

Einige Regionen haben keine Daten (einschließlich einer großen Region in der Mitte, aber auch kleinere diskrete Regionen), in denen ich zur Veranschaulichung dieser Tatsache farbige Segmente bei y = 0 zeichnen möchte

Ich habe beide Datentypen in einer Tabelle mit einer Beschriftungsspalte # 10 = 'type' kombiniert (Inhalt für die Streudaten = 'cnv' und für die no-data = 'nregion'). Regionen haben 0 in der Wertespalte.

Wie kann ich nur 'cnv'-Daten für die Streuung und nur' nregion'-Daten zum Zeichnen der Segmente verwenden? beide auf dem gleichen Grundstück?

Ich habe geom_segment gefunden:

<code>+ geom_segment(aes(x=data1$start, y=0, xend=data1$end, yend=0))
</code>

ABER ich habe keine Möglichkeit gefunden, für jede Teilhandlung von ggplot eine Teilmenge zu erstellen.

Vielen Dank

#### Follow-up zu @gauden Lösung

Hallo @gauden, ich habe deinen Ansatz ausprobiert und es hat teilweise funktioniert. Mein Problem ist, dass ich meine Daten nicht so gut aufteilen kann wie Sie es mit] -1; 0] weil meine Regionen verstreut sind (dargestellt durch die blauen Punkte und Linien im Bild) und für jede neue Grafik unterschiedlich sind, wie in diesem Bild:

Folglich durchläuft der Löss nach wie vor die große Region. Wie kann ich Löß in Regionen vorbeugen?

<code>#############################
## plot settings (edit below)
spanv<-0.1
pointcol1="#E69F00"
pointcol2="#56B4E9"
pointcol3="#009E73"
points=20
onecol="green"
colnreg="blue"
xlabs=paste(onechr, " position", " (loess-span=", spanv, ")", sep="")

##### end edit ##############

########################################################
## using the center coordinate of each segment and points

## prepare plot #1
# plot E / A - ratio
## draw loess average for cnv
## draw line for nregion
ylabs='E / A - ratio'
p1<-ggplot(chrdata, aes(x=start+1000, y=E.R, group=type, label=type)) +
ylim(0,5) +
geom_hline(aes(yintercept=1, col=onecol)) +
geom_point(data = chrdata[chrdata$type != 'nregion',], shape=points, col=pointcol2) +
geom_smooth(data = chrdata[chrdata$type != 'nregion',], method="loess", span=spanv) +
geom_point(data = chrdata[chrdata$type == 'nregion',], col=colnreg) +
geom_segment(data = chrdata[chrdata$type == 'nregion',], aes(x=start, y=E.R, xend=end, yend=E.R), colour=colnreg, linetype=1, size=1) +
xlab(xlabs) +
ylab(ylabs)
</code>