Как изменить расстояние между стержнем и осью Y в R

#r #ggplot2

#r #ggplot2

Вопрос:

Как я могу изменить расстояние от полосы до оси Y в ggplot?

 k <- c("a","b","c","d","e","f")
j <- c(3,500,1000,1,2,6)

df <- data.frame(k,j)

ggplot(df, aes(y=reorder(k, -j), x=j)) 
  geom_col(fill="#70A2E7",  width = 0.85) 
  theme_bw(10) 
  geom_text(aes(label=j), size=3.5, angle= 0, hjust=-0.05)
 

диаграмма

введите описание изображения здесь

Ответ №1:

Вы можете поиграть с expand scale_x_continuous() :

 library(ggplot2)
#Data
k <- c("a","b","c","d","e","f")
j <- c(3,500,1000,1,2,6)
df <- data.frame(k,j)
#Plot
ggplot(df, aes(y=reorder(k, -j), x=j)) 
  geom_col(fill="#70A2E7",  width = 0.85) 
  theme_bw(10) 
  geom_text(aes(label=j), size=3.5, angle= 0, hjust=-0.05) 
  scale_x_continuous(expand = c(0,0),limits = c(NA,1100))
 

Вывод:

введите описание изображения здесь

Комментарии:

1. привет, друг, как мне сделать столбики ближе к оси y?

2. привет, на последнем столбике («c») больше не отображается заголовок, указывающий значение «1000»

3. @wesleysc352 Позвольте мне изменить сейчас!

4. @wesleysc352 Я обновил решение, пожалуйста, дайте мне знать, если это сработает!

5. отлично!!! limits = c(NA,1100)) все решил, большое вам спасибо!!!