Link to survey: https://stanforduniversity.qualtrics.com/jfe/form/SV_9NahsFIiwV8fMfY
library(foreign) # for reading spss formatted data
library(tidyr)
library(dplyr)
Attaching package: 'dplyr'The following objects are masked from 'package:stats':
filter, lagThe following objects are masked from 'package:base':
intersect, setdiff, setequal, unionlibrary(stringr) # useful for some string manipulation
library(ggplot2)df = read.csv("PSYCH251_October 26, 2025_19.12.csv")
head(df) StartDate
1 Start Date
2 {"ImportId":"startDate","timeZone":"America/Denver"}
3 2025-10-25 00:54:20
4 2025-10-25 00:56:16
5 2025-10-25 14:36:39
6 2025-10-25 16:20:03
EndDate Status
1 End Date Response Type
2 {"ImportId":"endDate","timeZone":"America/Denver"} {"ImportId":"status"}
3 2025-10-25 00:54:46 Survey Preview
4 2025-10-25 00:56:32 Survey Preview
5 2025-10-25 14:39:13 Survey Preview
6 2025-10-25 16:21:26 Survey Preview
IPAddress Progress Duration..in.seconds.
1 IP Address Progress Duration (in seconds)
2 {"ImportId":"ipAddress"} {"ImportId":"progress"} {"ImportId":"duration"}
3 100 26
4 100 16
5 100 154
6 100 83
Finished
1 Finished
2 {"ImportId":"finished"}
3 True
4 True
5 True
6 True
RecordedDate
1 Recorded Date
2 {"ImportId":"recordedDate","timeZone":"America/Denver"}
3 2025-10-25 00:54:46
4 2025-10-25 00:56:33
5 2025-10-25 14:39:13
6 2025-10-25 16:21:26
ResponseId RecipientLastName
1 Response ID Recipient Last Name
2 {"ImportId":"_recordId"} {"ImportId":"recipientLastName"}
3 R_3s0n3fcWK6Hk2xQ
4 R_3K6JdHa0NKfBCNa
5 R_3f7GyJBXppKaIzT
6 R_3KDrSRHLGsuz7CU
RecipientFirstName RecipientEmail
1 Recipient First Name Recipient Email
2 {"ImportId":"recipientFirstName"} {"ImportId":"recipientEmail"}
3
4
5
6
ExternalReference LocationLatitude
1 External Data Reference Location Latitude
2 {"ImportId":"externalDataReference"} {"ImportId":"locationLatitude"}
3 34.0544
4 34.0544
5 37.6787
6 37.722
LocationLongitude DistributionChannel
1 Location Longitude Distribution Channel
2 {"ImportId":"locationLongitude"} {"ImportId":"distributionChannel"}
3 -118.244 preview
4 -118.244 preview
5 -122.127 preview
6 -122.1643 preview
UserLanguage Q_RecaptchaScore
1 User Language Q_RecaptchaScore
2 {"ImportId":"userLanguage"} {"ImportId":"Q_RecaptchaScore"}
3 EN
4 EN
5 EN
6 EN 1
BIF_1 BIF_2 BIF_3
1 Making a list Reading Joining the army
2 {"ImportId":"QID1"} {"ImportId":"QID2"} {"ImportId":"QID3"}
3 Following lines of print
4 Following lines of print
5
6
BIF_4 BIF_5 BIF_6
1 Washing clothes Picking an apple Chopping down a tree
2 {"ImportId":"QID4"} {"ImportId":"QID5"} {"ImportId":"QID6"}
3
4
5
6
BIF_7 BIF_8 BIF_9
1 Measuring a room for carpeting Cleaning the house Painting a room
2 {"ImportId":"QID7"} {"ImportId":"QID8"} {"ImportId":"QID9"}
3
4
5
6
BIF_10 BIF_11 BIF_12
1 Paying the rent Caring for houseplants Locking a door
2 {"ImportId":"QID10"} {"ImportId":"QID11"} {"ImportId":"QID12"}
3
4
5
6
house_3 house_2 house_1
1 Group 3 Group 2 Group 1
2 {"ImportId":"QID78"} {"ImportId":"QID76"} {"ImportId":"QID79"}
3
4
5
6 1 1
car_3 car_2 car_1
1 Group 3 Group 2 Group 1
2 {"ImportId":"QID97"} {"ImportId":"QID94"} {"ImportId":"QID96"}
3
4
5
6 1 1
phone_3 phone_2 phone_1
1 Group 3 Group 2 Group 1
2 {"ImportId":"QID112"} {"ImportId":"QID110"} {"ImportId":"QID107"}
3
4
5
6 1 1
vac_3 vac_2 vac_1
1 Group 3 Group 2 Group 1
2 {"ImportId":"QID126"} {"ImportId":"QID123"} {"ImportId":"QID125"}
3
4
5
6 1 1
house_1.1 car_1.1 phone_1.1
1 Group 1 Group 1 Group 1
2 {"ImportId":"QID66"} {"ImportId":"QID89"} {"ImportId":"QID103"}
3
4
5
6
vac_1.1
1 Group 1
2 {"ImportId":"QID118"}
3
4
5
6
bimboola_earn
1 Please indicate how many Bimboolian Euros (EB) you earn in your social group in Bimboola:
2 {"ImportId":"QID128"}
3
4
5
6
group_construal_1
1 Please indicate the extent to which you agree or disagree with the following statements: - In Bimboola, my social group is poor
2 {"ImportId":"QID129_1"}
3
4
5
6
group_construal_2
1 Please indicate the extent to which you agree or disagree with the following statements: - In Bimboola, my social group is rich
2 {"ImportId":"QID129_2"}
3
4
5
6
age gender BIF_13
1 What is your age? What is your gender? Voting
2 {"ImportId":"QID132_TEXT"} {"ImportId":"QID133"} {"ImportId":"QID42"}
3
4
5
6
BIF_14 BIF_15 BIF_16
1 Climbing a tree Filling out a personality test Toothbrushing
2 {"ImportId":"QID43"} {"ImportId":"QID44"} {"ImportId":"QID45"}
3
4
5
6
BIF_17 BIF_18 BIF_19
1 Taking a test Greeting someone Resisting temptation
2 {"ImportId":"QID46"} {"ImportId":"QID47"} {"ImportId":"QID48"}
3
4
5
6
BIF_20 BIF_21 BIF_22
1 Eating Growing a garden Traveling by car
2 {"ImportId":"QID49"} {"ImportId":"QID50"} {"ImportId":"QID51"}
3
4
5
6
BIF_23 BIF_24 condition
1 Having a cavity filled Talking to a child condition
2 {"ImportId":"QID52"} {"ImportId":"QID53"} {"ImportId":"condition"}
3
4
5 scarcity
6 sufficiencydf_select_var <- df %>%
filter(Status == "IP Address") %>%
select(ResponseId, starts_with("BIF"), starts_with("house"), starts_with("car"), starts_with("phone"), starts_with("vac"), bimboola_earn, group_construal_1, group_construal_2, age, gender, condition)
colnames(df_select_var) [1] "ResponseId" "BIF_1" "BIF_2"
[4] "BIF_3" "BIF_4" "BIF_5"
[7] "BIF_6" "BIF_7" "BIF_8"
[10] "BIF_9" "BIF_10" "BIF_11"
[13] "BIF_12" "BIF_13" "BIF_14"
[16] "BIF_15" "BIF_16" "BIF_17"
[19] "BIF_18" "BIF_19" "BIF_20"
[22] "BIF_21" "BIF_22" "BIF_23"
[25] "BIF_24" "house_3" "house_2"
[28] "house_1" "house_1.1" "car_3"
[31] "car_2" "car_1" "car_1.1"
[34] "phone_3" "phone_2" "phone_1"
[37] "phone_1.1" "vac_3" "vac_2"
[40] "vac_1" "vac_1.1" "bimboola_earn"
[43] "group_construal_1" "group_construal_2" "age"
[46] "gender" "condition" nrow(df_select_var)[1] 4head(df_select_var) ResponseId BIF_1 BIF_2
1 R_5v1iy8TAmb2X4wR Getting organized Following lines of print
2 R_31bfiyJrMoMIFAl Getting organized Gaining knowledge
3 R_3tf19g7fktdg8iJ Getting organized Gaining knowledge
4 R_1od7NNc0Vs0BGPu Getting organized Gaining knowledge
BIF_3 BIF_4
1 Helping the Nation's defense Putting clothes into the machine
2 Helping the Nation's defense Removing odor from the clothes
3 Helping the Nation's defense Putting clothes into the machine
4 Helping the Nation's defense Removing odor from the clothes
BIF_5 BIF_6 BIF_7
1 Pulling an apple off a branch Getting firewood Using a yardstick
2 Getting something to eat Getting firewood Getting ready to remodel
3 Getting something to eat Getting firewood Getting ready to remodel
4 Getting something to eat Getting firewood Getting ready to remodel
BIF_8 BIF_9
1 Vacuuming the floor Applying brush strokes
2 Showing one's cleanliness Making the room look fresh
3 Vacuuming the floor Making the room look fresh
4 Showing one's cleanliness Making the room look fresh
BIF_10 BIF_11
1 Writing a check Watering plants
2 Maintaining a place to live Making the room look fresh
3 Maintaining a place to live Watering plants
4 Maintaining a place to live Watering plants
BIF_12 BIF_13 BIF_14
1 Putting a key in the lock Marking a ballot Holding on to branches
2 Securing the house Influencing the election Getting a good view
3 Securing the house Influencing the election Getting a good view
4 Securing the house Getting a good view
BIF_15 BIF_16
1 Answering questions Moving a brush around in one's mouth
2 Revealing what you're like Preventing tooth decay
3 Revealing what you're like
4 Revealing what you're like Preventing tooth decay
BIF_17 BIF_18 BIF_19
1 Answering questions Saying hellow Saying "no"
2 Showing friendliness Showing moral courage
3 Answering questions Showing friendliness Showing moral courage
4 Showing one's knowledge Showing friendliness Showing moral courage
BIF_20 BIF_21 BIF_22
1 Chewing and swallowing Following a map
2 Getting nutrition Getting fresh vegetables Seeing countryside
3 Getting nutrition Getting fresh vegetables Following a map
4 Getting nutrition Getting fresh vegetables Seeing countryside
BIF_23 BIF_24 house_3 house_2
1 Going to the dentist Using simple words
2 Protecting your teeth Teaching a child something IM_b1uIiUKo0sa5RUG 1
3 Protecting your teeth Teaching a child something
4 Protecting your teeth Teaching a child something IM_exneRPy5k2tLP8O 1
house_1 house_1.1 car_3 car_2 car_1 car_1.1
1 IM_0MPaMVELACSvoRE IM_cvDNKczadRNHsEe
2 1 IM_cSa5UlCaPMtrsKW 1 1
3 IM_0w7uG2b61Ppv4Nw IM_bEC3DDikPIx0ZOC
4 1 IM_5z3V6i1wZGw9qTk 1 1
phone_3 phone_2 phone_1 phone_1.1 vac_3
1 IM_1Yuo0nwJoppz3Yq
2 IM_5A6Il383Kayzmia 1 1 A week at the beach
3 IM_aeIfFcMn7D9Yxgi
4 IM_0k8QKjLgRISSuzA 1 1 A week at the beach
vac_2 vac_1 vac_1.1
1 An afternoon relaxing in a park
2 1 1
3 An afternoon in your municipal pool
4 1 1
bimboola_earn group_construal_1
1 Less than 400 EB per month 7 (Totally agree)
2 Between 1,201 and 3,000 EB per month 1 (Totally disagree)
3 Less than 400 EB per month 7 (Totally agree)
4 Between 1,201 and 3,000 EB per month 3
group_construal_2 age gender condition
1 1 (Totally disagree) 22 Female scarcity
2 7 (Totally agree) 60 Female sufficiency
3 1 (Totally disagree) 24 Female scarcity
4 4 59 Male sufficiency