ggplot2横坐标标签旋转

横坐标标签旋转

df2 <- tibble(
  name = c('LONGGi', 'ZHONGHUAN', 'JINKO', 'JASO', 'SHANGJI AUTOMATION', 'GCL', 'JYT'),
  val = c(85, 55, 22, 18, 10, 7, 7),
  obj = factor(name, levels= c('LONGGi', 'ZHONGHUAN', 'JINKO', 'JASO', 'SHANGJI AUTOMATION', 'GCL', 'JYT'))
)

gg2 <- ggplot(data = df2,mapping = aes(x = obj, y = val, group = obj, fill = obj)) +
         geom_bar(stat="identity", position=position_dodge(0.7), width=0.5) +
         geom_text(aes(label = val, vjust = -0.7, hjust = 0.3)) +
         theme(axis.text.x = element_text(angle = 45, hjust = 1)) +
         scale_fill_manual(values = rep("#39BAE8",length(df2$name))) +
         labs(x = NULL) +
         labs(y = NULL) +
         geom_blank(aes(y = 100)) +
         #theme_bw() +
         theme(panel.grid=element_blank(),
               panel.background = element_blank(),
               axis.ticks.x = element_blank(),
               axis.ticks.y = element_blank()) +
         theme(legend.position = "none") +
         geom_hline(yintercept = 0, colour = "#DCDDD8")