Ggtcf

Why is so much work done on numerical verification of the Riemann Hypothesis?

When were female captains banned from Starfleet?

What does "Scientists rise up against statistical significance" mean? (Comment in Nature)

Is this part of the description of the Archfey warlock's Misty Escape feature redundant?

What are some good ways to treat frozen vegetables such that they behave like fresh vegetables when stir frying them?

How do I tell my boss that I'm quitting soon, especially given that a colleague just left this week

What is Cash Advance APR?

How do you make your own symbol when Detexify fails?

C++ copy constructor called at return

Has any country ever had 2 former presidents in jail simultaneously?

How can ping know if my host is down

Does the Linux kernel need a file system to run?

Why is the Sun approximated as a black body at ~ 5800 K?

Why should universal income be universal?

How would you translate "more" for use as an interface button?

Multiplicative persistence

How can I write humor as character trait?

Why do Radio Buttons not fill the entire outer circle?

How can I, as DM, avoid the Conga Line of Death occurring when implementing some form of flanking rule?

The Digit Triangles

Which was the first story featuring espers?

Does Doodling or Improvising on the Piano Have Any Benefits?

awk assign to multiple variables at once

PTIJ: Why is Haman obsessed with Bose?

how to plot geom_col() to get y axis to center around 1 and not 0

Rotating and spacing axis labels in ggplot2How to make a great R reproducible exampleForming a Stack Bar chart/ Grid with Color Intensity varying on ValuePlot outline around raster cellsConsistent width for geom_bar when y-axis is a “Count” rather than an explicit variableUsing ggplot to plot a map from a matrixHow to set the origin of y-axis in geom_bar (ylim does not work)Center Plot title in ggplot2Centered Net stacked bar plot with ggplot2 from summary dataPlotting with ggplot respecting data order (y axis)

2

I am plotting a some data using ggplot2's geom_bar. The data represents a ratio that should center around 1 and not 0. This would allow me to highlight which categories go below or above this central ratio number. I've tried playing with set_y_continuous() and ylim(), neither of which allow me to sent a central axis value.

Basically: how to I make Y center around 1 and not 0.

sorry if i am asking a question that's been answered... maybe I just don't know the right key words?

ggplot(data = plotdata) +
 geom_col(aes(x = stressclass, y= meanexpress, color = stressclass, fill = stressclass)) +
 labs(x = "Stress Response Category", y = "Average Response Normalized to Control") +
 facet_grid(exposure_cond ~ .)

As of now my plots look like this:

r ggplot2 bar-chart geom-col

share|improve this question

edited Mar 7 at 23:45

d.b

19.7k41949

asked Mar 7 at 23:37

Bryant ChambersBryant Chambers

132

• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  Can you elaborate what you mean by "center around 1" since plotting a barplot means you'll fill space from 0 to whatever value it is you're plotting? Maybe using geom_point() and limiting the y axis would be more suitable? you could have a single plot with a legend specifying your groups.
  
  – Croote
  Mar 8 at 2:12
  
  

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  By "center around 1", I mean that, because a ratio of 1 means that bot the numerator and the denominator are equal, the plot should then use the value 1 as a base line and not the value zero. All values above a ratio of 1 are indicative of the experimental class being greater and all values less than 1 are indicative of the control being greater. Having the "center of the plot be 0 would illustrate this point more easily. Hope that helps!!
  
  – Bryant Chambers
  Mar 10 at 0:20
  

  
  
  
  

add a comment | 

2

I am plotting a some data using ggplot2's geom_bar. The data represents a ratio that should center around 1 and not 0. This would allow me to highlight which categories go below or above this central ratio number. I've tried playing with set_y_continuous() and ylim(), neither of which allow me to sent a central axis value.

Basically: how to I make Y center around 1 and not 0.

sorry if i am asking a question that's been answered... maybe I just don't know the right key words?

ggplot(data = plotdata) +
 geom_col(aes(x = stressclass, y= meanexpress, color = stressclass, fill = stressclass)) +
 labs(x = "Stress Response Category", y = "Average Response Normalized to Control") +
 facet_grid(exposure_cond ~ .)

As of now my plots look like this:

r ggplot2 bar-chart geom-col

share|improve this question

edited Mar 7 at 23:45

d.b

19.7k41949

asked Mar 7 at 23:37

Bryant ChambersBryant Chambers

132

• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  Can you elaborate what you mean by "center around 1" since plotting a barplot means you'll fill space from 0 to whatever value it is you're plotting? Maybe using geom_point() and limiting the y axis would be more suitable? you could have a single plot with a legend specifying your groups.
  
  – Croote
  Mar 8 at 2:12
  
  

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  By "center around 1", I mean that, because a ratio of 1 means that bot the numerator and the denominator are equal, the plot should then use the value 1 as a base line and not the value zero. All values above a ratio of 1 are indicative of the experimental class being greater and all values less than 1 are indicative of the control being greater. Having the "center of the plot be 0 would illustrate this point more easily. Hope that helps!!
  
  – Bryant Chambers
  Mar 10 at 0:20
  

  
  
  
  

add a comment | 

I am plotting a some data using ggplot2's geom_bar. The data represents a ratio that should center around 1 and not 0. This would allow me to highlight which categories go below or above this central ratio number. I've tried playing with set_y_continuous() and ylim(), neither of which allow me to sent a central axis value.

Basically: how to I make Y center around 1 and not 0.

sorry if i am asking a question that's been answered... maybe I just don't know the right key words?

ggplot(data = plotdata) +
 geom_col(aes(x = stressclass, y= meanexpress, color = stressclass, fill = stressclass)) +
 labs(x = "Stress Response Category", y = "Average Response Normalized to Control") +
 facet_grid(exposure_cond ~ .)

As of now my plots look like this:

r ggplot2 bar-chart geom-col

share|improve this question

edited Mar 7 at 23:45

d.b

19.7k41949

asked Mar 7 at 23:37

Bryant ChambersBryant Chambers

132

ggplot(data = plotdata) +
 geom_col(aes(x = stressclass, y= meanexpress, color = stressclass, fill = stressclass)) +
 labs(x = "Stress Response Category", y = "Average Response Normalized to Control") +
 facet_grid(exposure_cond ~ .)

share|improve this question

edited Mar 7 at 23:45

d.b

19.7k41949

asked Mar 7 at 23:37

Bryant ChambersBryant Chambers

132

share|improve this question

edited Mar 7 at 23:45

d.b

19.7k41949

asked Mar 7 at 23:37

Bryant ChambersBryant Chambers

132

edited Mar 7 at 23:45

d.b

19.7k41949

edited Mar 7 at 23:45

d.b

19.7k41949

asked Mar 7 at 23:37

Bryant ChambersBryant Chambers

132

asked Mar 7 at 23:37

Bryant ChambersBryant Chambers

132

1 Answer
1

active

oldest

votes

0

You can pre-process your y-values so that the plot actually starts at 0, then change the scale labels to reflect the original values (demonstrating with a built-in dataset):

library(dplyr)
library(ggplot2)

cut.off = 500 # (= 1 in your use case)

diamonds %>%
 filter(clarity %in% c("SI1", "VS2")) %>%
 count(cut, clarity) %>%
 mutate(n = n - cut.off) %>% # subtract cut.off from y values
 ggplot(aes(x = cut, y = n, fill = cut)) +
 geom_col() +
 geom_text(aes(label = n + cut.off, # label original values (optional)
 vjust = ifelse(n > 0, 0, 1))) +
 geom_hline(yintercept = 0) +
 scale_y_continuous(labels = function(x) x + cut.off) + # add cut.off to label values
 facet_grid(clarity ~ .)

share|improve this answer

answered Mar 8 at 4:26

Z.LinZ.Lin

13k22238

• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  I guess it is easier to just modify the data, I thought there was some way of moving the y axis but this makes sense. Thanks, Z.
  
  – Bryant Chambers
  Mar 10 at 0:23
  

  
  
  
  

add a comment | 

Your Answer

StackExchange.ifUsing("editor", function ()
StackExchange.using("externalEditor", function ()
StackExchange.using("snippets", function ()
StackExchange.snippets.init();
);
);
, "code-snippets");

StackExchange.ready(function()
var channelOptions =
tags: "".split(" "),
id: "1"
;
initTagRenderer("".split(" "), "".split(" "), channelOptions);

StackExchange.using("externalEditor", function()
// Have to fire editor after snippets, if snippets enabled
if (StackExchange.settings.snippets.snippetsEnabled)
StackExchange.using("snippets", function()
createEditor();
);

else
createEditor();

);

function createEditor()
StackExchange.prepareEditor(
heartbeatType: 'answer',
autoActivateHeartbeat: false,
convertImagesToLinks: true,
noModals: true,
showLowRepImageUploadWarning: true,
reputationToPostImages: 10,
bindNavPrevention: true,
postfix: "",
imageUploader:
brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
allowUrls: true
,
onDemand: true,
discardSelector: ".discard-answer"
,immediatelyShowMarkdownHelp:true
);



);

draft saved

draft discarded

