R和比例的BARPLOT

Question

我要解决的问题是这个

  

”使用R中的简单图形功能，创建条形图   显示从1980年开始每年未解决枪支凶杀案的比例   到2015年。描述您看到的任何趋势。“

首先创建Barplot，我创建数据的子集，以便仅从正常工作的大型数据集中选择未解决的奥秘。

unsolvedCASES<-subset(dataset,Crime.Solved =="No")

dput(head(unsolvedCASES, 20)) 但是当我使用整个图下面的函数制作基本条形图时，它是黑色的

barplot(dataset$Crime.Solved == "No", 
        main = "Unsolved Homicides by Year, from 1980 to 2015",
        xlab = "Year 1980-2015", ylab = "Number of Homicides", 
        names.arg = dataset$Year, col = rainbow(3))

甚至

  barplot(unsolvedCASES$Year)

我的第一个问题是，如何使该条形图显示每年未解决案件的数量，然后如何显示其比例？

有人提示我说

  

“该比例也称为未解决的凶杀百分比   对于任何特定年份，可以通过除以数字轻松获得   占当年未解决的凶杀案总数   年”

如果有帮助。

非常感谢您的帮助！！！ 谢谢！

C：\ Users \ erinl \ Downloads \ Homicides .htm

Answer 1

这是使用flights包中的nycflights13数据集创建的非常基本的示例图。

library(tidyverse)
library(nycflights13)
flight_subset<-subset(flights,year==2013)

(props<-prop.table(table(flight_subset$year,flight_subset$carrier)))
barplot(props)

这是样例图

编辑：根据您的评论，您将执行以下操作：

flight_subset<-subset(flights,carrier=="UA")
(props<-prop.table(table(flight_subset$year,flight_subset$month),1))
barplot(props,col="dodgerblue")