data(BFI.adjectives.dictionary) #this includes the bfi.adjectives.keys
bfi.adjectives.keys <- list(
Agreeableness =
psych::cs(V2, -V11, V14, V15, -V19, -V21, V29, -V31, V32, V48, V55,-V61, -V63,
V69, V76, -V78, -V79, -V90, -V94, V99),
Conscientiousness = psych::cs(V9, -V10, V13, -V20, V22, -V30, -V37, -V38, -V39,
V50, -V51, V53, V56, V57, -V67, V68, V70, V73, -V82, -V95),
Extraversion = psych::cs(V1,V5, -V6,V7, V17, V24, V26, -V40,-V45, -V58, -V60,-V65,
V71, -V74, -V77, V92, -V96, V97, V98, -V100),
Neuroticism= psych::cs(V3, V23, V25, V27,V28, V33,-V36, V42, V46,V47, V49, V52,-V59,V62,
V72, V75, -V81,-V83,-V84, -V85),
Openness = psych::cs(V4,V8,V12, V16, V18,V34, -V35,V41, V43, V44, V54, -V64,-V66, -V80,
-V86, -V87, -V88, -V89, -V91, -V93)
)
psych::lookupFromKeys(bfi.adjectives.keys,bfi.adjectives.dictionary,20)
Run the code above in your browser using DataLab