search for: theme_blank

...Scale p + scale_x_discrete(expand=c(0,0)) + scale_y_continuous(limits=c(0,7),breaks=seq(from=0,to=6,by=.5),expand=c(0,0)) + coord_flip() + scale_fill_manual(values=c("darkmagenta","lightgoldenrod1")) + opts( panel.background = theme_rect(colour = NA), panel.background = theme_blank(), panel.grid.minor = theme_blank(), axis.title.x= theme_blank(), axis.title.y= theme_blank(), axis.text.y=theme_text(size=12,hjust=1), legend.text=theme_text(size=14) ) #With 3-6 Scale (Bars Deleted) p + scale_x_discrete(expand=c(0,0)) + scale_y_continuous(limits=c(3,6),breaks...

...ed. The attached image has such borders, to make clear what polygons I am talking about. In the final plot I don't desire such borders, only the as of yet unattainable fill. Here's my code: library(ggplot2) library(plyr) # define good looks no_margins <- opts( axis.line = theme_blank(), axis.text.x = theme_blank(), axis.ticks = theme_blank(), axis.title.x = theme_text(size = 12, vjust = 0.15), axis.title.y = theme_text(angle = 90, size = 12, vjust = 0.2), axis.ticks.length = unit(0, "cm"), axis.ticks.margin = unit(0, "cm"), panel.b...

Hello, I am a beginner with ggplot and after doing simple graphs (histogram, segments etc.) some questions came up: 1) I tried to do a histogram, but nothing is displayed although it works with another vector. I think it is because of the very small values (n=1000, min=1.222e-24 max, 1.890e-20). I used qplot(variable,geom="histogram")... If do it with the standard plot function it

...<- factor(chop(movies$budget, 4), labels = 1:4) doh <- ggplot(movies, aes(x = rrating, fill = budgetq)) doh + geom_bar(width = 1) + coord_polar() #Now with my theme (hacked from theme_bw) getting close to what I need theme_bwdn<-function (base_size = 12) { structure(list(axis.line = theme_blank(), axis.text.x = theme_text(size = base_size * 1, lineheight = 0.9, vjust = 1), axis.text.y = theme_blank(), axis.ticks = theme_segment(colour = "black", size = 0.2), axis.title.x = theme_blank(), axis.title.y = theme_blank(), axis.ticks.length = unit(0, "li...

...+ geom_bar(stat = "identity", position = "stack") b <- b + scale_fill_brewer(palette = "Set1") immigration_theme <- theme_update(axis.text.x = theme_text(angle = 90, hjust = 1), panel.grid.major = theme_line(colour = "grey90"), panel.grid.minor = theme_blank(), panel.background = theme_blank(), axis.ticks = theme_blank(), legend.position = "right") b/ Thanks in advance -- View this message in context: http://r.789695.n4.nabble.com/Ordering-of-stack-in-ggplot-package-ggplot2-tp3917159p3917159.html Sent from the R help mailing list archive...

...rection but without leaf labels i.e. no species names. ggplot()+draw.dendrogram(gen.hc, leaf.order=NULL, dendro.dir = "right")+ opts(panel.grid.major = theme_line(size = 0, colour = NA), panel.grid.minor = theme_line(colour = NA), panel.background = theme_rect(colour = NA), axis.title.y = theme_blank(), axis.title.x = theme_blank(), axis.text.x = theme_blank(), axis.text.y = theme_blank(),axis.ticks = theme_blank()) Any ideas from gurus welcomed! Regards, Mikey -- View this message in context: http://r.789695.n4.nabble.com/neatmap-draw-dendrogram-help-tp4634805.html Sent from the R help mail...

...header=T) allworld <- map_data("world") pdf("map.pdf") ggplot(measurements, aes(long, lat)) + geom_polygon(data = allworld, aes(x = long, y = lat, group = group), colour = "grey70", fill = "grey70") + geom_point(aes(size = ref)) + opts(axis.title.x = theme_blank(), axis.title.y = theme_blank()) + geom_bar(aes(y = normcount)) dev.off() ### -- View this message in context: http://r.789695.n4.nabble.com/Plotting-bar-graph-over-a-geographical-map-tp4346925p4346925.html Sent from the R help mailing list archive at Nabble.com.

...- as.phylo(hc1) p <- ggplot(data=x) p <- p + geom_segment(aes(y=x,x=y,yend=xend,xend=yend), colour="blue",alpha=1) p <- p + geom_text(data=label.phylo(x), aes(x=y, y=x, label=label),family=3, size=3) + xlim(0, xlim) + coord_polar() theme <- theme_update( axis.text.x = theme_blank(), axis.ticks = theme_blank(), axis.title.x = theme_blank(), axis.title.y = theme_blank(), legend.position = "none" ) p <- p + theme_set(theme) print(p) -- View th...

...Y","SMOOTH","ABYSSAL","LITTLE","DEEPWATER","JENSEN'S","WHITE","SOFT")) + ylab("Abundance (fish/tow)") + coord_flip() + theme_bw() + opts(axis.title.x = theme_text(size = 10)) + opts(panel.grid.minor = theme_blank()) + opts(legend.position='none') ) (b<-ggplot(Final2, aes(x=spp, y=WPUE, fill=season)) + geom_bar(position=position_dodge()) + geom_errorbar(aes(ymin=WPUE-wpue.se, ymax=WPUE+wpue.se), size=.3, width=.2, position=positio...

