有谁知道如何使用ggplot重新标记图形上的x和y轴以及图例…还有没有一种方法可以将条形图彼此叠加？

Question

这是我的代码...我想更改x和y标签以及图例。 另外，有人知道如何将两个变量彼此堆叠而不是并排堆叠吗？

install.packages("dplyr")
install.packages("tidyr")
install.packages("ggplot2")

library("dplyr")
library("tidyr")
library("ggplot2")


dat <- data.frame(
Hunter = c(40, 25, 11,9,146,6,6,4,4,53),
Nonhunter = c(819, 510,219,195,1,132,117,89,85,1),
Source = as.factor(c("NC", "LT", "WCS", "WWF", "DU", "TCF", "NRDC","NWF","NAS","RMEF"
                     ))
)

dat_long <- dat %>%
gather("Stat", "Value", -Source)

dat_long

ggplot(dat_long, aes(x = Source, y = Value, fill = Stat)) +
geom_col(position = "dodge")

这是我的图的照片