Styjun

How do lasers measure short distances (<1cm) when electronics are too slow for time-of-flight to work?

one-liner vs script

'Cheddar goes "good" with burgers?' Can "go" be seen as a verb of the senses?

Had there been instances of national states banning harmful imports before the mid-19th C Opium Wars?

How to discipline overeager engineer

What is /dev/null and why can't I use hx on it?

What is the fastest way to move in Borderlands 3?

How can I remove rest of file from string for all files?

How to make "acts of patience" exciting?

Would it be easier to colonise a living world or a dead world?

Why do transition from one electronic shell to another shell always produce massless photon?

What if you can't publish in very high impact journal or top conference during your PhD?

Can I bring alcohol to Dubai?

Is the text of all UK treaties and laws public?

Translation Golf XLVIII — We're sorry to see you go

What do you call the fallacy of thinking that some action A will guarantee some outcome B, when in reality B depends on multiple other conditions?

Can I perform Umrah while on a Saudi Arabian visit e-visa

Can something have more sugar per 100g than the percentage of sugar that's in it?

Why did a young George Washington sign a document admitting to assassinating a French military officer?

Why would they pick a gamma distribution here?

Why are engines with carburetors hard to start in cold weather?

What ways are there to bypass spell resistance?

Canceling a color specification

What determines the top speed in ice skating?

ggplot: put axis text inside plot

move axis labels ggplotRotating and spacing axis labels in ggplot2Plot two graphs in same plot in RDoes ggplot's vjust of axis.text depend on angle?Numbered point labels plus a legend in a scatterplotSet y axis label position ggplot2Editing the text of a mathematical annotationHow to center ggplot plot titleggplot2: y axis labels left-justified inside plot areaRemoving axis labelling for one geom when multiple geoms are presentAdjusting Axis Label Position using ggplotly()

.everyoneloves__top-leaderboard:empty,.everyoneloves__mid-leaderboard:empty,.everyoneloves__bot-mid-leaderboard:empty
margin-bottom:0;

2

1

I want to put labels inside the plot area.

Here's an example plot:

library(ggplot2)

set.seed(123)
random_word <- function() paste(sample(letters, 10, replace = T), collapse='')
dat <- data.frame(x = replicate(4, random_word()),
 y = runif(5*4, 0, 100))

ggplot(dat, aes(x = x, y = y)) +
 geom_point() +
 coord_flip() +
 theme_minimal()

I know I can use geom_text to hack my way to the result I want:

ggplot(dat, aes(x = x, y = y)) +
 geom_point() +
 geom_text(data = dat[1:4,],
 aes(label=x), 
 y = 1, 
 hjust=0, vjust=-1 ) +
 coord_flip() +
 theme_minimal() +
 theme(axis.text.y = element_blank())

Comments on this question [ move axis labels ggplot ] suggest that margin is the non hacky way to do this in current ggplot, but it doesn't seem to move the axis text inside the plot area.

# doesn't do the trick
ggplot(dat, aes(x = x, y = y)) +
 geom_point() +
 coord_flip() +
 theme_minimal() +
 theme(axis.title.y = element_text(margin = margin(l = 50)))

Is there some elegant way to get this sort of output by setting theme() parameters?

my sessionInfo() is:

> sessionInfo()
R version 3.5.2 (2018-12-20)
Platform: x86_64-apple-darwin15.6.0 (64-bit)
Running under: macOS Mojave 10.14.3

locale:
[1] en_US.UTF-8/en_US.UTF-8/en_US.UTF-8/C/en_US.UTF-8/en_US.UTF-8

attached base packages:
[1] stats graphics grDevices utils datasets methods base 

other attached packages:
 [1] ggthemes_4.1.0 forcats_0.4.0 stringr_1.4.0 dplyr_0.8.0.1 purrr_0.3.1 readr_1.3.1 
 [7] tidyr_0.8.3 tibble_2.0.1 ggplot2_3.1.0 tidyverse_1.2.1

r ggplot2

share|improve this question

asked Mar 28 at 21:05

arvi1000arvi1000

6,5022222 silver badges3838 bronze badges

• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  First of all, you want to move the axis.text.y so when you test that comment and it doesn't work, actually you are not even changing the right element, but that's not the main thing. margin() is obviously changing the margins. Labels are still getting printed in the area of between axis line and plot border so margin won't work for bringing labels inside the plot. Unless there's an option like what we have for plotting at the top/bottom/etc. (e.g. scale_x_discrete(position = "inside") ), which I am not aware of, I guess your best bet is your hacky solution.
  
  – M--
  Mar 28 at 22:20
  
  

  
  
  
  

add a comment
 | 

2

1

I want to put labels inside the plot area.

Here's an example plot:

library(ggplot2)

set.seed(123)
random_word <- function() paste(sample(letters, 10, replace = T), collapse='')
dat <- data.frame(x = replicate(4, random_word()),
 y = runif(5*4, 0, 100))

ggplot(dat, aes(x = x, y = y)) +
 geom_point() +
 coord_flip() +
 theme_minimal()

I know I can use geom_text to hack my way to the result I want:

ggplot(dat, aes(x = x, y = y)) +
 geom_point() +
 geom_text(data = dat[1:4,],
 aes(label=x), 
 y = 1, 
 hjust=0, vjust=-1 ) +
 coord_flip() +
 theme_minimal() +
 theme(axis.text.y = element_blank())

Comments on this question [ move axis labels ggplot ] suggest that margin is the non hacky way to do this in current ggplot, but it doesn't seem to move the axis text inside the plot area.

# doesn't do the trick
ggplot(dat, aes(x = x, y = y)) +
 geom_point() +
 coord_flip() +
 theme_minimal() +
 theme(axis.title.y = element_text(margin = margin(l = 50)))

