R：用文字填充条形图

Question

我有调查数据，其中每个问题都有许多不同的选项（均由三个字母的代码编码），如下所示：

# example data
data <- data.frame(question = c(1,1,2,2,3), answer = c('CD1', 'CD2', 'CD5', 'CD1', 'CD2'), perc = c(0.25, 0.75, 0.5, 0.5, 1.0))

# simple bar plot
ggplot(data, aes(x=question, y = perc, fill = answer)) + geom_bar(stat='identity')

很明显，当有大量代码时，此条形图会变得凌乱，因此，我们希望将条形图本身替换为三个字母代码（忽略y轴，这应该类似于总数的％）：


（ example from DNA codons）

这可以在geom_text支持起始y和结束y坐标（例如x, y.start, y.end）时完成，但是据我所知这是不可能的。

Answer 1

这看起来像是您可能想尝试的事情：

request.META.get('HTTP_USER_AGENT', '')

您可以根据需要进行编辑，与条形图相比，它的混乱程度更低。