使用R进行频率表比较

Question

我使用R的{​​{1}}函数创建了两个频率表：

table()

freq1 <- table(unlist(strsplit(topic_list1, split=";"))) freq2 <- table(unlist(strsplit(topic_list2, split=";"))) 和topic_list1是包含由topic_list2分隔的主题的文字表示的字符串。

如果可能的话，我希望用图形方式比较两个频率。

因此，如果两个列表包含不同频率的相同主题，我希望能够看到它。对于一个频率表中存在的主题也是如此，但在另一个频率表中则不存在。

Answer 1

这可能是一种更优雅的方式，但这应该有效：

# here I'm generating some example data
set.seed(5)
topic_list1 <- paste(sample(letters, 20, replace=T), sep=";")
topic_list2 <- paste(sample(letters, 15, replace=T), sep=";")

# I don't make the tables right away
tl1      <- unlist(strsplit(topic_list1, split=";"))
tl2      <- unlist(strsplit(topic_list2, split=";"))
big_list <- unique(c(tl1, tl2))

# this computes your frequencies
lbl         <- length(big_list)
tMat1       <- matrix(rep(tl1, lbl), byrow=T, nrow=lbl)
tMat2       <- matrix(rep(tl2, lbl), byrow=T, nrow=lbl)
tMat1       <- cbind(big_list, tMat1)
tMat2       <- cbind(big_list, tMat2)
counts1     <- apply(tMat1, 1, function(x){sum(x[1]==x[2:length(x)])})
counts2     <- apply(tMat2, 1, function(x){sum(x[1]==x[2:length(x)])})
total_freqs <- rbind(counts1, counts2, counts1-counts2)

# this makes it nice looking & user friendly
colnames(total_freqs) <- big_list
rownames(total_freqs) <- c("topics1", "topics2", "difference")
total_freqs           <- total_freqs[ ,order(total_freqs[3,])]
total_freqs
            d  l  a  z  b f s y m r x h n i g k c v o
topics1     0  0  0  0  0 2 1 1 1 1 2 2 1 1 1 1 2 2 2
topics2     2  2  2  1  1 2 1 1 1 0 1 1 0 0 0 0 0 0 0
difference -2 -2 -2 -1 -1 0 0 0 0 1 1 1 1 1 1 1 2 2 2

从那里你可以使用直线数字或想象它们你想要的（例如，点图等）。这是一个简单的点图：

windows()
  dotchart(t(total_freqs)[,3], main="Frequencies of topics1 - topics2")
  abline(v=0)

Answer 2

你可以简单地用条形图绘制它们（旁边是= T参数），这将为你提供一种在视觉上比较每个级别的计数的方法...... 下面是一个例子：

counts <- table(mtcars$vs, mtcars$gear)
barplot(counts, col=c("darkblue","red"), legend=rownames(counts), beside=T)