I have this figure below where I used the following aesthetics:
p<- ggplot(cpp, aes(x = Num_Good, y = TTB, group = key.related.sheet, color = cutoff)) +
geom_line() + geom_point()+ #to show the dots
labs(title="Coherent", x="Number of wanted", y="TTB") +
scale_x_continuous(breaks = c(0,500,1500, 3000, seq(5000,max(x),10000)),
labels = c(0,500,1500, 3000, seq(5000,max(x),10000)))+
# scale_y_continuous(breaks = seq(min(TTB),max(TTB),0.2),
# labels = seq(min(TTB),max(TTB),0.2))+
scale_y_continuous(breaks = seq(-1,2,0.25),
labels = seq(-1,2,0.25))+
scale_colour_discrete(guide = FALSE)
p+ geom_hline(yintercept = 0, colour="black", linetype = "longdash")+
geom_hline(yintercept = 0.5, colour="black", linetype = "longdash")+
geom_hline(yintercept = 1.0, colour="black", linetype = "longdash")+
coord_cartesian(ylim=c(-0.5, 1.5))+
coord_cartesian(xlim=c(0, 30000))
I now want to get rid of the empty space (region of flanking dashed lines on the left) between the actual figure and the Y-axis. I also want to make the three longdashed lines with wider space and thinner size. How can I do this?