Sign up or log in

StackExchange.ready(function ()
StackExchange.helpers.onClickDraftSave('#login-link');
);

Sign up using Google

Sign up using Facebook

Sign up using Email and Password

Post as a guest

Name

Email

Required, but never shown

StackExchange.ready(
function ()
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f55054540%2fhow-to-plot-geom-col-to-get-y-axis-to-center-around-1-and-not-0%23new-answer', 'question_page');

);

Post as a guest

Name

Email

Required, but never shown

0

You can pre-process your y-values so that the plot actually starts at 0, then change the scale labels to reflect the original values (demonstrating with a built-in dataset):

library(dplyr)
library(ggplot2)

cut.off = 500 # (= 1 in your use case)

diamonds %>%
 filter(clarity %in% c("SI1", "VS2")) %>%
 count(cut, clarity) %>%
 mutate(n = n - cut.off) %>% # subtract cut.off from y values
 ggplot(aes(x = cut, y = n, fill = cut)) +
 geom_col() +
 geom_text(aes(label = n + cut.off, # label original values (optional)
 vjust = ifelse(n > 0, 0, 1))) +
 geom_hline(yintercept = 0) +
 scale_y_continuous(labels = function(x) x + cut.off) + # add cut.off to label values
 facet_grid(clarity ~ .)

share|improve this answer

answered Mar 8 at 4:26

Z.LinZ.Lin

13k22238

• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  I guess it is easier to just modify the data, I thought there was some way of moving the y axis but this makes sense. Thanks, Z.
  
  – Bryant Chambers
  Mar 10 at 0:23
  

  
  
  
  

add a comment | 

0

You can pre-process your y-values so that the plot actually starts at 0, then change the scale labels to reflect the original values (demonstrating with a built-in dataset):

library(dplyr)
library(ggplot2)

cut.off = 500 # (= 1 in your use case)

diamonds %>%
 filter(clarity %in% c("SI1", "VS2")) %>%
 count(cut, clarity) %>%
 mutate(n = n - cut.off) %>% # subtract cut.off from y values
 ggplot(aes(x = cut, y = n, fill = cut)) +
 geom_col() +
 geom_text(aes(label = n + cut.off, # label original values (optional)
 vjust = ifelse(n > 0, 0, 1))) +
 geom_hline(yintercept = 0) +
 scale_y_continuous(labels = function(x) x + cut.off) + # add cut.off to label values
 facet_grid(clarity ~ .)

share|improve this answer

answered Mar 8 at 4:26

Z.LinZ.Lin

13k22238

• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  I guess it is easier to just modify the data, I thought there was some way of moving the y axis but this makes sense. Thanks, Z.
  
  – Bryant Chambers
  Mar 10 at 0:23
  

  
  
  
  

add a comment | 

You can pre-process your y-values so that the plot actually starts at 0, then change the scale labels to reflect the original values (demonstrating with a built-in dataset):

library(dplyr)
library(ggplot2)

cut.off = 500 # (= 1 in your use case)

diamonds %>%
 filter(clarity %in% c("SI1", "VS2")) %>%
 count(cut, clarity) %>%
 mutate(n = n - cut.off) %>% # subtract cut.off from y values
 ggplot(aes(x = cut, y = n, fill = cut)) +
 geom_col() +
 geom_text(aes(label = n + cut.off, # label original values (optional)
 vjust = ifelse(n > 0, 0, 1))) +
 geom_hline(yintercept = 0) +
 scale_y_continuous(labels = function(x) x + cut.off) + # add cut.off to label values
 facet_grid(clarity ~ .)

share|improve this answer

answered Mar 8 at 4:26

Z.LinZ.Lin

13k22238

library(dplyr)
library(ggplot2)

cut.off = 500 # (= 1 in your use case)

diamonds %>%
 filter(clarity %in% c("SI1", "VS2")) %>%
 count(cut, clarity) %>%
 mutate(n = n - cut.off) %>% # subtract cut.off from y values
 ggplot(aes(x = cut, y = n, fill = cut)) +
 geom_col() +
 geom_text(aes(label = n + cut.off, # label original values (optional)
 vjust = ifelse(n > 0, 0, 1))) +
 geom_hline(yintercept = 0) +
 scale_y_continuous(labels = function(x) x + cut.off) + # add cut.off to label values
 facet_grid(clarity ~ .)

share|improve this answer

answered Mar 8 at 4:26

Z.LinZ.Lin

13k22238

answered Mar 8 at 4:26

Z.LinZ.Lin

13k22238

answered Mar 8 at 4:26

Z.LinZ.Lin

13k22238