bar_plot_close.R

library(ggplot2)

## Warning: 程辑包'ggplot2'是用R版本4.2.3 来建造的

library(dplyr)

## 
## 载入程辑包：'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

df <- data.frame(x = seq(10), y = sample(10))

p1 <- ggplot(df, aes(x=x, y=y)) + 
  geom_bar(fill="darkturquoise", stat="identity", width=1, position=position_dodge()) + 
  geom_hline(yintercept = 2.5, col="black", size=.1) +
  scale_x_continuous(expand = c(0.01, 0.01), breaks = seq(1, 10 ,1)) +
  scale_y_continuous(expand = c(0, 0)) 

## Warning: Using `size` aesthetic for lines was deprecated in ggplot2 3.4.0.
## i Please use `linewidth` instead.
## This warning is displayed once every 8 hours.
## Call `lifecycle::last_lifecycle_warnings()` to see where this warning was
## generated.

p1 + theme(legend.position = "top",
         #legend.direction = "vertical",
         legend.spacing.x = unit(0.1, 'cm'),
         #legend.spacing.y = unit(0.2, 'cm'),
         legend.title.align = 0.1,
         legend.key.size = unit(.3, "cm"),
         legend.text = element_text(colour="black", size=10, 
                                    face="plain"),
         legend.title = element_text(colour="black", size=10, 
                                     face="plain"),
         legend.background = element_blank(),
         legend.key = element_rect(colour = NA, fill = NA),
         #legend.key.height=unit(0.5,"line"),
         #legend.key.width=unit(0.7,"line"),
         #legend.margin=margin(5,5,5,5),
         legend.justification = c(0.5, 0.7),
         legend.box.margin=margin(0,0,0,0),
         panel.background = element_blank(),
         panel.border = element_rect(colour = NA, fill=NA, size=1),
         axis.line = element_line(size = 0.5, color = "black"),
         panel.grid = element_blank(),
         axis.text.x   = element_text(size= 12, color = "black",family = "sans",vjust = 0.5,hjust = 0.5),
         axis.text.y   = element_text(size= 12, color = "black",family = "sans",vjust = 0.5,hjust = 0.5),
         axis.title  = element_text(size=12, color = "black",family = "sans"),
         axis.ticks =  element_line(size= 0.5),
         axis.ticks.length = unit(3, "pt")) 

## Warning: The `size` argument of `element_line()` is deprecated as of ggplot2 3.4.0.
## i Please use the `linewidth` argument instead.
## This warning is displayed once every 8 hours.
## Call `lifecycle::last_lifecycle_warnings()` to see where this warning was
## generated.

## Warning: The `size` argument of `element_rect()` is deprecated as of ggplot2 3.4.0.
## i Please use the `linewidth` argument instead.
## This warning is displayed once every 8 hours.
## Call `lifecycle::last_lifecycle_warnings()` to see where this warning was
## generated.

#https://www.mihiretukebede.com/posts/2020-07-13-Animating-bar-graphs_files/