मैं एक परत (चिकनी) की किंवदंती रखने और शो के साथ दूसरे (बिंदु) की किंवदंती को हटाने की कोशिश कर रहा हूं। किंवदंती तर्क लेकिन किंवदंती छड़ें।किंवदंती ggplot को हटाकर 2.2
ggplot(a[a$variable=="ratio1",], aes(x=new.cor1, y=value))+
geom_point(aes(x=new.cor1, y=value, color=mntn1...1., show.legend=F), size=0.001)+
geom_point(data=tbl1.cnds1, aes(x=new.cor1.cnds, y=ratio1.cnds), shape=5)+
geom_smooth(data=a, aes(x=new.cor1, y=value, colour=variable, show.legend=T),
size=0.5, span=0.05, show.legend=T)+
labs(title="Manhattan plot", x="position", y="zygosity score", colour = "", fill="")+
theme(axis.text.x = element_text(size=11),
axis.text.y = element_text(size=18),
legend.text=element_text(size=17),
legend.key.size = unit(1, "cm"),
plot.title=element_text(size=25, vjust=3),
plot.margin = unit(c(1,0.9,1,1), "cm"),
axis.text=element_text(size=10),
axis.title = element_text(size=24),
axis.title.y=element_text(margin=margin(r = 13)),
axis.title.x=element_text(margin = margin(t = 10)))+
scale_y_continuous(limits = c(0, 1))+
scale_x_continuous(breaks=breaks, labels=labels)+
geom_text(data=tbl1.cnds1, aes(x=new.cor1.cnds, y=ratio1.cnds, label=cnds.gene),
size=2, hjust=-0.2)+
guides(colour=FALSE)
एक न्यूनतम प्रतिलिपि प्रस्तुत करने योग्य उदाहरण गायब हो जाते हैं बहुत आसान हो जाएगा चाहिए। कोड की लंबी लाइन में बहुत अनावश्यक (हाथ में समस्या के लिए) कोड के साथ-साथ यह पूरी तरह से अपरिवर्तनीय प्रतीत होता है क्योंकि यह वर्तमान में लिखा गया है। – mnel