search for: hjust

...gt;% set("nodes_pch", 19) %>% set("nodes_col", c("orange", "black", "plum", NA)) ggd2 <- as.ggdend(dend2) ggplot(ggd2, horiz = TRUE, theme = NULL) My problem is that the labels overlap the dendogram leafs and I have no idea on how parameter hjust or vjust may be used to create space between label and leaf. Thanks for any help, Sergio [[alternative HTML version deleted]]

...geom_point(aes(y=Estimada), shape=21, fill="blue", color="white")+ labs(y = expression(paste("Biomasa ", (g/cm^{2}))))+ ggtitle("Espeletia standleyana")+ theme_minimal()+ annotate(geom = 'text', x = 0, y = 750, hjust = 0, label = "Biomasa=220,774(IAF)+39,759(Aprom)-163,883")+ annotate(geom = 'text', x = 0, y = 700, hjust = 0, label = "R² = 0,982 P=3,8187E-17") ¿Alguien sabe cómo hacerlo? Agradezco mucho cualquier informac...

...scale_y_continuous(limits=c(0,100), breaks=seq(0,100, by=10))+ theme_bw()+ theme(panel.grid.major = element_line(colour = "gray85"), panel.grid.minor = element_line(colour = "gray85"), axis.text.x = element_text(color = "black", size = 12,angle=45, hjust=1,vjust=1), axis.text.y= element_text(color = "black", size = 12,angle=0, hjust=0.5,vjust=0.5), axis.title.x=element_text(color = "black", size = 15,angle=0, hjust=0.5,vjust=0.5), axis.title.y=element_text(color = "black", size = 15,angle=90, hj...

...rad","Helen","Julie","Steve") Lab2=c('abracadabra','rumplestiltskin','adadf','asddsdfsdsfsds','sdfsdfsfsfs','sddf') valuex = c(3.1,2.3,0.4,-0.4,-1.2,-4.4) df1 <- data.frame(Lab1,Lab2,valuex) df1$hjust <- ifelse(df1$valuex > 0, 1.3, -0.3) df1$Lab1 <- factor(df1$Lab1, levels = unique(df1$Lab1)) df1$Lab2 <- factor(df1$Lab2, levels = unique(df1$Lab2)) ## plot 1 px <- ggplot(df1,aes(Lab,valuex,label=Lab1,hjust = hjust)) + geom_text(aes(y=0,size=5)) + ge...

...imits=c(0,100), breaks=seq(0,100, by=10))+ > theme_bw()+ > theme(panel.grid.major = element_line(colour = "gray85"), > panel.grid.minor = element_line(colour = "gray85"), > axis.text.x = element_text(color = "black", size = 12,angle=45, > hjust=1,vjust=1), > axis.text.y= element_text(color = "black", size = 12,angle=0, > hjust=0.5,vjust=0.5), > axis.title.x=element_text(color = "black", size = 15,angle=0, > hjust=0.5,vjust=0.5), > axis.title.y=element_text(color = "black",...

...t.theme()) else trellis.device(device, file=file, width=width, height=height, theme=celnet.theme()) } "annotate" <- function(str, ...) ## print a metadata message at the top-bottom of current trellis display { else if(n==1){ x <- 0.95 hjust <- "right" } else if(n==2){ x <- c(0.05, 0.95) hjust <- c("left", "right") } else if(n==3){ x <- c(0.05, 0.50, 0.95) hjust <- c("left", "center", "right") } x <- unit(x, &quo...

...q(0,100, by=10))+ > > theme_bw()+ > > theme(panel.grid.major = element_line(colour = "gray85"), > > panel.grid.minor = element_line(colour = "gray85"), > > axis.text.x = element_text(color = "black", size = 12,angle=45, > > hjust=1,vjust=1), > > axis.text.y= element_text(color = "black", size = 12,angle=0, > > hjust=0.5,vjust=0.5), > > axis.title.x=element_text(color = "black", size = 15,angle=0, > > hjust=0.5,vjust=0.5), > > axis.title.y=element_text(co...

...t.theme()) else trellis.device(device, file=file, width=width, height=height, theme=celnet.theme()) } "annotate" <- function(str, ...) ## print a metadata message at the top-bottom of current trellis display { else if(n==1){ x <- 0.95 hjust <- "right" } else if(n==2){ x <- c(0.05, 0.95) hjust <- c("left", "right") } else if(n==3){ x <- c(0.05, 0.50, 0.95) hjust <- c("left", "center", "right") } x <- unit(x, &quo...

Hi there, I would like to make a 'bumps chart' like the ones described e.g. here: http://junkcharts.typepad.com/junk_charts/bumps_chart/ Purpose: I'd like to plot the proportion of people in select countries living for less then one USD pr day in 1994 and 2004 respectively. I have already constructed a barplot - but I think a bumps chart would be better # The barplot and data

In ggplot2 how do you justify the legend text ? In the example below the opts(legend.text = theme_text(size = 9,hjust=0)) changes the size of the text OK but it remains right justified. > mydata=data.frame(RowID=c("A","B","C"),Name=c("long long long long long name","short name ","medium medium name"),Speed=c(100,140,120)) > mydata RowID...

...E) png(paste("img/", X, ".png", sep="")) ggplot(d, aes(x=condition, y=count, color=condition)) + geom_point(position=position_jitter(w=0.1,h=0)) + scale_y_log10(breaks=c(25,100,400)) + ggtitle(X) + theme(plot.title = element_text(hjust = 0.5)) dev.off() } 'd' is a dataframe count condition E11.5 F20HET BA40_quant 955.9788 E11.5 F20HET E11.5 F20HET BA45_quant 796.2863 E11.5 F20HET E11.5 F20HET BB84_quant 745.0340 E11.5 F20HET E11.5 F9.20DKO YEH3_quant 334.2994 E11.5...

...uot;.png", sep="")) >> ggplot(d, aes(x=condition, y=count, color=condition)) + >> geom_point(position=position_jitter(w=0.1,h=0)) + >> scale_y_log10(breaks=c(25,100,400)) + >> ggtitle(X) + >> theme(plot.title = element_text(hjust = 0.5)) >> >> dev.off() >> } >> >> 'd' is a dataframe >> >> count condition >> E11.5 F20HET BA40_quant 955.9788 E11.5 F20HET >> E11.5 F20HET BA45_quant 796.2863 E11.5 F20HET >> E11.5 F...

...is labels are right-justified xyplot( y ~ x, to.plot, pch = 19, ylab = "", xlab = "", cex = 3 ); # now try to set the positioning via scales xyplot( y ~ x, to.plot, pch = 19, ylab = "", xlab = "", cex = 3, scales = list( labels = to.plot$y, hjust = 0.5, vjust = 0.5 ) ); I also explored using yscale.components.default(), but specifying hjust and vjust there did not help. Any suggestions would be very much appreciated! Paul > sessionInfo(); R version 2.8.1 (2008-12-22) i386-pc-mingw32 locale: LC_COLLATE=English_United States....

..._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=seq(from=3,to=6,by=.5),expand=c(0,0)) + coord_flip() + scale_fill_manual(values=c("darkmagenta","lightgoldenrod1")) + opt...

...3,2003,2003,2003, 2004,2004,2004,2004,2004,2004,2004,2004,2004,2004) fc<-sample(1:1000, 50) yfc<-data.frame(year2, fc) #make test precipitation plot yp_plot<-ggplot(yp) + geom_point() + geom_line() + aes(year, y=precip) + opts(title="Site X \n ", axis.text.x=theme_text(angle=45, hjust=1, vjust=1)) + ylab("Annual Precipitation (in.) \n ") + xlab("") #make test fecal coliform plot yfc_plot<-ggplot(yfc) + geom_boxplot() + aes(x=as.factor(year2), y=fc) + opts(axis.text.x=theme_text(angle=45, hjust=1, vjust=1)) + xlab(" \n Date") + ylab("Fecal c...

...group=Day,color=Day,shape=factor(Day),linetype = factor(Day)))+ > labs(title=title,x="Air Quality Index") + > geom_point(size=4,alpha=0.7)+ > geom_line(linewidth=1.5,alpha=0.3)+ > theme(axis.text.x=element_text(angle = -15, hjust = 0))+ > scale_y_continuous(trans='log10') > scale_y_continuous(breaks=seq(0,4000000,by=1000000)) > > > > > > John David Sorkin M.D., Ph.D. > Professor of Medicine, University of Maryland School of Medicine; > Associate Director for Biostatistics and In...

....5, linetype = 1, lineend = "butt"),? ? ? rect = ? ? ? ? ? ? ? element_rect(fill = "white", colour = "black", size = 0.5, linetype = 1),? ? ? text = ? ? ? ? ? ? ? element_text(family = base_family, face = "plain", colour = "black", size = base_size, hjust = 0.5, vjust = 0.5, angle = 0, lineheight = 0.9),? ? ? axis.text = ? ? ? ? ?element_text(size = rel(0.8), colour = "grey50"),? ? ? strip.text = ? ? ? ? element_text(size = rel(0.8)), ? ? ? axis.line = ? ? ? ? ?element_blank(),? ? ? axis.text.x = ? ? ? ?element_text(family = base_family, s...

...gt;>> theme_bw()+ >>> theme(panel.grid.major = element_line(colour = "gray85"), >>> panel.grid.minor = element_line(colour = "gray85"), >>> axis.text.x = element_text(color = "black", size = 12,angle=45, >>> hjust=1,vjust=1), >>> axis.text.y= element_text(color = "black", size = 12,angle=0, >>> hjust=0.5,vjust=0.5), >>> axis.title.x=element_text(color = "black", size = 15,angle=0, >>> hjust=0.5,vjust=0.5), >>> axis.title...

...I_Cat,y=TotalPop/1000000, group=Day,color=Day,shape=factor(Day),linetype = factor(Day)))+ labs(title=title,x="Air Quality Index") + geom_point(size=4,alpha=0.7)+ geom_line(linewidth=1.5,alpha=0.3)+ theme(axis.text.x=element_text(angle = -15, hjust = 0))+ scale_y_continuous(trans='log10') scale_y_continuous(breaks=seq(0,4000000,by=1000000)) John David Sorkin M.D., Ph.D. Professor of Medicine, University of Maryland School of Medicine; Associate Director for Biostatistics and Informatics, Baltimore VA Medical Center Geriatrics R...

...ot;f","f") d.data <- data.frame (v1, v2, v3, gender) d.data x <- names (d.data[1:3]) y <- mean (d.data[1:3]) pl <- ggplot (data=d.data, aes (x=x,y=y)) pl <- pl + geom_bar() pl <- pl + coord_flip() pl <- pl + geom_text (aes(label=round(y,1)),vjust=0.5, hjust=4,colour="white", size=7) pl this gives me a nice barchart to compare the means of my variables "v1","v2" and "v3". my question: how do i have to proceed if i want this barchart splittet by the variable "gender". so i get two small bars for "v...