Is there some elegant way to get this sort of output by setting theme() parameters?

my sessionInfo() is:

> sessionInfo()
R version 3.5.2 (2018-12-20)
Platform: x86_64-apple-darwin15.6.0 (64-bit)
Running under: macOS Mojave 10.14.3

locale:
[1] en_US.UTF-8/en_US.UTF-8/en_US.UTF-8/C/en_US.UTF-8/en_US.UTF-8

attached base packages:
[1] stats graphics grDevices utils datasets methods base 

other attached packages:
 [1] ggthemes_4.1.0 forcats_0.4.0 stringr_1.4.0 dplyr_0.8.0.1 purrr_0.3.1 readr_1.3.1 
 [7] tidyr_0.8.3 tibble_2.0.1 ggplot2_3.1.0 tidyverse_1.2.1

r ggplot2

share|improve this question

asked Mar 28 at 21:05

arvi1000arvi1000

6,5022222 silver badges3838 bronze badges

• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  First of all, you want to move the axis.text.y so when you test that comment and it doesn't work, actually you are not even changing the right element, but that's not the main thing. margin() is obviously changing the margins. Labels are still getting printed in the area of between axis line and plot border so margin won't work for bringing labels inside the plot. Unless there's an option like what we have for plotting at the top/bottom/etc. (e.g. scale_x_discrete(position = "inside") ), which I am not aware of, I guess your best bet is your hacky solution.
  
  – M--
  Mar 28 at 22:20
  
  

  
  
  
  

add a comment
 | 

I want to put labels inside the plot area.

Here's an example plot:

library(ggplot2)

set.seed(123)
random_word <- function() paste(sample(letters, 10, replace = T), collapse='')
dat <- data.frame(x = replicate(4, random_word()),
 y = runif(5*4, 0, 100))

ggplot(dat, aes(x = x, y = y)) +
 geom_point() +
 coord_flip() +
 theme_minimal()

I know I can use geom_text to hack my way to the result I want:

ggplot(dat, aes(x = x, y = y)) +
 geom_point() +
 geom_text(data = dat[1:4,],
 aes(label=x), 
 y = 1, 
 hjust=0, vjust=-1 ) +
 coord_flip() +
 theme_minimal() +
 theme(axis.text.y = element_blank())

Comments on this question [ move axis labels ggplot ] suggest that margin is the non hacky way to do this in current ggplot, but it doesn't seem to move the axis text inside the plot area.

# doesn't do the trick
ggplot(dat, aes(x = x, y = y)) +
 geom_point() +
 coord_flip() +
 theme_minimal() +
 theme(axis.title.y = element_text(margin = margin(l = 50)))

Is there some elegant way to get this sort of output by setting theme() parameters?

my sessionInfo() is:

> sessionInfo()
R version 3.5.2 (2018-12-20)
Platform: x86_64-apple-darwin15.6.0 (64-bit)
Running under: macOS Mojave 10.14.3

locale:
[1] en_US.UTF-8/en_US.UTF-8/en_US.UTF-8/C/en_US.UTF-8/en_US.UTF-8

attached base packages:
[1] stats graphics grDevices utils datasets methods base 

other attached packages:
 [1] ggthemes_4.1.0 forcats_0.4.0 stringr_1.4.0 dplyr_0.8.0.1 purrr_0.3.1 readr_1.3.1 
 [7] tidyr_0.8.3 tibble_2.0.1 ggplot2_3.1.0 tidyverse_1.2.1

r ggplot2

share|improve this question

asked Mar 28 at 21:05

arvi1000arvi1000

6,5022222 silver badges3838 bronze badges

library(ggplot2)

set.seed(123)
random_word <- function() paste(sample(letters, 10, replace = T), collapse='')
dat <- data.frame(x = replicate(4, random_word()),
 y = runif(5*4, 0, 100))

ggplot(dat, aes(x = x, y = y)) +
 geom_point() +
 coord_flip() +
 theme_minimal()

ggplot(dat, aes(x = x, y = y)) +
 geom_point() +
 geom_text(data = dat[1:4,],
 aes(label=x), 
 y = 1, 
 hjust=0, vjust=-1 ) +
 coord_flip() +
 theme_minimal() +
 theme(axis.text.y = element_blank())

# doesn't do the trick
ggplot(dat, aes(x = x, y = y)) +
 geom_point() +
 coord_flip() +
 theme_minimal() +
 theme(axis.title.y = element_text(margin = margin(l = 50)))

> sessionInfo()
R version 3.5.2 (2018-12-20)
Platform: x86_64-apple-darwin15.6.0 (64-bit)
Running under: macOS Mojave 10.14.3

locale:
[1] en_US.UTF-8/en_US.UTF-8/en_US.UTF-8/C/en_US.UTF-8/en_US.UTF-8

attached base packages:
[1] stats graphics grDevices utils datasets methods base 

other attached packages:
 [1] ggthemes_4.1.0 forcats_0.4.0 stringr_1.4.0 dplyr_0.8.0.1 purrr_0.3.1 readr_1.3.1 
 [7] tidyr_0.8.3 tibble_2.0.1 ggplot2_3.1.0 tidyverse_1.2.1

share|improve this question

asked Mar 28 at 21:05

arvi1000arvi1000

6,5022222 silver badges3838 bronze badges

share|improve this question

asked Mar 28 at 21:05

arvi1000arvi1000

6,5022222 silver badges3838 bronze badges

asked Mar 28 at 21:05

arvi1000arvi1000

6,5022222 silver badges3838 bronze badges

asked Mar 28 at 21:05

arvi1000arvi1000

6,5022222 silver badges3838 bronze badges