r - 如何更改字体和棒棒糖大小？

Question

我想增加棒棒糖图上棒的宽度，并增加我的 y 标签字体的大小。我该怎么做呢？

   df_graph2 <- data.frame(
   parameters = c("Cut back spending on food",
            "Used up all or most saving",
            'Increased credit card debt',   
            'Took money out of long-term savings',
            'Borrowed money from family or friends',
            'Pawned or sold possessions'),
  values <- c(34.40,26.00,25.50,14.40,12.70,11.30))
 df_graph2 %>%
 ggplot() + aes(x=parameters, y=values) +
 geom_segment( aes(x=parameters, xend=parameters, y=0, yend=values), color="gray82") +
 geom_point( color="darkorange", size=4.2, alpha=0.9) +
 geom_text(aes(label = paste(values,"%")), hjust = -.3,size=3.8,family="Arial") + 
 expand_limits(y = 100)+
 theme_light() +
coord_flip() +
theme(
plot.margin = margin(1, 1, 4, 1.1, "cm"),
panel.grid.major.y = element_blank(),
axis.text.y = element_text(color = 'black'),
panel.border = element_blank(),
axis.ticks.y = element_blank(),
axis.ticks.x = element_blank(),
axis.title.x = element_blank(),
axis.title.y = element_blank(),
axis.text.x = element_blank(),
panel.grid.major.x = element_blank(),
panel.grid.minor.x = element_blank()
)

标签： rggplot2

Answer 1

element_text使用调用内部的 size 参数更改 y 轴标签大小，并使用内部theme(axis.text.y更改棒棒糖的线宽size = geom_segment

ggplot(df_graph2, aes(parameters, values)) +
  geom_segment(aes(xend = parameters, y = 0, yend = values), 
               size = 2, color = "gray82") +
  geom_point(color = "darkorange", size = 4.2, alpha = 0.9) +
  geom_text(aes(label = paste(values,"%")), hjust = -.3, size=3.8) + 
  expand_limits(y = 100) +
  coord_flip() +
  theme_void() +
  theme(plot.margin = margin(1, 1, 4, 1.1, "cm"),
        axis.text.y = element_text(color = 'black', size = 12, hjust = 1))