...", plot.title = theme_text(face="bold", size=16), axis.text.x = theme_text(angle=90), axis.title.x = theme_text(face="bold", size=12), axis.title.y = theme_text(face="bold", size=12, angle=90), panel.grid.major = theme_blank(), # switch off major gridlines panel.grid.minor = theme_blank() ) Thanks a lot in advance -- View this message in context: http://r.789695.n4.nabble.com/Scatter-plots-linear-regression-in-ggplot2-tp3765080p3765080.html Sent from the R help mailing list archive at Nabble....

Dear all, For two sets of random variables, say, x <- rnorm(1000, 10, 10) and y <- rnorm(1000. 3, 20). Is there any way to overlay the histograms (and density curves) of x and y on the plot of y vs. x? The histogram of x is on the x axis and that of y is on the y axis. The density curve here is to approximate the shape of the distribution and does not have to have area 1. Thank you

...]), colour=variable, geom="line", xlab="meters across the channel", ylab="meters from bankfull", col="black", linetype=variable, main=list.names[i])+facet_grid(station~Creek)+scale_y_reverse(breaks=breaks)+scale_x_reverse()+theme_bw()+ opts(panel.grid.minor = theme_blank(), panel.grid.major=theme_blank()) dev.off() } -- Stephen Sefick Let's not spend our time and resources thinking about things that are so little or so large that all they really do for us is puff us up and make us feel like gods. We are mammals, and have not exhausted the annoying little p...

...togram and a boxplot summarize a single continuous variable. Thus I would like the continuous axis to be horizontal in both plots. The following code achieves (2) and part of (3): library(ggplot2) qplot(factor(0), mpg, data=mtcars, geom="boxplot", xlab="")+ opts(axis.text.x = theme_blank(), axis.ticks=theme_blank()) but to remove the ticks from the meaningless (horizontal) axis I had to also remove the ticks from the meaningful (vertical) axis. On page 143 of Wickham's ggplot2 book, I find axis.ticks as a theme element but nothing like axis.ticks.x. Is there a way to remove...

...=TRUE) mlabs <- month.name[1:12] p <- ggplot(year, aes(duration, temps, colour=month)) + geom_line() + ylab("Temperature (C)") + xlab("Mean Daily Temperatures") + opts(legend.position = "none", title="Ottawa, 2008", axis.text.x = theme_blank(), axis.ticks = theme_blank()) + geom_vline(xintercept= line.count) [[elided Yahoo spam]] p + geom_text(aes(x = namposts, y = temprange[2], label = mlabs), data = year, size = 2.5, colour='black', hjust = 0, vjust = 0) ================================================...

...ng function was kindly provided by GGally?s maintainer, Barret Schloerke. function(data, mapping, ...) { p <- ggplot(data = data, mapping = mapping) + geom_point(color = I("blue")) + geom_smooth(method = "lm", color = I("black"), ...) + theme_blank() + theme(panel.border=element_rect(fill=NA, linetype = "solid", color="black")) lmModel <- eval(substitute(lm(y ~ x, data = data), mapping)) fs <- summary(lmModel)$fstatistic pValue <- pf(fs[1], fs[2], fs[3], lower.tail = FALSE) if (pValue &lt...

...(aes(x=timepoint, y=value,group=sample, colour= factor(sample))) +? geom_point(aes(x=timepoint, y=value, group=s ample)) + facet_wrap(~bio, scales = "free",ncol = 5) +theme_bw() + opts(legend.direction = "horizontal",??? legend.position = "top",???? legend.background = theme_blank()) +? labs(fill="") dev.off() This generates one nice plot with many many plots in 1 file. How do I modify the code to split up the plots into single file instead of merging them in 1 file I want each plot to be in a separate file ? Thanks in advance

When I am using geom_bar I get these white slashes through the legend keys. I cannot figure out how to remove them. ggplot(diamonds, aes(clarity, fill=cut)) + geom_bar() I have tried using opts(legend.key = theme_blank()) but with no luck. Any suggestions would be much appreciated. I am using R vers. 2.15.0 and ggplot 0.9.1, win xp Best wishes Jonas Hal _________________________________________________________________________________________________________________________________________ BRFkredit sender e-m...

...571B0", mid="#F7F7F7", high="#CA0020", midpoint=0, breaks=NULL, labels=NULL, limits=NULL, trans="identity") # set up text (size, colour etc etc) hp2 <- hp2 + labs(x = "Time", y = "") + scale_y_discrete(expand = c(0, 0)) + opts(axis.ticks = theme_blank(), axis.text.x = theme_text(size = 10, angle = 360, hjust = 0, colour = "grey25"), axis.text.y = theme_text(size=10, colour = 'gray25')) hp2 <- hp2 + theme_bw() In the resulting plot I would like infections infA and infC plotted next to each other and likewise for infB and in...

I am playing around learning ggplot and cannot see how to suppress the x or y axis values ( equivalent of xaxt in basic graphics) It must be obvious but I'm not seeing it. Problem ================================================================= timedata <- structure(list(month = structure(c(5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L,

...breaks=c("PCT_ENR_FALL1", "PCT_ENR_FALL2"), labels=c("1st fall", "2nd fall")) + opts(title="Postsecondary Enrollment Rates of High School Graduates", legend.position="bottom", axis.title.y=theme_blank()) + guides(fill=guide_legend(nrow=1)) + xlab("Graduation year") The legend on the resulting plot uses "Enrolled_by" for a title. I'd like it to be able to use "Enrolled by" without the underscore, but thus far I've been unable to get ggplot to use a variabl...