基于每个类别R中的计数从多个dataframe列创建条形图

我有data.frame的以下示例：

df <- data.frame(c("a","c","d","e","e","a","a","b","b","a","d","a"),
                 c("b","b","d","e","e","a","a","b","b",NA,"d","e"),
                 c("c","c","d","c","e","b","a","d","d",NA,"c","e"),
                 c("d","d","b","e","e","a","a",NA,"b",NA,NA,"b"))
colnames(df) <- c("1st","2nd","3rd","4th")

df
df%#重塑日期
na.省略（）%>%#排除NAs
ggplot（aes（键，填充=值））+#plot
几何图形栏（位置=“道奇”）

df%#重塑日期
na.省略（）%>%#排除NAs
ggplot（aes（键，填充=值））+#plot
几何图形栏（位置=“道奇”）

如何将颜色更改为，例如：fl
+比例填充手册（值=c（“#99999”、“#E69F00”、“#56B4E9”、“#009E73”、“#F0E442”）
如何将颜色更改为，例如：fl
+比例填充手册（值=c（“#99999”、“#E69F00”、“#E69F00”、“#56b49”、#e442”）
df <- data.frame(c("a","c","d","e","e","a","a","b","b","a","d","a"),
                 c("b","b","d","e","e","a","a","b","b",NA,"d","e"),
                 c("c","c","d","c","e","b","a","d","d",NA,"c","e"),
                 c("d","d","b","e","e","a","a",NA,"b",NA,NA,"b"))
colnames(df) <- c("1st","2nd","3rd","4th")

library(tidyverse)

df %>%
  gather() %>%                   # reshape date
  na.omit() %>%                  # exclude NAs
  ggplot(aes(key, fill=value))+  # plot
  geom_bar(position="dodge")