绘制时，条形图在 ggplot 中不可见答案

【问题标题】：Bar plot not visible in ggplot when plotted绘制时，条形图在 ggplot 中不可见
【发布时间】：2021-07-10 18:47:40
【问题描述】：

我有 4 个数据框。我重塑它们并希望实现 1981-2015 年“固定”、“瞬态”和“生产”的分组条形图。我通过ggplot2绘图。但是在 ggplot 的绘图代码中，没有显示条形图。我注意到比例发生了变化，但没有显示任何 3 个类别（固定、瞬态和生产）的条形。

错误的来源是什么？

Years<-c('1981', '1982', '1983', '1984','1985','1986','1987','1988','1989','1990','1991','1992','1993','1994','1995','1996','1997','1998','1999','2000','2001','2002','2003','2004','2005','2006','2007','2008','2009','2010','2011','2012','2013','2014','2015')
Fixed<-c(0.001297,0.001329,0.001361,0.001256,0.001196,0.001251,
0.001256,0.00124,0.001255,0.001263,0.001234,0.001281,0.001243,
0.001278,0.001338,0.001361,0.00141,0.001361,0.001306,0.001224,
0.001228,0.001254,0.001319,0.001337,0.001383,0.001419,
0.001444,0.001433,0.001422,0.001463,0.001487,0.00148,
0.001094,0.001042,0.00108)




Transient <- c(0.001297,0.001329,0.001361,0.001256,0.001196,0.001251,0.001256,0.00124,0.001255,0.001263,
0.001234,0.001281,0.001243,0.001278,0.001338,0.001361,0.00141,0.001361,0.001361,0.00124,
0.001228,0.001254,0.001319,0.001337,0.001383,0.001419,0.001444,0.001433,0.001422,0.001463,
0.001487,0.00148,0.001094,0.001042,0.00108)


Production<-c(0.0125,0.0128,0.0128,0.0128,0.0127,0.0132,0.0123,0.0133,0.0135,
0.0135,0.0132,0.0138,0.0135,0.0141,0.0137,0.0142,0.0281,0.0322,0.0295,0.0295,
0.0276,0.0294,0.0304,0.0339,0.0345,0.0367,0.0348,0.0398,0.0385,0.0388,0.039,0.0391,
0.0434,0.0425,0.0434)



df <- data.frame(Years,Fixed,Transient, Production)

df.m<-reshape2::melt(df)
cbPalette <- c("#999999", "#E69F00","#56B4E9")

df.m %>%

ggplot(aes(x = factor(Years,levels=c('1981', '1982', '1983', '1984','1985','1986','1987','1988','1989','1990','1991','1992','1993','1994','1995','1996','1997','1998','1999','2000','2001','2002','2003','2004','2005','2006','2007','2008','2009','2010','2011','2012','2013','2014','2015')), y = value, fill = variable))+
scale_fill_manual(labels = c("Fixed", "Production"),values=cbPalette )+
theme_bw()+
theme(legend.text=element_text(size=15),axis.text.y=element_text(size=15),
axis.text.x=element_text(size=12.80),axis.title.x = element_text(size = 12.20),
axis.title.y = element_text(size = 15))+theme(legend.title =element_blank())+
labs(y= "Production", x = "Years")

【问题讨论】：

忘记了geom_bar 或geom_col？

标签： r ggplot2

【解决方案1】：

没有要绘制的条形层。下面的代码修复了它。

library(ggplot2)

df <- data.frame(Years, Fixed, Transient, Production)

df.m <- reshape2::melt(df)
cbPalette <- c("#999999", "#E69F00","#56B4E9")

ggplot(df.m, aes(x = factor(Years), y = value, fill = variable)) +
  geom_col() +
  scale_fill_manual(labels = c("Fixed", "Transient", "Production"), values = cbPalette) +
  labs(y = "Production", x = "Years") +
  theme_bw()+
  theme(
    legend.text = element_text(size=15),
    axis.text.y = element_text(size=15),
    axis.text.x = element_text(size=12.80, angle = 60, vjust = 1, hjust = 1),
    axis.title.x = element_text(size = 12.20),
    axis.title.y = element_text(size = 15),
    legend.title = element_blank()
  )

【讨论】：