Flourishing

Flourishing Scale

Measuring: Eudaimonic well-being (as opposed to just hedonic happiness), focusing on; Purpose and meaning in life, Positive relationships, Engagement, Contribution to others, Competence, Self-respect, and Optimism.

Number of Items: 8

Item	Question Wording	TILDA Variable
1	I lead a purposeful and meaningful life.	SCQFlourish1
2	My social relationships are supportive and rewarding.	SCQFlourish2
3	I am engaged and interested in my daily activities.	SCQFlourish3
4	I actively contribute to the happiness and well-being of others.	SCQFlourish4
5	I am competent and capable in the activities that are important to me.	SCQFlourish5
6	I am a good person and live a good life.	SCQFlourish6
7	I am optimistic about my future.	SCQFlourish7
8	People respect me.	SCQFlourish8

Scoring Method:

Scored on a 7-point Likert scale.

1 = Strongly disagree

2 = Disagree

3 = Slightly Disagree

4 = Neutral

5 = Slightly Agree

6 = Agree

7 = Strongly agree

A cumulative score is generated with higher scores representing greater psychological flourishing (8 to 56).

Citation: Diener, E., Wirtz, D., Tov, W., Kim-Prieto, C., Choi, D., Oishi, S., & Biswas-Diener, R. (2010). New well-being measures: Short scales to assess flourishing and positive and negative feelings. Social Indicators Research, 97, 143–156. DOI: 10.1007/s11205-009-9493-y

Code

mvdecode (Flourish1 Flourish2 Flourish3 Flourish4 Flourish5 Flourish6 Flourish7 Flourish8), mv(-99=. \ -812=. \ -823=. \ -834=. \ -845=. \ -856 = . \ -867=. \ -1=.)

egen FSFlourishingScale = rowtotal(Flourish1 Flourish2 Flourish3 Flourish4 Flourish5 Flourish6 Flourish7 Flourish8)

lab var FSFlourishingScale "Flourishing Scale: Measure of Eudaimonic Well-Being"  

*Scores should be between 8 and 56
codebook FSFlourishingScale

Download Stata .do file

flourish_items <- paste0("Flourish", 1:8)

for (v in flourish_items) print(table(data[[v]], useNA = "ifany"))

special_missing <- c(-99, -812, -823, -834, -845, -856, -867, -1)
for (v in flourish_items) {
  data[[v]][data[[v]] %in% special_missing] <- NA_real_
}

# Match Stata egen rowtotal(): ignore missing components and return 0 if all missing.
data$FSFlourishingScale <- rowSums(data[flourish_items], na.rm = TRUE)

attr(data$FSFlourishingScale, "label") <-
  "Flourishing Scale: Measure of Eudaimonic Well-Being"

summary(data$FSFlourishingScale)
print(table(data$FSFlourishingScale, useNA = "ifany"))

Download R file

FREQUENCIES VARIABLES=
  Flourish1 Flourish2 Flourish3 Flourish4
  Flourish5 Flourish6 Flourish7 Flourish8
  /MISSING=INCLUDE.

RECODE Flourish1 Flourish2 Flourish3 Flourish4
       Flourish5 Flourish6 Flourish7 Flourish8
  (-99 = SYSMIS) (-812 = SYSMIS) (-823 = SYSMIS) (-834 = SYSMIS)
  (-845 = SYSMIS) (-856 = SYSMIS) (-867 = SYSMIS) (-1 = SYSMIS).

COMPUTE FSFlourishingScale =
  SUM(Flourish1, Flourish2, Flourish3, Flourish4,
      Flourish5, Flourish6, Flourish7, Flourish8).

* Match Stata egen rowtotal() for an all-missing row.
IF (NMISS(Flourish1, Flourish2, Flourish3, Flourish4,
          Flourish5, Flourish6, Flourish7, Flourish8) = 8)
  FSFlourishingScale = 0.

VARIABLE LABELS FSFlourishingScale
  "Flourishing Scale: Measure of Eudaimonic Well-Being".

DESCRIPTIVES VARIABLES=FSFlourishingScale.
FREQUENCIES VARIABLES=FSFlourishingScale /MISSING=INCLUDE.

EXECUTE.

Download SPSS .sps file