Gratitude

In a study, people were asked to journal on either things they were grateful for, hassles, or events. They were given a happiness score based on a survey. In 2003 Professors Robert Emmons and Michael McCullough scientifically ‘examine[d] the influence of grateful thinking on psychological well-being in daily life.’ The researchers wanted to know if being grateful would cause a difference in perceptions of life as a whole. The researchers randomly assigned 192 undergraduate participants into three experimental groups. Each student was asked to complete a weekly journal in which they recorded five specific things and then answered some questions about their feelings about life in general. The groups were as follows: Group 1 (Gratitude): The participants in this group were asked to record five things each week for which they were grateful or thankful. Group 2 (Hassles): The volunteers in this group recorded five irritants that had occurred to them in the previous week. Group 3 (Events—Control group): The people in the events group recorded five things that occurred in the past week that had an impact on them.
mentalhealth
Author

MATH 221

Published

April 29, 2024

Data details

There are 65 rows and 3 columns. The data source1 is used to create our data that is stored in our pins table. You can access this pin from a connection to posit.byui.edu using hathawayj/gratitude.

This data is available to all.

Variable description

  • Grateful: Happiness score of those who recorded things they were grateful for
  • Hassles: Happiness score of those who recorded their hassles
  • Events: Happiness score of those who recorded the events of their lives

Variable summary

Variable type: numeric

skim_variable n_missing complete_rate mean sd p0 p25 p50 p75 p100 hist
Grateful 1 0.98 5.05 0.94 3.5 4.27 5.05 5.62 7.5 ▇▇▆▃▁
Hassles 2 0.97 4.67 0.83 3.3 3.85 4.60 5.40 6.2 ▇▅▇▇▃
Events 0 1.00 4.66 0.85 3.0 4.10 4.70 5.10 6.8 ▃▆▇▃▁ 
NULL
Explore generating code using R 
library(tidyverse)
library(pins)
library(connectapi)

gratitude <- read_csv('https://github.com/byuistats/data/raw/master/Gratitude/Gratitude.csv')


# Publish the data to the server with Bro. Hathaway as the owner.
board <- board_connect()
pin_write(board, gratitude, type = "parquet", access_type = "all")

pin_name <- "gratitude"
meta <- pin_meta(board, paste0("hathawayj/", pin_name))
client <- connect()
my_app <- content_item(client, meta$local$content_id)
set_vanity_url(my_app, paste0("data/", pin_name))

Access data

This data is available to all.

Direct Download: gratitude.parquet

R and Python Download:

URL Connections:

For public data, any user can connect and read the data using pins::board_connect_url() in R.

library(pins)
url_data <- "https://posit.byui.edu/data/gratitude/"
board_url <- board_connect_url(c("dat" = url_data))
dat <- pin_read(board_url, "dat")

Use this custom function in Python to have the data in a Pandas DataFrame.

import pandas as pd
import requests
from io import BytesIO

def read_url_pin(name):
  url = "https://posit.byui.edu/data/" + name + "/" + name + ".parquet"
  response = requests.get(url)
  if response.status_code == 200:
    parquet_content = BytesIO(response.content)
    pandas_dataframe = pd.read_parquet(parquet_content)
    return pandas_dataframe
  else:
    print(f"Failed to retrieve data. Status code: {response.status_code}")
    return None

# Example usage:
pandas_df = read_url_pin("gratitude")

Authenticated Connection:

Our connect server is https://posit.byui.edu which you assign to your CONNECT_SERVER environment variable. You must create an API key and store it in your environment under CONNECT_API_KEY.

Read more about environment variables and the pins package to understand how these environment variables are stored and accessed in R and Python with pins.

library(pins)
board <- board_connect(auth = "auto")
dat <- pin_read(board, "hathawayj/gratitude")
import os
from pins import board_rsconnect
from dotenv import load_dotenv
load_dotenv()
API_KEY = os.getenv('CONNECT_API_KEY')
SERVER = os.getenv('CONNECT_SERVER')

board = board_rsconnect(server_url=SERVER, api_key=API_KEY)
dat = board.pin_read("hathawayj/gratitude")