R: заполнить гистограмму текстом - PullRequest
Новая
       22

R: заполнить гистограмму текстом

0 голосов
/ 18 декабря 2018

У меня есть данные опроса, где каждый вопрос имеет множество различных вариантов (все закодированы кодом из трех букв), например так: 

# 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, это должно быть что-то вроде% от общего числа):

enter image description here
( пример из кодонов ДНК )

Это можно сделать, когда geom_text будет поддерживать начальную y и конечную координату y, например, x, y.start, y.end, однако доЯ знаю, что это невозможно.

1 Ответ

0 голосов
/ 18 декабря 2018

Это выглядит как что-то, что вы можете попробовать: 

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

Вы можете редактировать по своему желанию, это сделает его менее запутанным, чем гистограмма.

...