R 中的条形图，采样数据的聚合

Question

我想要下面数据的堆叠条形图或至少两个条形图（直方图）。但我不知道怎么做。情节（在线）不是我正在寻找的解决方案。请看下文。

          online              offline
1         sehrwichtig             wichtig
2             wichtig           unwichtig
3         sehrwichtig           unwichtig
4         sehrwichtig         sehrwichtig
5         sehrwichtig         sehrwichtig
6         sehrwichtig           unwichtig
7         sehrwichtig           unwichtig
8             wichtig             wichtig
9             wichtig           unwichtig
10        sehrwichtig         sehrwichtig
11        sehrwichtig             wichtig
12        sehrwichtig           unwichtig
13            wichtig         sehrwichtig
14        sehrwichtig             wichtig

我知道我需要一个步骤，将数据聚合到：

                   online        offline 
   sehrwichtig           6         7 
   unwichtig             0         1 
   wichtig               3         5 

但是如何聚合？

Answer 1

该聚合只是对 apply 内部的 table 的简单调用：

R> foo <- data.frame(online=sample(c("S","W","U"),10,TRUE), 
                     offline=sample(c("S","W","U"),10,TRUE))
R> apply(foo,2,table)
  online offline
S      3       1
U      4       5
W      3       4

您可以将其输入到 barplot 中。

Answer 2

使用 ggplot2，您不需要预先聚合数据：

library(ggplot2)
qplot(online, data = df, fill = offline)
qplot(offline, data = df, fill = online)

Answer 3

#generate data
df<- read.table(textConnection('
      online              offline
 sehrwichtig             wichtig
     wichtig           unwichtig
 sehrwichtig           unwichtig
 sehrwichtig         sehrwichtig
 sehrwichtig         sehrwichtig
 sehrwichtig           unwichtig
 sehrwichtig           unwichtig
     wichtig             wichtig
     wichtig           unwichtig
 sehrwichtig         sehrwichtig
 sehrwichtig             wichtig
 sehrwichtig           unwichtig
     wichtig         sehrwichtig
 sehrwichtig             wichtig'
 ),header=T)

#factor levels should be the same
levels(df$online) <- levels(df$offline)

my_table <- t(aaply(df,2,table))

library(graphics)
barplot2(my_table,legend = rownames(my_table), ylim = c(0, 20))

Answer 4

德克的答案是要走的路，但在OP的数据上，简单的apply(foo,2,table)将不起作用——你需要处理0条目，也许像这样

my.data <- "online              offline
1         sehrwichtig             wichtig
2             wichtig           unwichtig
3         sehrwichtig           unwichtig
4         sehrwichtig         sehrwichtig
5         sehrwichtig         sehrwichtig
6         sehrwichtig           unwichtig
7         sehrwichtig           unwichtig
8             wichtig             wichtig
9             wichtig           unwichtig
10        sehrwichtig         sehrwichtig
11        sehrwichtig             wichtig
12        sehrwichtig           unwichtig
13            wichtig         sehrwichtig
14        sehrwichtig             wichtig"

df <- read.table(textConnection(my.data))

df.labels <- unique(as.character(apply(df,2,as.character)))
tallies <- apply(df,2,function(x)table(x)[df.labels])
tallies[is.na(tallies)] <- 0
rownames(tallies) <- df.labels

：为了简洁起见，您可以合并最后 3 行：

tallies <- apply(df,2,function(x){y <- table(x)[df.labels];
                                   names(y) <- df.labels; y[is.na(y)] <- 0; y})

输出为：

> tallies
            online offline
sehrwichtig     10       4
wichtig          4       4
unwichtig        0       6

Answer 5

我自己没有这样做过，但我确实知道很多人使用 R 包来将其放入第二个数组中。它称为reshape：

http://www.statmethods.net/management /reshape.html

http://had.co.nz/reshape/introduction。 pdf

至于绘图部分，我认为 lattice 或 ggplot 可能都有实现你想要的功能，但我又是一个 R 新手，所以我不能说更多...