我有以下数据集:
年份生成的拒绝 1 2012 133118208 7256986 2 2013 289487598 49652610 3 2014 192232775 31765480 4 2015 40434968 2513930我在尝试生成一个分组的条形图,该分组的条形图将在x轴上具有年并且在y轴上具有数字刻度以显示每年被拒绝的生成的Vs。
我很困惑我应该怎样设定我的y轴?我还没有尝试过使用 spread()函数,因为我希望可能有一个更简单的方法
解决方案首先,您必须按正确的格式安排数据以进行绘图:
library(重新塑形2) df1 < - melt(df,id =Year)你可以使用 tidyr 包:
library(tidyr) df1 < - gather(df,variable,value,-Year)这可能更容易如果你不熟悉 melt()
基本上它说:收集所有 df 中除年之外的变量,调用新的键列变量和新值列值
library(ggplot2) ggplot(df1,aes(Year,value))+ geom_bar(aes(fill = variable),position =dodge,stat =identity)如果您更喜欢使用逗号分隔数千个数字: library(ggplot2) library(scales) ggplot(df1,aes(Year,value))+ geom_bar(aes(fill = variable),position =dodge,stat =identity)+ scale_y_continuous(name = 值,标签=逗号)
I have the following dataset:
Year Generated Rejected 1 2012 133118208 7256986 2 2013 289487598 49652610 3 2014 192232775 31765480 4 2015 40434968 2513930I am trying to generate a grouped bar chart that will have Year on the x axis and a numerical scale on the y axis to show the generated Vs rejected year-wise.
I am confused what I should set my y axis to? I have not tried using the spread() function yet, as I am hoping there might be an easier way
解决方案First you have to arrange the data in the proper format for plotting:
library(reshape2) df1 <- melt(df, id = "Year")Or you could use the tidyr package:
library(tidyr) df1 <- gather(df, variable, value, -Year)Which may be easier to understand if you are not familiar with melt()
Basically, it says: "Gather all the variables in df except Year, calling the new key column variable and the new value column value"
library(ggplot2) ggplot(df1, aes(Year, value)) + geom_bar(aes(fill = variable), position = "dodge", stat = "identity")If you prefer to format numbers with commas separating thousands:
library(ggplot2) library(scales) ggplot(df1, aes(Year, value)) + geom_bar(aes(fill = variable), position = "dodge", stat = "identity") + scale_y_continuous(name = "Values", labels = comma)更多推荐
ggplot分组条形图
发布评论