如何使用R绘制堆积条形图

Question

如何使用带有x轴的R语言创建堆积条形图是CODE，TYPE堆叠在一个CODE中，y轴是{{1} }。自从过去两周以来我一直在尝试它，但我从未得到过合适的条形图。

COUNT

Answer 1

我建议使用geom_bar中的ggplot：

# your data
df <- read.table(text='COUNT      TYPE    CODE
   31        GJ     PUM
  161        GO     PUM
   12       GL2     PUM
    9        GJ     SOP
    8        GO     SOP
    8       GL2     SOP
  456        OL     SOP
  912        KL     SKQ', header=TRUE)
# plot
require(ggplot2)
p <- ggplot(df, aes(CODE, COUNT, fill=TYPE)) + 
  geom_bar(stat='identity') +
  theme_bw(base_size=16)
print(p)

Answer 2

以下是我如何使用base R。

d <- read.table(text='COUNT      TYPE    CODE
   31        GJ     PUM
  161        GO     PUM
   12       GL2     PUM
    9        GJ     SOP
    8        GO     SOP
    8       GL2     SOP
  456        OL     SOP
  912        KL     SKQ', header=T)

# Choose some colours
library(RColorBrewer)
colrs <- brewer.pal(nlevels(d$TYPE), 'Set3')

# Plot that
par(mar=c(4, 4, 2, 6))
tab <- xtabs(COUNT ~ TYPE + CODE, d)
barplot(tab, las=1, col=colrs, yaxp=c(0, 1000, 5), ylim=c(0, 1000), ylab='Count')
box()

# Clipping off for legend
par(xpd=TRUE)
legend(par('usr')[2], par('usr')[4], row.names(tab), bty='n', fill=colrs)