如何在R中为堆叠的条形图添加颜色？

Question

我正在尝试在R中创建一个堆叠的条形图。我需要该条形图显示三件事：

• Y轴=计数
• X轴条=通过驾驶考试（是或否）
• X轴栏中的颜色拥有汽车（是或否）

所以我想要的输出是：

但是，我的实际输出是：

到目前为止，我的代码是：

carData <- read.csv(file="~/Desktop/carData.csv",head=TRUE,sep=";")
ggplot(carData, aes(x =  passed.test, fill =  owns.car)) + geom_bar() 

CSV文件中的pass.test值为1或0。（1 =已通过，0 =未通过）

CSV文件中的owns.car值为1或0。（1 =拥有汽车，0 =不拥有汽车）

我如何：

A.在条形图中添加颜色以显示第二个变量（拥有汽车=是或否）

B.将X轴更改为“是”和“否”，而不是-0.5 -1.5

Answer 1

您想将这两列都设为因素。 否则，数值被认为是连续的，所以当geom_bar每个值的计数观测，它不会使整个很大的意义的水平owns.car是连续的。

library(tidyverse)

set.seed(1234)
carData <- tibble(
    passed.test = sample(c(0, 1), 100, replace = T),
    owns.car = sample(c(0, 1), 100, replace = T)
)

cars_factors <- mutate_all(carData, as.factor)

ggplot(cars_factors, aes(x = passed.test, fill = owns.car)) +
    geom_bar() +
    scale_x_discrete(labels = c("No", "Yes")) +
    scale_fill_discrete(labels = c("No", "Yes"))

由reprex软件包 （v0.2.0）创建于2018-04-28。