rstudio - 自动创建包含不同行信息的新变量 - 使用 R studio

Question

我目前正在为 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 

标签： rstudio