ggplot2柱状图

柱状图

library(tidyverse)
df3 <- tibble(
  obj = c('LONGGi', 'JINKO', 'TRINA', 'JASO', 'Canadian Solar'),
  SiliconWafer = c(85, 22, 0, 18, 5),
  Battery = c(30, 11, 12, 18, 13),
  Module = c(50, 32, 22, 23, 14),
  name = factor(obj, levels = c('LONGGi', 'JINKO', 'TRINA', 'JASO', 'Canadian Solar'))

)

df31 <- df3 %>%
  select(!obj)

df31 <- df31 %>%
  pivot_longer(-name, names_to = "var", values_to = "value")
df31$var <- factor(df31$var, levels = c("SiliconWafer", "Battery", "Module"))
gg3 <- ggplot(df31, aes(x = name, y = value, fill = var)) +
  geom_blank(aes(y = 90)) +
  geom_col(width = 0.75, position = position_dodge(0.8)) +
  geom_text(aes(x = name,y = value + 3,label = value, group = var), position = position_dodge(0.7)) +
  scale_fill_manual(values = c("#a3daff", "#1ec0ff", "#03a6ff"))
gg4 <- gg3 + theme(axis.ticks = element_line(linetype = "blank"),
    axis.text = element_text(size = 12),
    panel.background = element_rect(fill = NA),
    legend.key = element_rect(fill = NA),
    legend.position = c(0.5167, 0.9),
    legend.direction = "horizontal") + labs(x = NULL, y = NULL) +
    geom_hline(yintercept = 0, colour = "#DCDDD8") +
    geom_blank(aes(y = 90)) +
    scale_y_continuous(breaks = seq(0, 90, 15))

gg4

eaks = seq(0, 90, 15))

gg4