使用R / R降价制作barchar

Question

我在r markdown的r setup部分写的代码是，

roaddataSet <- read.csv("https://bitre.gov.au/statistics/safety/files/Fatalities_June_2017.csv")
data <- select(roaddataSet, Year, State)

（这是从数据集中提取某些列）

然后是条形图，我写道，

ggplot(data, aes(x=State, y=Year)) + 
       geom_bar(stat = "identity") + 
       labs(x="State", y="Year")

这会成功运行程序，但是，条形图中显示的y轴（不是ylab的标题！）被写成一些奇怪的单词，例如＆＃34; 1e + 07＆＃34; ... not not显示＆＃34;年份＆＃34;的数字这应该是从1989年到2017年.X轴很好，它显示每个州的名称

无论如何要解决这个问题？谢谢！

Answer 1

我认为这可能是你之后的事情：

data$Year<-as.factor(data$Year)

p <- ggplot(data)
p <- p + geom_bar(aes(x=Year, y = ..count.., fill= State))
p <- p + scale_x_discrete("Year", breaks=levels(data$Year))
p <- p + theme(axis.text.x = element_text(angle = 45, hjust=1))

p

此处，..count..是每State个Year的计数，然后根据Year绘制，并按State着色

Answer 2

条形图累积年份（解释为数字）......：

    sum(data$Year[data$State=="NSW"])

得到29816081的结果，大约是3e7，这是你在NSW的图表中得到的。也许您首先要指定要在条形图中显示的内容。