R 如何在不翻转图表方向的情况下手动编辑条形图中的颜色

我正在创建一个人口金字塔式条形图，以R表示按年龄类别、性别划分的工作实习人数。在上一步中，我总结了按年龄和性别分组的数据，以获得实习次数。然后，我将男性计数乘以-1，以获得正确的图形格式

在我手动更改

geom\u条的颜色之前，一切都很好。当我手动设置或使用
scale\u fill\u manual
选项时，我的图表会旋转。我也不知道如何改变字体

此代码有效

#WEs

pyramidWE2 <- ggplot(WE2, aes(x = Age, y =n, fill = Gender)) + 
  geom_bar(data = subset(WE2, Gender == "F"), stat = "identity") +
  geom_bar(data = subset(WE2, Gender == "M"), stat = "identity") + 
  scale_y_continuous(breaks=seq(-100,100,10),labels=abs(seq(-100,100,10))) + 
  #commented out: scale_fill_manual(values =c("pink","light blue")) +
  #commented out: labs(x = "Age(Years)", y = "Number of WE's", title = "Number of Work Experiences by Gender, Colorado, 2018", font.lab="Trebuchet MS")
  coord_flip()
pyramidWE2

#WEs
pyramidWE2ggplot函数中缺少一个
'+'
。（在
labs（）
之后）

库（tidyverse）
WE2%上限（）
) %>% 
变异（n=ifelse（性别='F'，-n，n））
WE2%>%ggplot（不良事件（x=年龄，y=n，fill=性别））+
geom_bar（数据=子集（WE2，性别='H'），stat=“identity”）+
geom_bar（数据=子集（WE2，性别='F'），stat=“identity”）+
刻度连续（断开=顺序（-100100,10），标签=绝对值（顺序（-100100,10））+
刻度填充手册（数值=c（“粉色”、“浅蓝色”））+
实验室（x=“年龄（年）”，y=“我们的数量”，title=“性别工作经验数量，科罗拉多州，2018年”，font.lab=“Trebuchet MS”）+
coord_flip（）
一个ggplot函数中缺少一个
'+'
。（在
labs（）
之后）

库（tidyverse）
WE2%上限（）
) %>% 
变异（n=ifelse（性别='F'，-n，n））
WE2%>%ggplot（不良事件（x=年龄，y=n，fill=性别））+
geom_bar（数据=子集（WE2，性别='H'），stat=“identity”）+
geom_bar（数据=子集（WE2，性别='F'），stat=“identity”）+
刻度连续（断开=顺序（-100100,10），标签=绝对值（顺序（-100100,10））+
刻度填充手册（数值=c（“粉色”、“浅蓝色”））+
实验室（x=“年龄（年）”，y=“我们的数量”，title=“性别工作经验数量，科罗拉多州，2018年”，font.lab=“Trebuchet MS”）+
coord_flip（）
您在
实验室（）的末尾错过了一个
“+”
，这就是为什么没有应用
coord\u flip（）
的原因。没有理由认为
scale_……（）
函数会旋转图形。在
labs（）
的末尾缺少一个
'+'
，这就是为什么不应用
coord_flip（）
。没有理由
scale_……（）
函数会旋转图形。
#WEs
pyramidWE2 <- ggplot(WE2, aes(x = Age, y =n, fill = Gender)) + 
  geom_bar(data = subset(WE2, Gender == "F"), stat = "identity") +
  geom_bar(data = subset(WE2, Gender == "M"), stat = "identity") + 
  scale_y_continuous(breaks=seq(-100,100,10),labels=abs(seq(-100,100,10))) + 
  scale_fill_manual(values =c("pink","light blue")) +
  labs(x = "Age(Years)", y = "Number of WE's", title = "Number of Work Experiences by Gender, Colorado, 2018", font.lab="Trebuchet MS")
  coord_flip()
pyramidWE2

library(tidyverse)

WE2 <- data.frame(
  Age    = rep(seq(20, 60, 5), 2),
  Gender = rep(c('H', 'F'), each = 9),
  n      = rnorm(18, 40, 20) %>% ceiling()
) %>% 
  mutate(n = ifelse(Gender == 'F', -n, n))

WE2 %>% ggplot(aes(x = Age, y = n, fill = Gender)) + 
  geom_bar(data = subset(WE2, Gender == 'H'), stat = "identity") +
  geom_bar(data = subset(WE2, Gender == 'F'), stat = "identity") + 
  scale_y_continuous(breaks = seq(-100,100,10), labels = abs(seq(-100,100,10))) + 
  scale_fill_manual(values = c("pink", "light blue")) +
  labs(x = "Age(Years)", y = "Number of WE's", title = "Number of Work Experiences by Gender, Colorado, 2018", font.lab="Trebuchet MS") +
  coord_flip()