Question

我有以下数据集：

year    type      count
1560    Person    2
1560    Public    1
1560    Thing     1
1578    Academic  1
1578    Public    1
1578    Thing     1
1582    Person    3
1582    Public    3
1582    Thing     3
...

我的目标是将该数据集绘制成相对于组/类型的三种不同颜色的直方图。 x轴应代表年份，而应有四个bin（每年每种类型[人/公共/事物/学术]对应一个，代表该组的计数。

现在我有以下R代码：

dat <- read.csv(
    file = filename
    ,header = T
    ,sep = "\t"
    ,quote = "\""
    ,row.names = NULL
    ,fileEncoding = "UTF8"
    ,stringsAsFactors = F);

melt_df <- melt(dat, id.vars = c("year","type"), measure.vars = c("count"));

ggplot(melt_df, aes(x = year, y = value, fill = variable)) +
    geom_bar(stat = 'summary', fun.y = sum) +
    theme(axis.text.x = element_text(angle = 90, hjust = 1)) +
    scale_y_continuous(limits=c(0,155),     breaks=seq(0,155,5)) +
    scale_x_continuous(limits=c(1550,2000), breaks=seq(1550,2000,10));

这将导致以下绘图： ggplot from dataset above

有人能指出我正确的方向，如何做到这一点吗？

请不要建议像这样重新排列数据集：

year    Person  Public  Thing  Academic
1560    2       1       1      0
...

我当然可以毫无问题地绘制此数据集，但是它不是我可以期望的格式，因此使用上面的数据集会很好。

Answer 1

简单地做

ggplot(d, aes(factor(year), count, fill = type)) + 
   geom_col(position = "dodge")

数据

d <- read.table(text="year    type      count
1560    Person    2
                1560    Public    1
                1560    Thing     1
                1578    Academic  1
                1578    Public    1
                1578    Thing     1
                1582    Person    3
                1582    Public    3
                1582    Thing     3", header=T)

如何从R中的分组列制作单个直方图

1 个答案: