Я сейчас создаю личный отчет для 170 менеджеров. Я пытаюсь отобразить результаты каждого менеджера по сравнению со всем населением. Результаты каждого менеджера состоят из шести измерений. Чтобы отобразить результаты одного менеджера, я меняю данные с широкоформатного на длинный формат, затем идентифицирую результаты менеджеров (например, строки 3, 23, 43, 63, 83, 103) и создаю новую переменную с именем менеджера, помеченную Генри. Затем я создаю рамочную диаграмму для всей совокупности и добавляю результаты Генри как точку геом
Мой вопрос: есть ли способ автоматически генерировать результаты менеджера вместо необходимости вручную создавать новые переменные (например, Генри ) и определения строк (3, 23, 43, 63, 83, 103)?
Мой код выглядит следующим образом:
HEXACO<-data20[, c("Record","Emotionality","Extraversion", "Agreeableness", "Conscientiousness", "Openness", "Honesty_Humility")]
View(HEXACO)
data_long <- gather(HEXACO, Dimension, Score, Openness, Conscientiousness,Agreeableness,Extraversion, Emotionality, Honesty_Humility, factor_key=TRUE)
View(data_long)
Henry <-data_long[c(3, 23, 43, 63, 83, 103), c("Dimension", "Score")]
Manager_HEXACO <- ggplot(data = data_long, aes(x= Dimension, y= Score, fill=Dimension))+
geom_boxplot(width = 0.6, alpha = 0.5) +
scale_fill_brewer(palette="Set1")+
coord_flip() +
theme_USGS_box()+
scale_y_continuous(breaks=c(1, 1.5, 2, 2.5, 3, 3.5, 4, 4.5, 5))+
expand_limits(y = 1:5)+
geom_point(data = Henry,size = 2, color = "black")+
labs(title = "HEXACO Profile")+
theme(plot.title = element_text(size = 15, face="bold", margin = margin(10,10,10,10), family="serif"))+
theme(axis.title.x=element_blank())+
theme(axis.title.y=element_blank())+
theme(legend.position = "none")
Manager_HEXACO