Skip to content

Instantly share code, notes, and snippets.

Last active February 18, 2024 22:49
Show Gist options
  • Save halhen/d969234077c9b70df4c4b8dd902bea38 to your computer and use it in GitHub Desktop.
Save halhen/d969234077c9b70df4c4b8dd902bea38 to your computer and use it in GitHub Desktop.
The people who keep us company - dataviz
We can make this file beautiful and searchable if this error is corrected: It looks like row 8 should actually have 1 column, instead of 2. in line 7.
01;Personal Care Activities
0103;Health-related self care
0104;Personal Activities
0105;Personal Care Emergencies
0199;Personal care, n.e.c.*
02;Household Activities
0202;Food & Drink Preparation, Presentation, & Clean-up
0203;Interior Maintenance, Repair & Decoration
0204;Exterior Maintenance, Repair & Decoration
0205;Lawn, Garden, and Houseplants
0206;Animals and Pets
0208;Appliances, Tools, and Toys
0209;Household Management
0299;Household activities, n.e.c.*
03;Caring For & Helping Household (HH) Members
0301;Caring For & Helping HH Children
0302;Activities Related to HH Children's Education
0303;Activities Related to HH Children's Health
0304;Caring for Household Adults
0305;Helping Household Adults
0399;Caring For & Helping NonHH Members
04;Caring for & Helping Nonhousehold (NonHH) Members
0401;Caring for & Helping Nonhousehold Children
0402;Activities Related to Nonhh Children's Education
0403;Activities Related to Nonhh Children's Health
0404;Caring For Nonhousehold Adults
0405;Helping Nonhousehold Adults
0499;Caring For & Helping Nonhousehold Adults, n.e.c.*
05;Work & Work-Related Activities
0502;Work-Related Activities
0503;Other Income-Generating Activities
0504;Job Search and Interviewing
0599;Work and Work-Related Activities, n.e.c.*
0601;Taking Class
0602;Extracurricular School Activities (Except Sports)
0604;Registration/Administrative activities
0699;Education, n.e.c.*
07;Consumer Purchases
0701;Shopping (Store, Telephone, Internet)
0702;Researching Purchases
0703;Security Procedures Related to Consumer Purchases
0799;Consumer Purchases, n.e.c.*
08;Professional & Personal Care Services
0801;Professional & Personal Care Services
0802;Financial Services and Banking
0803;Legal Services
0804;Medical and Care Services
0805;Personal Care Services
0806;Real Estate
0807;Veterinary Services (excluding grooming)
0808;Security Procedures Related to Professional/Personal Services
0899;Professional and Personal Services, n.e.c.*
09;Household Services
0901;Household Services (not done by self)
0902;Home Maintenance/Repair/Décor/Construction (not done by self)
0903;Pet Services (not done by self, not vet)
0904;Lawn & Garden Services (not done by self)
0905;Vehicle Maintenance & Repair Services (not done by self)
0999;Household Services, n.e.c.*
10;Government Services & Civic Obligations
1001;Using Government Services
1002;Civic Obligations & Participation
1003;Waiting Associated w/ Government Services or Civic Obligations
1004;Security Procedures Related to Government Services or Civic Obligations
1099;Government services, n.e.c.*
11;Eating and Drinking
1101;Eating and Drinking
1102;Waiting associated with Eating & Drinking
1199;Eating and Drinking, n.e.c.*
12;Socializing, Relaxing, and Leisure
1201;Socializing and Communicating
1202;Attending or Hosting Social Events
1203;Relaxing and Leisure
1204;Arts and Entertainment (other than sports)
1205;Waiting associated with Socializing, Relaxing, and Leisure
1299;Socializing, Relaxing, and Leisure, n.e.c.*
13;Sports, Exercise, & Recreation
1301;Participating in Sports, Exercise, and Recreation
1302;Attending Sports/Recreational Events
1303;Waiting Associated with Sports, Exercise, & Recreation
1304;Security Procedures Related to Sports, Exercise, & Recreation
1399;Sports, Exercise, and Recreation, n.e.c.*
14;Religious and Spiritual Activities
1401;Religious/Spiritual Practices
1499;Religious and Spiritual Practices, n.e.c.*
15;Volunteer Activities
1501;Administrative & Support Activities
1502;Social Service & Care Activities (Except Medical)
1503;Indoor & Outdoor Maintenance, Building, & Clean-up Activities
1504;Participating in Performance & Cultural Activities
1505;Attending Meetings, Conferences, & Training
1506;Public Health & Safety Activities
1599;Volunteer Activities, n.e.c.*
16;Telephone Calls
1601;Telephone Calls (to or from)
1699;Telephone Calls, n.e.c.*
1801;Travel Related to Personal Care
1802;Travel Related to Household Activities
1803;Travel Related to Caring For & Helping Household Members
1804;Travel Related to Caring For & Helping Nonhousehold Members
1805;Travel Related to Work
1806;Travel Related to Education
1807;Travel Related to Consumer Purchases
1808;Travel Related to Using Professional and Personal Care Services
1809;Travel Related to Using Household Services
1810;Travel Related to Using Government Services & Civic Obligations
1811;Travel Related to Eating and Drinking
1812;Travel Related to Socializing, Relaxing, and Leisure
1813;Travel Related to Sports, Exercise, and Recreation
50;Data Codes
5001;Unable to Code
5099;Data codes, n.e.c.*
010199;Sleeping, n.e.c.*
010201;Washing, dressing and grooming oneself
010299;Grooming, n.e.c.*
010301;Health-related self care
010399;Self care, n.e.c.*
010401;Personal/Private activities
010499;Personal activities, n.e.c.*
010501;Personal emergencies
010599;Personal care emergencies, n.e.c.*
019999;Personal care, n.e.c.*
020101;Interior cleaning
020103;Sewing, repairing, & maintaining textiles
020104;Storing interior hh items, inc. food
020199;Housework, n.e.c.*
020201;Food and drink preparation
020202;Food presentation
020203;Kitchen and food clean-up
020299;Food & drink prep, presentation, & clean-up, n.e.c.*
020301;Interior arrangement, decoration, & repairs
020302;Building and repairing furniture
020303;Heating and cooling
020399;Interior maintenance, repair, & decoration, n.e.c.*
020401;Exterior cleaning
020402;Exterior repair, improvements, & decoration
020499;Exterior maintenance, repair & decoration, n.e.c.*
020501;Lawn, garden, and houseplant care
020502;Ponds, pools, and hot tubs
020599;Lawn and garden, n.e.c.*
020681;Care for animals and pets (not veterinary care)
020699;Pet and animal care, n.e.c.*
020701;Vehicle repair and maintenance (by self)
020799;Vehicles, n.e.c.*
020801;Appliance, tool, and toy set-up, repair, & maintenance (by self)
020899;Appliances and tools, n.e.c.*
020901;Financial management
020902;Household & personal organization and planning
020903;HH & personal mail & messages (except e-mail)
020904;HH & personal e-mail and messages
020905;Home security
020999;Household management, n.e.c.*
029999;Household activities, n.e.c.*
030101;Physical care for hh children
030102;Reading to/with hh children
030103;Playing with hh children, not sports
030104;Arts and crafts with hh children
030105;Playing sports with hh children
030186;Talking with/listening to hh children
030108;Organization & planning for hh children
030109;Looking after hh children (as a primary activity)
030110;Attending hh children's events
030111;Waiting for/with hh children
030112;Picking up/dropping off hh children
030199;Caring for & helping hh children, n.e.c.*
030201;Homework (hh children)
030202;Meetings and school conferences (hh children)
030203;Home schooling of hh children
030204;Waiting associated with hh children's education
030299;Activities related to hh child's education, n.e.c.*
030301;Providing medical care to hh children
030302;Obtaining medical care for hh children
030303;Waiting associated with hh children's health
030399;Activities related to hh child's health, n.e.c.*
030401;Physical care for hh adults
030402;Looking after hh adult (as a primary activity)
030403;Providing medical care to hh adult
030404;Obtaining medical and care services for hh adult
030405;Waiting associated with caring for household adults
030499;Caring for household adults, n.e.c.*
030501;Helping hh adults
030502;Organization & planning for hh adults
030503;Picking up/dropping off hh adult
030504;Waiting associated with helping hh adults
030599;Helping household adults, n.e.c.*
039999;Caring for & helping hh members, n.e.c.*
040101;Physical care for nonhh children
040102;Reading to/with nonhh children
040103;Playing with nonhh children, not sports
040104;Arts and crafts with nonhh children
040105;Playing sports with nonhh children
040186;Talking with/listening to nonhh children
040108;Organization & planning for nonhh children
040109;Looking after nonhh children (as primary activity)
040110;Attending nonhh children's events
040111;Waiting for/with nonhh children
040112;Dropping off/picking up nonhh children
040199;Caring for and helping nonhh children, n.e.c.*
040201;Homework (nonhh children)
040202;Meetings and school conferences (nonhh children)
040203;Home schooling of nonhh children
040204;Waiting associated with nonhh children's education
040299;Activities related to nonhh child's educ., n.e.c.*
040301;Providing medical care to nonhh children
040302;Obtaining medical care for nonhh children
040303;Waiting associated with nonhh children's health
040399;Activities related to nonhh child's health, n.e.c.*
040401;Physical care for nonhh adults
040402;Looking after nonhh adult (as a primary activity)
040403;Providing medical care to nonhh adult
040404;Obtaining medical and care services for nonhh adult
040405;Waiting associated with caring for nonhh adults
040499;Caring for nonhh adults, n.e.c.*
040501;Housework, cooking, & shopping assistance for nonhh adults
040502;House & lawn maintenance & repair assistance for nonhh adults
040503;Animal & pet care assistance for nonhh adults
040504;Vehicle & appliance maintenance/repair assistance for nonhh adults
040505;Financial management assistance for nonhh adults
040506;Household management & paperwork assistance for nonhh adults
040507;Picking up/dropping off nonhh adult
040508;Waiting associated with helping nonhh adults
049999;Caring for & helping nonhh members, n.e.c.*
050101;Work, main job
050102;Work, other job(s)
050103;Security procedures related to work
050189;Working, n.e.c.*
050201;Socializing, relaxing, and leisure as part of job
050202;Eating and drinking as part of job
050203;Sports and exercise as part of job
050204;Security procedures as part of job
050301;Income-generating hobbies, crafts, and food
050302;Income-generating performances
050303;Income-generating services
050304;Income-generating rental property activities
050389;Other income-generating activities, n.e.c.*
050481;Job search activities
050403;Job interviewing
050404;Waiting associated with job search or interview
050405;Security procedures rel. to job search/interviewing
059999;Work and work-related activities, n.e.c.*
060101;Taking class for degree, certification, or licensure
060102;Taking class for personal interest
060103;Waiting associated with taking classes
060104;Security procedures rel. to taking classes
060199;Taking class, n.e.c.*
060201;Extracurricular club activities
060202;Extracurricular music & performance activities
060203;Extracurricular student government activities
060289;Education-related extracurricular activities, n.e.c.*
060301;Research/homework for class for degree, certification, or licensure
060302;Research/homework for class for pers. interest
060303;Waiting associated with research/homework
060401;Administrative activities: class for degree, certification, or licensure
060403;Waiting associated w/admin. activities (education)
060499;Administrative for education, n.e.c.*
069999;Education, n.e.c.*
070101;Grocery shopping
070102;Purchasing gas
070103;Purchasing food (not groceries)
070104;Shopping, except groceries, food and gas
070105;Waiting associated with shopping
070199;Shopping, n.e.c.*
070201;Comparison shopping
070301;Security procedures rel. to consumer purchases
070399;Security procedures rel. to consumer purchases, n.e.c.*
079999;Consumer purchases, n.e.c.*
080101;Using paid childcare services
080102;Waiting associated w/purchasing childcare svcs
080199;Using paid childcare services, n.e.c.*
080202;Using other financial services
080203;Waiting associated w/banking/financial services
080299;Using financial services and banking, n.e.c.*
080301;Using legal services
080302;Waiting associated with legal services
080399;Using legal services, n.e.c.*
080401;Using health and care services outside the home
080402;Using in-home health and care services
080403;Waiting associated with medical services
080499;Using medical services, n.e.c.*
080501;Using personal care services
080502;Waiting associated w/personal care services
080599;Using personal care services, n.e.c.*
080601;Activities rel. to purchasing/selling real estate
080602;Waiting associated w/purchasing/selling real estate
080699;Using real estate services, n.e.c.*
080701;Using veterinary services
080702;Waiting associated with veterinary services
080801;Security procedures rel. to professional/personal svcs.
080899;Security procedures rel. to professional/personal svcs n.e.c.*
089999;Professional and personal services, n.e.c.*
090101;Using interior cleaning services
090102;Using meal preparation services
090103;Using clothing repair and cleaning services
090104;Waiting associated with using household services
090199;Using household services, n.e.c.*
090201;Using home maint/repair/décor/construction svcs
090202;Waiting associated w/ home main/repair/décor/constr
090299;Using home maint/repair/décor/constr services, n.e.c.*
090301;Using pet services
090302;Waiting associated with pet services
090399;Using pet services, n.e.c.*
090401;Using lawn and garden services
090402;Waiting associated with using lawn & garden services
090499;Using lawn and garden services, n.e.c.*
090502;Waiting associated with vehicle main. or repair svcs
090599;Using vehicle maint. & repair svcs, n.e.c.*
099999;Using household services, n.e.c.*
100101;Using police and fire services
100102;Using social services
100103;Obtaining licenses & paying fines, fees, taxes
100199;Using government services, n.e.c.*
100201;Civic obligations & participation
100299;Civic obligations & participation, n.e.c.*
100381;Waiting associated with using government services
100383;Waiting associated w/civic obligations & participation
100399;Waiting assoc. w/govt svcs or civic obligations, n.e.c.*
100401;Security procedures rel. to govt svcs/civic obligations
100499;Security procedures rel. to govt svcs/civic obligations, n.e.c.*
109999;Government services, n.e.c.*
110101;Eating and drinking
110199;Eating and drinking, n.e.c.*
110281;Waiting associated w/eating & drinking
110289;Waiting associated with eating & drinking, n.e.c.*
119999;Eating and drinking, n.e.c.*
120101;Socializing and communicating with others
120199;Socializing and communicating, n.e.c.*
120201;Attending or hosting parties/receptions/ceremonies
120202;Attending meetings for personal interest (not volunteering)
120299;Attending/hosting social events, n.e.c.*
120301;Relaxing, thinking
120302;Tobacco and drug use
120303;Television and movies (not religious)
120304;Television (religious)
120305;Listening to the radio
120306;Listening to/playing music (not radio)
120307;Playing games
120308;Computer use for leisure (exc. Games)
120309;Arts and crafts as a hobby
120310;Collecting as a hobby
120311;Hobbies, except arts & crafts and collecting
120312;Reading for personal interest
120313;Writing for personal interest
120399;Relaxing and leisure, n.e.c.*
120401;Attending performing arts
120402;Attending museums
120403;Attending movies/film
120404;Attending gambling establishments
120405;Security procedures rel. to arts & entertainment
120499;Arts and entertainment, n.e.c.*
120502;Waiting assoc. w/attending/hosting social events
120503;Waiting associated with relaxing/leisure
120504;Waiting associated with arts & entertainment
120599;Waiting associated with socializing, n.e.c.*
129999;Socializing, relaxing, and leisure, n.e.c.*
130101;Doing aerobics
130102;Playing baseball
130103;Playing basketball
130105;Playing billiards
130108;Climbing, spelunking, caving
130110;Participating in equestrian sports
130113;Playing football
130115;Doing gymnastics
130117;Playing hockey
130119;Participating in martial arts
130120;Playing racquet sports
130121;Participating in rodeo competitions
130123;Playing rugby
130125;Skiing, ice skating, snowboarding
130126;Playing soccer
130128;Using cardiovascular equipment
130129;Vehicle touring/racing
130130;Playing volleyball
130132;Participating in water sports
130133;Weightlifting/strength training
130134;Working out, unspecified
130136;Doing yoga
130199;Playing sports n.e.c.*
130201;Watching aerobics
130202;Watching baseball
130203;Watching basketball
130204;Watching biking
130205;Watching billiards
130206;Watching boating
130207;Watching bowling
130208;Watching climbing, spelunking, caving
130209;Watching dancing
130210;Watching equestrian sports
130211;Watching fencing
130212;Watching fishing
130213;Watching football
130214;Watching golfing
130215;Watching gymnastics
130216;Watching hockey
130217;Watching martial arts
130218;Watching racquet sports
130219;Watching rodeo competitions
130220;Watching rollerblading
130221;Watching rugby
130222;Watching running
130223;Watching skiing, ice skating, snowboarding
130224;Watching soccer
130225;Watching softball
130226;Watching vehicle touring/racing
130227;Watching volleyball
130228;Watching walking
130229;Watching water sports
130230;Watching weightlifting/strength training
130231;Watching people working out, unspecified
130232;Watching wrestling
130301;Waiting related to playing sports or exercising
130302;Waiting related to attending sporting events
130399;Waiting associated with sports, exercise, & recreation, n.e.c.*
130401;Security related to playing sports or exercising
130402;Security related to attending sporting events
130499;Security related to sports, exercise, & recreation, n.e.c.*
140101;Attending religious services
140102;Participation in religious practices
140103;Waiting associated w/religious & spiritual activities
140104;Security procedures rel. to religious & spiritual activities
140105;Religious education activities
149999;Religious and spiritual activities, n.e.c.*
150101;Computer use
150102;Organizing and preparing
150104;Telephone calls (except hotline counseling)
150199;Administrative & support activities, n.e.c.*
150201;Food preparation, presentation, clean-up
150202;Collecting & delivering clothing & other goods
150203;Providing care
150204;Teaching, leading, counseling, mentoring
150299;Social service & care activities, n.e.c.*
150301;Building houses, wildlife sites, & other structures
150302;Indoor & outdoor maintenance, repair, & clean-up
150399;Indoor & outdoor maintenance, building & clean-up activities, n.e.c.*
150499;Participating in performance & cultural activities, n.e.c.*
150501;Attending meetings, conferences, & training
150599;Attending meetings, conferences, & training, n.e.c.*
150601;Public health activities
150602;Public safety activities
150699;Public health & safety activities, n.e.c.*
159989;Volunteer activities, n.e.c.*
160101;Telephone calls to/from family members
160102;Telephone calls to/from friends, neighbors, or acquaintances
160103;Telephone calls to/from education services providers
160104;Telephone calls to/from salespeople
160105;Telephone calls to/from professional or personal care svcs providers
160106;Telephone calls to/from household services providers
160108;Telephone calls to/from government officials
169989;Telephone calls, n.e.c.*
180101;Travel related to personal care
180199;Travel related to personal care, n.e.c.*
180280;Travel related to household activities
180381;Travel related to caring for and helping hh children
180382;Travel related to caring for and helping hh adults
180399;Travel rel. to caring for & helping hh members, n.e.c.*
180481;Travel related to caring for and helping nonhh children
180482;Travel related to caring for and helping nonhh adults
180499;Travel rel. to caring for & helping nonhh members, n.e.c.*
180501;Travel related to working
180502;Travel related to work-related activities
180589;Travel related to work, n.e.c.*
180601;Travel related to taking class
180699;Travel related to education, n.e.c.*
180701;Travel related to grocery shopping
180782;Travel related to shopping (except grocery shopping)
180801;Travel related to using childcare services
180802;Travel related to using financial services and banking
180803;Travel related to using legal services
180804;Travel related to using medical services
180805;Travel related to using personal care services
180806;Travel related to using real estate services
180807;Travel related to using veterinary services
180899;Travel rel. to using prof. & personal care services, n.e.c.*
180901;Travel related to using household services
180902;Travel related to using home main./repair/décor./construction svcs
180903;Travel related to using pet services (not vet)
180904;Travel related to using lawn and garden services
180905;Travel related to using vehicle maintenance & repair services
180999;Travel related to using household services, n.e.c.*
181002;Travel related to civic obligations & participation
181099;Travel rel. to govt svcs & civic obligations, n.e.c.*
181101;Travel related to eating and drinking
181199;Travel related to eating and drinking, n.e.c.*
181201;Travel related to socializing and communicating
181202;Travel related to attending or hosting social events
181283;Travel related to relaxing and leisure
181204;Travel related to arts and entertainment
181299;Travel rel. to socializing, relaxing, & leisure, n.e.c.*
181301;Travel related to participating in sports/exercise/recreation
181302;Travel related to attending sporting/recreational events
181399;Travel related to sports, exercise, & recreation, n.e.c.*
181401;Travel related to religious/spiritual practices
181499;Travel rel. to religious/spiritual activities, n.e.c.*
181501;Travel related to volunteering
181599;Travel related to volunteer activities, n.e.c.*
181601;Travel related to phone calls
181699;Travel rel. to phone calls, n.e.c.*
181801;Security procedures related to traveling
181899;Security procedures related to traveling, n.e.c.*
189999;Traveling, n.e.c.*
509989;Insufficient detail in verbatim
title: "R Notebook"
output: html_notebook
# Data from
df.who <- read_csv('../data/atus/atuswho.csv') %>%
filter(tuwho_code > -0)
df.act <- read_csv('../data/atus/atusact.csv')
df.sum <- read_csv('../data/atus/atussum.csv')
df.resp <- read_csv('../data/atus/atusresp.csv')
df.whocode <- tribble(~tuwho_code, ~who, ~category,
18, 'Alone', 'Alone',
19, 'Alone', 'Alone',
20, 'Spouse', 'Partner',
21, 'Unmarried partner', 'Partner',
22, 'Own household child', 'Children',
23, 'Grandchild', 'Children',
24, 'Parent', 'Family',
25, 'Brother/sister', 'Family',
26, 'Other related person', 'Family',
27, 'Foster child', 'Children',
28, 'Housemate/roommate', 'Friend',
29, 'Roomer/boarder', 'Friend',
30, 'Other nonrelative', 'Other',
40, 'Own nonhousehold child < 18', 'Children',
51, 'Parents (not living in household)', 'Family',
52, 'Other nonhousehold family members < 18', 'Children',
53, 'Other nonhousehold family members 18 and older (including parents-in-law)', 'Family',
54, 'Friends', 'Friend',
55, 'Co-workers/colleagues/clients', 'Co-worker',
56, 'Neighbors/acquaintances', 'Other',
57, 'Other nonhousehold children < 18', 'Other',
58, 'Other nonhousehold adults 18 and older', 'Other',
59, 'Boss or manager', 'Co-worker',
60, 'People whom I supervise', 'Co-worker',
61, 'Co-workers', 'Co-worker',
62, 'Co-workers', 'Other',
NA, 'Unknown', 'Unknown'
# Collected trcodep / trtier1p / trtier2p codes -> name; see gist
df.actcode <- read_csv2('../data/atus/codes.csv') %>% #
mutate(activity = as.integer(code))
df <- df.act %>%
left_join(df.who, by=c('tucaseid', 'tuactivity_n')) %>%
inner_join(df.whocode, by='tuwho_code')
df.tmp2 <- df %>%
#filter(category != 'Other') %>%
#mutate(category = who) %>%
# First, there can be many people in the same category present for each activity
# Remove all but one of them. (If you spend 10 hours with 2 kids
# I want to count that as 10 hours)
group_by(category, tucaseid, tuactivity_n) %>%
summarize(tuactdur24 = first(tuactdur24)) %>%
ungroup() %>%
# tufnwgtp is a weight I use below to estimate population means, as per ATUS
# principles. I need to add 0:s for those we didn't spend time with
# to have a fair weight later
complete(category, tucaseid, fill=list(tuactdur24=0)) %>%
inner_join(df.sum %>% select(tucaseid, teage, tesex, tufnwgtp, tuyear), by='tucaseid') %>%
# Co-worker was introduced in 2010; As I use means below we can simply discard data
# before 2010 for this category
filter(!((tuyear < 2010) & (category == 'Co-worker'))) %>%
# (Sloppiness; I used to plot men and women separately, and this got rid of that quickly)
mutate(tesex=1) %>%
# Sum by person and who-category; tesex and teage could have been fetched with first() in summarize()
# but this way I don't have to re-group, as the last category is simply pop:ed from the
# group "stack"
group_by(category, tesex, teage, tucaseid) %>%
summarize(tuactdur24 = sum(tuactdur24),
tufnwgtp = first(tufnwgtp)) %>%
# Now that individuals (tucaseid) are pop:ed, sum by who-category and age
summarize(t = sum(tuactdur24 * tufnwgtp) / sum(tufnwgtp))
df.tmp2 %>%
filter(category != 'Other', category != 'Unknown') %>%
group_by(category) %>%
arrange(teage) %>%
mutate(gender = ifelse(tesex == 1, 'm', 'f'),
category.max = which.max(t)) %>%
ungroup() %>%
mutate(category = factor(category, ordered=TRUE, levels=unique(category[order(category.max)]))) %>%
mutate(category = factor(c))
ggplot(aes(teage, t/60)) +
geom_line(show.legend = FALSE) +
#geom_bar(stat='identity') +
geom_hline(yintercept=0, size=0.2) +
scale_y_continuous(labels=function(x) {paste0(x, 'h')}) +
labs(x="", y="", title='Who we spend time with', caption='@hnrklndbrg | Source: American Time Use Survey') +
theme_henrik(grid='Y') +
facet_wrap(~ category)
ggsave('/tmp/who.svg', width=7, height=5)
Copy link

halhen commented Jun 30, 2017

Note: there's a bunch of code in the gist that is my regular American Time Use Survey-data boiler place, not used for this particular chart. Sorry, dear reader, if it seems a lot, but I'd rather release the code with little effort than not release it from laziness.

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment