Ggtcf

Intersection Puzzle

Are there any examples of a variable being normally distributed that is *not* due to the Central Limit Theorem?

Size of subfigure fitting its content (tikzpicture)

What reasons are there for a Capitalist to oppose a 100% inheritance tax?

A category-like structure without composition?

Ambiguity in the definition of entropy

Why are the 737's rear doors unusable in a water landing?

How can I prevent hyper evolved versions of regular creatures from wiping out their cousins?

Should I tell management that I intend to leave due to bad software development practices?

What exploit are these user agents trying to use?

How seriously should I take size and weight limits of hand luggage?

How can I deal with my CEO asking me to hire someone with a higher salary than me, a co-founder?

How does a predictive coding aid in lossless compression?

Can my sorcerer use a spellbook only to collect spells and scribe scrolls, not cast?

Is there an expression that means doing something right before you will need it rather than doing it in case you might need it?

Why doesn't using multiple commands with a || or && conditional work?

What do you call someone who asks many questions?

What mechanic is there to disable a threat instead of killing it?

What killed these X2 caps?

Is "remove commented out code" correct English?

What's the in-universe reasoning behind sorcerers needing material components?

Short story with a alien planet, government officials must wear exploding medallions

How dangerous is XSS?

Alternative to sending password over mail?

Delete the symbol a from legend

Remove 'a' from legend when using aesthetics and geom_textWhy does geom_text() throw coercion errors when hjust and vjust are strings?ggplot2 plot without axes, legends, etcggplot2 legend to bottom and horizontalggplot2 avoid boxes around legend symbolsTurning off some legends in a ggplotHow to change legend title in ggplotremove legend title in ggplotggplot2: Adjust the symbol size in legendsRemove legend ggplot 2.2Subscript a title in a Graph (ggplot2) with label of another file

0

0

I need to delete that symbol 'a' that is coming in the legend, plus I would like to know if there is a possibility to place the label on the top of the bars.

This my example file:

Residue,Position,Weight,SVM Count,Odd,Ttest,lower,upper,Resistance
G163R,163,0.357,49,19.9453848,6.978518E-82,5.6628402,70.2925768,Accessory
V165I,165,0.268,49,2.98167788,1.60934E-80,1.25797484,7.06728692,Novel
N155H,155,0.253,50,38.6089584,1.089188E-83,9.5815554,155.7070612,Major

library(ggplot2)
m <- read.csv('example.csv', header=T, row.names=1)
boxOdds = m$Odd

df <- data.frame(
 yAxis = length(boxOdds):1,
 boxnucleotide = m$Position,
 boxCILow = m$lower,
 boxCIHigh = m$upper,
 Mutation = m$Resistance)
ticksy<-c(seq(0,0.3,by=.1), seq(0, 1, by =.5), seq(0, 20, by =5), seq(0, 150, by =50))
ticksx<-c(seq(0,300,by=25))
p <- ggplot(df, aes(x = boxnucleotide, y = boxOdds, colour=Mutation,label=rownames(m)))
p1 <- p + geom_errorbar(aes(ymax = boxCIHigh, ymin = boxCILow), size = .5, height = .01) +
 geom_point(size = 1) +
 theme_bw() +
 theme(panel.grid.minor = element_blank()) +
 scale_y_continuous(breaks=ticksy, labels = ticksy) +
 scale_x_continuous(breaks=ticksx, labels = ticksx) +
 coord_trans(y = "log10") +
 ylab("Odds ratio (log scale)") +
 scale_color_manual(values=c("#00BFC4","#F8766D","#619CFF")) +
 xlab("Integrase nucleotide position") + 
 geom_text(size=4,hjust=0, vjust=0)+
 theme(legend.position = c(0.9, 0.9))
p1

I already tried all possible solutions from Remove 'a' from legend when using aesthetics and geom_text but none worked out

r ggplot2

share|improve this question

edited Mar 9 at 23:52

Mariano Avino

asked Mar 8 at 22:45

Mariano AvinoMariano Avino

375

• 
  
  
  

  
  1
  

  
  
  
  
  
  

  
  
  re Q1 : stackoverflow.com/questions/18337653/… , and to place the label, try and add aes(y=boxCIHigh) to the geom_text (untested)
  
  – user20650
  Mar 8 at 22:47
  
  

  
  
  
  


• 
  
  
  

  
  3
  

  
  
  
  
  
  

  
  
  Possible duplicate of Remove 'a' from legend when using aesthetics and geom_text
  
  – camille
  Mar 8 at 23:03
  

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  I tried those solutions proposed in stackoverflow.com/questions/18337653/… but they did not work
  
  – Mariano Avino
  Mar 9 at 23:54
  

  
  
  
  


• 
  
  
  

  
  1
  

  
  
  
  
  
  

  
  
  @MarianoAvino What happens when you replace your geom_text(...) line with geom_text(aes(y = boxCIHigh), show.legend = FALSE)?
  
  – Z.Lin
  Mar 10 at 4:44
  

  
  
  
  

add a comment | 

0

0

I need to delete that symbol 'a' that is coming in the legend, plus I would like to know if there is a possibility to place the label on the top of the bars.

This my example file:

Residue,Position,Weight,SVM Count,Odd,Ttest,lower,upper,Resistance
G163R,163,0.357,49,19.9453848,6.978518E-82,5.6628402,70.2925768,Accessory
V165I,165,0.268,49,2.98167788,1.60934E-80,1.25797484,7.06728692,Novel
N155H,155,0.253,50,38.6089584,1.089188E-83,9.5815554,155.7070612,Major

library(ggplot2)
m <- read.csv('example.csv', header=T, row.names=1)
boxOdds = m$Odd

df <- data.frame(
 yAxis = length(boxOdds):1,
 boxnucleotide = m$Position,
 boxCILow = m$lower,
 boxCIHigh = m$upper,
 Mutation = m$Resistance)
ticksy<-c(seq(0,0.3,by=.1), seq(0, 1, by =.5), seq(0, 20, by =5), seq(0, 150, by =50))
ticksx<-c(seq(0,300,by=25))
p <- ggplot(df, aes(x = boxnucleotide, y = boxOdds, colour=Mutation,label=rownames(m)))
p1 <- p + geom_errorbar(aes(ymax = boxCIHigh, ymin = boxCILow), size = .5, height = .01) +
 geom_point(size = 1) +
 theme_bw() +
 theme(panel.grid.minor = element_blank()) +
 scale_y_continuous(breaks=ticksy, labels = ticksy) +
 scale_x_continuous(breaks=ticksx, labels = ticksx) +
 coord_trans(y = "log10") +
 ylab("Odds ratio (log scale)") +
 scale_color_manual(values=c("#00BFC4","#F8766D","#619CFF")) +
 xlab("Integrase nucleotide position") + 
 geom_text(size=4,hjust=0, vjust=0)+
 theme(legend.position = c(0.9, 0.9))
p1

I already tried all possible solutions from Remove 'a' from legend when using aesthetics and geom_text but none worked out

r ggplot2

share|improve this question

edited Mar 9 at 23:52

Mariano Avino

asked Mar 8 at 22:45

Mariano AvinoMariano Avino

375

• 
  
  
  

  
  1
  

  
  
  
  
  
  

  
  
  re Q1 : stackoverflow.com/questions/18337653/… , and to place the label, try and add aes(y=boxCIHigh) to the geom_text (untested)
  
  – user20650
  Mar 8 at 22:47
  
  

  
  
  
  


• 
  
  
  

  
  3
  

  
  
  
  
  
  

  
  
  Possible duplicate of Remove 'a' from legend when using aesthetics and geom_text
  
  – camille
  Mar 8 at 23:03
  

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  I tried those solutions proposed in stackoverflow.com/questions/18337653/… but they did not work
  
  – Mariano Avino
  Mar 9 at 23:54
  

  
  
  
  


• 
  
  
  

  
  1
  

  
  
  
  
  
  

  
  
  @MarianoAvino What happens when you replace your geom_text(...) line with geom_text(aes(y = boxCIHigh), show.legend = FALSE)?
  
  – Z.Lin
  Mar 10 at 4:44
  

  
  
  
  

add a comment | 

I need to delete that symbol 'a' that is coming in the legend, plus I would like to know if there is a possibility to place the label on the top of the bars.

This my example file:

Residue,Position,Weight,SVM Count,Odd,Ttest,lower,upper,Resistance
G163R,163,0.357,49,19.9453848,6.978518E-82,5.6628402,70.2925768,Accessory
V165I,165,0.268,49,2.98167788,1.60934E-80,1.25797484,7.06728692,Novel
N155H,155,0.253,50,38.6089584,1.089188E-83,9.5815554,155.7070612,Major

library(ggplot2)
m <- read.csv('example.csv', header=T, row.names=1)
boxOdds = m$Odd

df <- data.frame(
 yAxis = length(boxOdds):1,
 boxnucleotide = m$Position,
 boxCILow = m$lower,
 boxCIHigh = m$upper,
 Mutation = m$Resistance)
ticksy<-c(seq(0,0.3,by=.1), seq(0, 1, by =.5), seq(0, 20, by =5), seq(0, 150, by =50))
ticksx<-c(seq(0,300,by=25))
p <- ggplot(df, aes(x = boxnucleotide, y = boxOdds, colour=Mutation,label=rownames(m)))
p1 <- p + geom_errorbar(aes(ymax = boxCIHigh, ymin = boxCILow), size = .5, height = .01) +
 geom_point(size = 1) +
 theme_bw() +
 theme(panel.grid.minor = element_blank()) +
 scale_y_continuous(breaks=ticksy, labels = ticksy) +
 scale_x_continuous(breaks=ticksx, labels = ticksx) +
 coord_trans(y = "log10") +
 ylab("Odds ratio (log scale)") +
 scale_color_manual(values=c("#00BFC4","#F8766D","#619CFF")) +
 xlab("Integrase nucleotide position") + 
 geom_text(size=4,hjust=0, vjust=0)+
 theme(legend.position = c(0.9, 0.9))
p1

I already tried all possible solutions from Remove 'a' from legend when using aesthetics and geom_text but none worked out

r ggplot2

share|improve this question

edited Mar 9 at 23:52

Mariano Avino

asked Mar 8 at 22:45

Mariano AvinoMariano Avino

375

Residue,Position,Weight,SVM Count,Odd,Ttest,lower,upper,Resistance
G163R,163,0.357,49,19.9453848,6.978518E-82,5.6628402,70.2925768,Accessory
V165I,165,0.268,49,2.98167788,1.60934E-80,1.25797484,7.06728692,Novel
N155H,155,0.253,50,38.6089584,1.089188E-83,9.5815554,155.7070612,Major

library(ggplot2)
m <- read.csv('example.csv', header=T, row.names=1)
boxOdds = m$Odd

df <- data.frame(
 yAxis = length(boxOdds):1,
 boxnucleotide = m$Position,
 boxCILow = m$lower,
 boxCIHigh = m$upper,
 Mutation = m$Resistance)
ticksy<-c(seq(0,0.3,by=.1), seq(0, 1, by =.5), seq(0, 20, by =5), seq(0, 150, by =50))
ticksx<-c(seq(0,300,by=25))
p <- ggplot(df, aes(x = boxnucleotide, y = boxOdds, colour=Mutation,label=rownames(m)))
p1 <- p + geom_errorbar(aes(ymax = boxCIHigh, ymin = boxCILow), size = .5, height = .01) +
 geom_point(size = 1) +
 theme_bw() +
 theme(panel.grid.minor = element_blank()) +
 scale_y_continuous(breaks=ticksy, labels = ticksy) +
 scale_x_continuous(breaks=ticksx, labels = ticksx) +
 coord_trans(y = "log10") +
 ylab("Odds ratio (log scale)") +
 scale_color_manual(values=c("#00BFC4","#F8766D","#619CFF")) +
 xlab("Integrase nucleotide position") + 
 geom_text(size=4,hjust=0, vjust=0)+
 theme(legend.position = c(0.9, 0.9))
p1

share|improve this question

edited Mar 9 at 23:52

Mariano Avino

asked Mar 8 at 22:45

Mariano AvinoMariano Avino

375

share|improve this question

edited Mar 9 at 23:52

Mariano Avino

asked Mar 8 at 22:45

Mariano AvinoMariano Avino

375

asked Mar 8 at 22:45

Mariano AvinoMariano Avino

375

asked Mar 8 at 22:45

Mariano AvinoMariano Avino

375