Оверлейный линейный график с штрих-кодом в ggplot2

Question

Предоставлено the following dataframe (см. Ниже), которое было взято из вопросника, спрашивающего о предполагаемой безопасности для людей из разных районов, мне удалось создать планку штрихов, которая отображает воспринимаемую безопасность и результаты групп за каждый район:

questionnaire_raw = read.csv("https://www.dropbox.com/s/l647q2omffnwyrg/local.data.csv?dl=0") 

ggplot(data = questionnaire_raw, 
     aes(x = factor(Seguridad.de.tu.barrio..de.día.), # We have to convert x values to categorical data 
      y = (..count..)/sum(..count..)*100, 
      fill = neighborhoods)) + 
    geom_bar(position="dodge") + 
    ggtitle("Seguridad de día") + 
    labs(x="Grado de seguridad", y="% encuestados", fill="Barrios") 

Я хотел бы наложить эти результаты с линейным графиком, представляющим собой среднее каждой категории безопасности (1, 2, 3 или 4) во всех районах (это, без результаты группировки), поэтому легко понять, может ли конкретный сосед od превышает или находится в среднем по всем окрестностям. Однако, поскольку это моя первая работа с R, я не знаю, как вычислить это значение с помощью фреймворка данных, а затем наложить его на предыдущий барплот.

Answer 1

использование data.table для данных манипуляции и lukeA своего комментария:

require(ggplot2) 
require(data.table) 
setDT(questionnaire_raw) 
setnames(questionnaire_raw, c("Timestamp", "Barrios", "Grado")) 

plot_data <- questionnaire_raw[,.N, by=.(Barrios,Grado)] 
ggplot(plot_data, aes(x=factor(Grado), y = N, fill = Barrios)) + 
    geom_bar(position="dodge", stat="identity") + 
    stat_summary(fun.y=mean, geom = "line", mapping = aes(group = 1)) + 
    ggtitle("Seguridad de día") + 
    labs(x="Grado de seguridad", y="% encuestados", fill="Barrios") 

Результат: