从两个分类变量分组的条形图

Question

我有两个分类变量：education.type和work.type。

education.type = c(1,1,2,1,2,2,1,1,2,2,1,2,1)
work.type = c(1,2,1,2,1,2,1,2,1,2,1,1,1)

1 =＆＃34;技术＆＃34; 2 =＆＃34;非技术性＆＃34;

我想有一个分组的条形图，如下所示：

感谢您的回复

Answer 1

我试过了：

education.type=c(1,1,2,1,2,2,1,1,2,2,1,2,1)
work.type=c(1,2,1,2,1,2,1,2,1,2,1,1,1)
tt =table(education.type, work.type)
tt
              work.type
education.type 1 2
             1 4 3
             2 4 2
barplot (tt,beside=TRUE)

tt表不合适，因此条形图是错误的。 所以我试过cbind。

cc = cbind(education.type, work.type)
cc
      education.type work.type
 [1,]              1         1
 [2,]              1         2
 [3,]              2         1
 [4,]              1         2
 [5,]              2         1
 [6,]              2         2
 [7,]              1         1
 [8,]              1         2
 [9,]              2         1
[10,]              2         2
[11,]              1         1
[12,]              2         1
[13,]              1         1

条形图为每个条目提供了一个条形

Answer 2

education.type = c(1,1,2,1,2,2,1,1,2,2,1,2,1)
work.type = c(1,2,1,2,1,2,1,2,1,2,1,1,1)

te = sum(education.type == 1)
nte = sum(education.type == 2)

tw = sum(work.type == 1)
ntw = sum(work.type == 2)

education = rbind(te, nte)
work = rbind(tw, ntw)

df = as.data.frame(cbind(education, work))
rownames(df) = c("technical", "nontechnical")
colnames(df) = c("education", "work")
df$x = rownames(df)

library(reshape2)
mlt = melt(df, id.vars = "x")
mlt

ggplot(data=mlt, aes(x=x, y=value, fill=variable)) +
  geom_bar(stat="identity", color="black", position=position_dodge())