I have a graph facet of 3 rows of 5 columns. Each row shows data that spreads over different ranges. In order to display my data correctly so that everything is shown, I do not set the y axis limit.
Here is my code:
require(reshape2) library(ggplot2) library(RColorBrewer) fileName = paste("./data_test.csv", sep = "") ## data available here: https://dl.dropboxusercontent.com/u/73950/data_test.csv mydata = read.csv(fileName,sep=",", header=TRUE) dataM = melt(mydata,c("id")) dataM = cbind(dataM, colsplit(dataM$variable, pattern = "_", names = c("Network_model", "order", "category"))) dataM$variable <- NULL dataM <- dcast(dataM, ... ~ category, value.var = "value") dataM$minCut <- NULL dataM$nbr_communities <- NULL dataM$mean_community_size <- NULL dataM$density <- NULL my_palette <- colorRampPalette(rev(brewer.pal(11, "Spectral"))) dataM = melt(dataM, id.vars = c("Network_model", "order", "nodesRemoved", "id")) my_palette = c(brewer.pal(5, "Blues")[c(4)], brewer.pal(5, "Set1")[c(3)]) ggplot(dataM, aes(x= nodesRemoved ,y= value, group= order, color= order)) + geom_point(size = .6,alpha = .15,position="jitter") + ## increased size stat_smooth(se = FALSE, size = .5, alpha = .1, method = "loess") + scale_color_manual(values=my_palette) + theme_bw() + theme(plot.background = element_blank(), axis.line = element_blank(), legend.key = element_blank(), legend.title = element_blank(), axis.text.x = element_text(size = 8), axis.text.y = element_text(size = 8) ) + scale_y_continuous("Value") + scale_x_continuous("Time", limits=c(0, 100)) + facet_grid(variable ~ Network_model,scales="free")
What produces this:
Now I would like to selectively set limits for each of the three lines, so the first line is limits = c (1.9, 3), the second is limits = c (0, 1), and the third is limits = c (.3 ,. 7).
How can I achieve this in ggplot2 cut?