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軸，這應該類似於總數的％）：


（ 來自DNA密碼子的例子 ）

當geom_text支持起始y和結束y坐標（例如x, y.start, y.end ，可以這樣做，但是據我所知這是不可能的。

Answer 1

看起來您可能想嘗試一下：

df %>% 
  ggplot(aes(question,perc,fill=answer))+geom_tile()+
  geom_text(aes(label=answer))

您可以根據需要進行編輯，這將使它比條形圖更混亂。