在 R 中创建相对频率表和图表

Question

下面是数据集。 https://docs.google.com/spreadsheet/ccc?key=0AjmK45BP3s1ydEUxRWhTQW5RczVDZjhyell5dUV4YlE#gid=0

代码：

counts = table(finaldata$satjob, finaldata$degree) barplot(counts, xlab="完成 9-12 年级后的最高学位",col = c("Dark Blue","Blueviolet","deepPink4","goldenrod"), legend =(rownames(counts)))

下面的条形图是上面代码的结果。 https://docs.google.com/file/d/0BzmK45BP3s1yVkx5OFlGQk5WVE0/edit

现在，我想为“计数”的相对频率表创建图。

为了创建相对频率表，我需要将列的每个单元格除以列总数，以获得该单元格的相对频率，以及其他单元格的相对频率。如何去做。

我已经尝试过这个公式 counts/sum(counts) ，但这不起作用。 counts[1:4]/sum(counts[1:4])，这给了我第一列的相对频率。

帮助我为同一个表中的其他列获取相同的内容。

Answer 1

我是plyr 和ggplot2 的忠实粉丝，因此您可能需要下载一些软件包才能使用以下内容。

install.packages('ggplot2') # only have to run once
install.packages('plyr')    # only have to run once
install.packages('scales')  # only have to run once

library(plyr)
library(ggplot2)
library(scales)

# dat <- YOUR DATA
dat_count <- ddply(ft, .(degree, satjob), 'count')
dat_rel_freq <- ddply(dat, .(degree), transform, rel_freq = freq/sum(freq))

ggplot(dat_rel_freq, aes(x = degree, y = rel_freq, fill = satjob)) +
  geom_bar(stat = 'identity') +
  scale_y_continuous(labels = percent) +
  labs(title = 'Highest Degree After finishing 9-12th Grade\n', 
       x = '', 
       y = '',
       fill = 'Job Satisfaction')